diff options
Diffstat (limited to 'pintos-progos/tests/userprog/rox-child.ck')
| -rw-r--r-- | pintos-progos/tests/userprog/rox-child.ck | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/pintos-progos/tests/userprog/rox-child.ck b/pintos-progos/tests/userprog/rox-child.ck new file mode 100644 index 0000000..e6363fb --- /dev/null +++ b/pintos-progos/tests/userprog/rox-child.ck | |||
| @@ -0,0 +1,20 @@ | |||
| 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 | ||
| 20 | pass; | ||
