diff options
Diffstat (limited to 'pintos-progos/tests/vm/process_death.pm')
| -rw-r--r-- | pintos-progos/tests/vm/process_death.pm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/pintos-progos/tests/vm/process_death.pm b/pintos-progos/tests/vm/process_death.pm deleted file mode 100644 index 52039a1..0000000 --- a/pintos-progos/tests/vm/process_death.pm +++ /dev/null | |||
| @@ -1,22 +0,0 @@ | |||
| 1 | # -*- perl -*- | ||
| 2 | use strict; | ||
| 3 | use warnings; | ||
| 4 | use tests::tests; | ||
| 5 | |||
| 6 | sub check_process_death { | ||
| 7 | my ($proc_name) = @_; | ||
| 8 | our ($test); | ||
| 9 | my (@output) = read_text_file ("$test.output"); | ||
| 10 | |||
| 11 | common_checks ("run", @output); | ||
| 12 | @output = get_core_output ("run", @output); | ||
| 13 | fail "First line of output is not `($proc_name) begin' message.\n" | ||
| 14 | if $output[0] ne "($proc_name) begin"; | ||
| 15 | fail "Output missing '$proc_name: exit(-1)' message.\n" | ||
| 16 | if !grep ("$proc_name: exit(-1)" eq $_, @output); | ||
| 17 | fail "Output contains '($proc_name) end' message.\n" | ||
| 18 | if grep (/\($proc_name\) end/, @output); | ||
| 19 | pass; | ||
| 20 | } | ||
| 21 | |||
| 22 | 1; | ||
