--TEST--
Test ftruncate() function : usage variations - truncate file to negative size
--FILE--
<?php
// include common file related test functions
include ("file.inc");

echo "*** Testing ftruncate() : usage variations ***\n";

/* test ftruncate with file opened in different modes */
$file_modes = array("r", "rb", "rt", "r+", "r+b", "r+t",
                    "w", "wb", "wt", "w+", "w+b", "w+t",
                    "x", "xb", "xt", "x+", "x+b", "x+t",
                    "a", "ab", "at", "a+", "a+b", "a+t");

$file_content_types = array("numeric","text_with_new_line");

foreach($file_content_types as $file_content_type) {
    echo "\n-- Testing ftruncate() with file having data of type ". $file_content_type ." --\n";

    for($mode_counter = 0; $mode_counter < count($file_modes); $mode_counter++) {
        echo "-- Testing ftruncate() with file opening using $file_modes[$mode_counter] mode --\n";

        // create 1 file with some contents
        $filename = __DIR__."/ftruncate_variation4.tmp";
        if( strstr($file_modes[$mode_counter], "x") || strstr($file_modes[$mode_counter], "w") ) {
          // fopen the file using the $file_modes
          $file_handle = fopen($filename, $file_modes[$mode_counter]);
          fill_file($file_handle, $file_content_type, 1024);
        } else {
          create_files ( __DIR__, 1, $file_content_type, 0755, 1, "w", "ftruncate_variation", 4);
          // fopen the file using the $file_modes
          $file_handle = fopen($filename, $file_modes[$mode_counter]);
        }
        if (!$file_handle) {
          echo "Error: failed to open file $filename!\n";
          exit();
        }

        rewind($file_handle); // file pointer to 0

        echo "-- Testing ftruncate(): try truncating file to a negative size --\n";
        /* try to truncate it to a negative size, size should not change*/

        $new_size = -1000;
        $file_size = filesize($filename); // current filesize
        var_dump($file_size === 1024 || $file_size === 1137); // 1137 is for Windows with 't' mode
        var_dump( ftell($file_handle) );
        try {
            var_dump( ftruncate($file_handle, $new_size) ); // truncate it
        } catch (\ValueError $e) {
            echo $e->getMessage() . \PHP_EOL;
        }
        var_dump( ftell($file_handle) );
        var_dump( feof($file_handle) );
        fclose($file_handle);
        clearstatcache(); // clear previous size value in cache
        $file_size = filesize($filename); // new file size = actual size, no change
        var_dump($file_size === 1024 || $file_size === 1137); // 1137 is for Windows with 't' mode

        //delete all files created
        delete_file( $filename );
    }//end of inner for loop
}//end of outer foreach loop
echo "Done\n";
?>
--EXPECT--
*** Testing ftruncate() : usage variations ***

-- Testing ftruncate() with file having data of type numeric --
-- Testing ftruncate() with file opening using r mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using rb mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using rt mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using r+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using r+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using r+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using wb mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using wt mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using xb mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using xt mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using ab mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using at mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)

-- Testing ftruncate() with file having data of type text_with_new_line --
-- Testing ftruncate() with file opening using r mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using rb mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using rt mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using r+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using r+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using r+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using wb mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using wt mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using w+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using xb mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using xt mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using x+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using ab mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using at mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a+ mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a+b mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
-- Testing ftruncate() with file opening using a+t mode --
-- Testing ftruncate(): try truncating file to a negative size --
bool(true)
int(0)
ftruncate(): Argument #2 ($size) must be greater than or equal to 0
int(0)
bool(false)
bool(true)
Done