pintos-os.org Git - pintos-anon/blob - src/tests/userprog/rox-child.ck

   1 # -*- perl -*-
   2 use strict;
   3 use warnings;
   4 use tests::tests;
   5 check_expected ([<<'EOF']);
   6 (rox-child) begin
   7 (rox-child) open "child-rox"
   8 (rox-child) read "child-rox"
   9 (rox-child) write "child-rox"
  10 (rox-child) exec "child-rox 1"
  11 (child-rox) begin
  12 (child-rox) try to write "child-rox"
  13 (child-rox) try to write "child-rox"
  14 (child-rox) end
  15 child-rox: exit(12)
  16 (rox-child) write "child-rox"
  17 (rox-child) end
  18 rox-child: exit(0)
  19 EOF