pintos-os.org Git - pintos-anon/blob - write-stdin.ck

   1 # -*- perl -*-
   2 use strict;
   3 use warnings;
   4 use tests::tests;
   5 check_expected ([<<'EOF', <<'EOF']);
   6 (write-stdin) begin
   7 (write-stdin) end
   8 write-stdin: exit(0)
   9 EOF
  10 (write-stdin) begin
  11 write-stdin: exit(-1)
  12 EOF
  13 pass;