Make tests public. Rewrite most tests. Add tests.
[pintos-anon] / src / tests / userprog / rox-multichild.ck
1 # -*- perl -*-
2 use strict;
3 use warnings;
4 use tests::tests;
5 check_expected ([<<'EOF']);
6 (rox-multichild) begin
7 (rox-multichild) open "child-rox"
8 (rox-multichild) read "child-rox"
9 (rox-multichild) write "child-rox"
10 (rox-multichild) exec "child-rox 5"
11 (child-rox) begin
12 (child-rox) try to write "child-rox"
13 (child-rox) exec "child-rox 4"
14 (child-rox) begin
15 (child-rox) try to write "child-rox"
16 (child-rox) exec "child-rox 3"
17 (child-rox) begin
18 (child-rox) try to write "child-rox"
19 (child-rox) exec "child-rox 2"
20 (child-rox) begin
21 (child-rox) try to write "child-rox"
22 (child-rox) exec "child-rox 1"
23 (child-rox) begin
24 (child-rox) try to write "child-rox"
25 (child-rox) try to write "child-rox"
26 (child-rox) end
27 child-rox: exit(12)
28 (child-rox) try to write "child-rox"
29 (child-rox) end
30 child-rox: exit(12)
31 (child-rox) try to write "child-rox"
32 (child-rox) end
33 child-rox: exit(12)
34 (child-rox) try to write "child-rox"
35 (child-rox) end
36 child-rox: exit(12)
37 (child-rox) try to write "child-rox"
38 (child-rox) end
39 child-rox: exit(12)
40 (rox-multichild) write "child-rox"
41 (rox-multichild) end
42 rox-multichild: exit(0)
43 EOF