src/tests/filesys/extended/dir-open.ck

   1 # -*- perl -*-
   2 use strict;
   3 use warnings;
   4 use tests::tests;
   5 check_expected ([<<'EOF', <<'EOF']);
   6 (dir-open) begin
   7 (dir-open) mkdir "xyzzy"
   8 (dir-open) open "xyzzy"
   9 (dir-open) write "xyzzy"
  10 (dir-open) write "xyzzy" (must return -1, actually -1)
  11 (dir-open) end
  12 dir-open: exit(0)
  13 EOF
  14 (dir-open) begin
  15 (dir-open) mkdir "xyzzy"
  16 (dir-open) open "xyzzy"
  17 (dir-open) write "xyzzy"
  18 dir-open: exit(-1)
  19 EOF
  20 pass;