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

   1 # -*- perl -*-
   2 use strict;
   3 use warnings;
   4 use tests::tests;
   5 check_expected ([<<'EOF', <<'EOF']);
   6 (multi-child-fd) begin
   7 (multi-child-fd) open "sample.txt"
   8 (child-close) begin
   9 (child-close) end
  10 child-close: exit(0)
  11 (multi-child-fd) wait(exec()) = 0
  12 (multi-child-fd) verified contents of "sample.txt"
  13 (multi-child-fd) end
  14 multi-child-fd: exit(0)
  15 EOF
  16 (multi-child-fd) begin
  17 (multi-child-fd) open "sample.txt"
  18 (child-close) begin
  19 child-close: exit(-1)
  20 (multi-child-fd) wait(exec()) = -1
  21 (multi-child-fd) verified contents of "sample.txt"
  22 (multi-child-fd) end
  23 multi-child-fd: exit(0)
  24 EOF