1--TEST--
2Test fopen and fclose() functions - usage variations - "a" mode
3--FILE--
4<?php
5
6/* Test fopen() and fclose(): Opening the file in "a" mode,
7   checking for the file creation, write & read operations,
8   checking for the file pointer position,
9   and fclose function
10*/
11$file_path = __DIR__;
12require($file_path."/file.inc");
13
14create_files($file_path, 1, "text_with_new_line", 0755, 20, "w", "007_variation", 5, "bytes");
15$file = $file_path."/007_variation5.tmp";
16$string = "abcdefghij\nmnopqrst\tuvwxyz\n0123456789";
17
18echo "*** Test fopen() & fclose() functions:  with 'a' mode ***\n";
19$file_handle = fopen($file, "a");  //opening the file "a" mode
20var_dump($file_handle);  //Check for the content of handle
21var_dump( get_resource_type($file_handle) );  //Check for the type of resource
22var_dump( fwrite($file_handle, $string) );  //Check for write operation; passes; expected:size of the $string
23rewind($file_handle);
24var_dump( fread($file_handle, 100) );  //Check for read operation; fails; expected: false
25var_dump( ftell($file_handle) );  //File pointer position after read operation, expected at the end of the file
26var_dump( fclose($file_handle) );  //Check for close operation on the file handle
27var_dump( get_resource_type($file_handle) );  //Check whether resource is lost after close operation
28var_dump( filesize($file) ); //Check that data hasn't over written; Expected: Size of (initial data + newly added data)
29
30unlink($file);  //Deleting the file
31fclose( fopen($file, "a") );  //Opening the non-existing file in "a" mode, which will be created
32var_dump( file_exists($file) );  //Check for the existence of file
33echo "*** Done ***\n";
34--CLEAN--
35<?php
36unlink(__DIR__."/007_variation5.tmp");
37?>
38--EXPECTF--
39*** Test fopen() & fclose() functions:  with 'a' mode ***
40resource(%d) of type (stream)
41string(6) "stream"
42int(37)
43
44Notice: fread(): Read of 8192 bytes failed with errno=9 Bad file descriptor in %s on line %d
45bool(false)
46int(0)
47bool(true)
48string(7) "Unknown"
49int(57)
50bool(true)
51*** Done ***
52