Make tests public. Rewrite most tests. Add tests.
[pintos-anon] / src / tests / filesys / base / syn-read.ck
1 # -*- perl -*-
2 use strict;
3 use warnings;
4 use tests::tests;
5 check_expected (IGNORE_EXIT_CODES => 1, [<<'EOF']);
6 (syn-read) begin
7 (syn-read) create "data"
8 (syn-read) open "data"
9 (syn-read) write "data"
10 (syn-read) close "data"
11 (syn-read) exec child 1 of 10: "child-syn-read 0"
12 (syn-read) exec child 2 of 10: "child-syn-read 1"
13 (syn-read) exec child 3 of 10: "child-syn-read 2"
14 (syn-read) exec child 4 of 10: "child-syn-read 3"
15 (syn-read) exec child 5 of 10: "child-syn-read 4"
16 (syn-read) exec child 6 of 10: "child-syn-read 5"
17 (syn-read) exec child 7 of 10: "child-syn-read 6"
18 (syn-read) exec child 8 of 10: "child-syn-read 7"
19 (syn-read) exec child 9 of 10: "child-syn-read 8"
20 (syn-read) exec child 10 of 10: "child-syn-read 9"
21 (syn-read) wait for child 1 of 10 returned 0 (expected 0)
22 (syn-read) wait for child 2 of 10 returned 1 (expected 1)
23 (syn-read) wait for child 3 of 10 returned 2 (expected 2)
24 (syn-read) wait for child 4 of 10 returned 3 (expected 3)
25 (syn-read) wait for child 5 of 10 returned 4 (expected 4)
26 (syn-read) wait for child 6 of 10 returned 5 (expected 5)
27 (syn-read) wait for child 7 of 10 returned 6 (expected 6)
28 (syn-read) wait for child 8 of 10 returned 7 (expected 7)
29 (syn-read) wait for child 9 of 10 returned 8 (expected 8)
30 (syn-read) wait for child 10 of 10 returned 9 (expected 9)
31 (syn-read) end
32 EOF