tests/file2.d

   1 #!/usr/local/bin/rune -x
   2 #
   3 # Test low-level file ops
   4
   5 import "sys";
   6 import <stdio>;
   7
   8 typedef stdio.File File;
   9
  10 int
  11 main(int ac, char **av)
  12 {
  13         File @fp;
  14
  15         stdio.stdout->show("A");
  16         stdio.stdout->show("B");
  17         fp = File.fdopen(1Z, "r+");
  18         stdio.stdout->show("C");
  19         fp->show("YWASHERE");
  20         stdio.stdout->show("E");
  21         fp->fwrite("abcd\n", 5);
  22         fp->fflush();
  23         stdio.stdout->show("F");
  24         fp->fwrite("efgh", 4);
  25
  26         # destructor should flush fp
  27         #
  28         fp = NULL;
  29 }