hphp/test/zend/good/ext/standard/tests/file/fgetcsv_variation29.php

   1 <?hh
   2 /*
   3  Prototype: array fgetcsv ( resource $handle [, int $length [, string $delimiter [, string $enclosure]]] );
   4  Description: Gets line from file pointer and parse for CSV fields
   5 */
   6
   7 /*
   8    Testing fgetcsv() to read a file whose file pointer is pointing to end of file
   9    and fgetcsv() provided with only file handle in its argument
  10 */
  11 <<__EntryPoint>> function main(): void {
  12 echo "*** Testing fgetcsv() : with file handle as only argument and file pointer pointing at end of file ***\n";
  13
  14 /* the array is with two elements in it. Each element should be read as
  15    1st element is delimiter & 2nd element is csv fields
  16 */
  17 $csv_lists = varray [
  18   varray[',', 'water,fruit'],
  19   varray[' ', 'water fruit'],
  20   varray[' ', '"water" "fruit"'],
  21   varray['\\', 'water\\"fruit"\\"air"'],
  22   varray['\\', '"water"\\"fruit"\\"""'],
  23 ];
  24
  25 $filename = __SystemLib\hphp_test_tmppath('fgetcsv_variation29.tmp');
  26 @unlink($filename);
  27
  28 $file_modes = varray ["r","rb", "rt", "r+", "r+b", "r+t",
  29                      "a+", "a+b", "a+t",
  30                      "w+", "w+b", "w+t",
  31                      "x+", "x+b", "x+t"];
  32
  33 $loop_counter = 1;
  34 foreach ($csv_lists as $csv_list) {
  35   for($mode_counter = 0; $mode_counter < count($file_modes); $mode_counter++) {
  36     // create the file and add the content with has csv fields
  37     if ( strstr($file_modes[$mode_counter], "r") ) {
  38       $file_handle = fopen($filename, "w");
  39     } else {
  40       $file_handle = fopen($filename, $file_modes[$mode_counter] );
  41     }
  42     if ( !$file_handle ) {
  43       echo "Error: failed to create file $filename!\n";
  44       exit();
  45     }
  46     $delimiter = $csv_list[0];
  47     $csv_field = $csv_list[1];
  48
  49     fwrite($file_handle, $csv_field . "\n");
  50     // write another line of text and a blank line
  51     // this will be used to test, if the fgetcsv() read more than a line and its
  52     // working when only a blan line is read
  53     fwrite($file_handle, "This is line of text without csv fields\n");
  54     fwrite($file_handle, "\n"); // blank line
  55
  56     // close the file if the mode to be used is read mode  and re-open using read mode
  57     // else rewind the file pointer to beginning of the file
  58     if ( strstr($file_modes[$mode_counter], "r" ) ) {
  59       fclose($file_handle);
  60       $file_handle = fopen($filename, $file_modes[$mode_counter]);
  61     }
  62
  63     echo "\n-- Testing fgetcsv() with file opened using $file_modes[$mode_counter] mode --\n";
  64
  65     // set the file pointer to EOF
  66     var_dump( fseek($file_handle, 0, SEEK_END) );
  67
  68     // call fgetcsv() to parse csv fields
  69
  70     // now file pointer should point to end of the file, try reading again
  71     var_dump( feof($file_handle) );
  72     var_dump( fgetcsv($file_handle) );
  73     // check the file pointer position and if eof
  74     var_dump( ftell($file_handle) );
  75     var_dump( feof($file_handle) );
  76     // close the file
  77     fclose($file_handle);
  78     //delete file
  79     unlink($filename);
  80   } //end of mode loop
  81 } // end of foreach
  82
  83 echo "Done\n";
  84 }