summaryrefslogtreecommitdiffstats
path: root/pintos-progos/tests/vm/process_death.pm
diff options
context:
space:
mode:
authormanuel <manuel@mausz.at>2012-03-27 11:51:08 +0200
committermanuel <manuel@mausz.at>2012-03-27 11:51:08 +0200
commit4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b (patch)
tree868c52e06f207b5ec8a3cc141f4b8b2bdfcc165c /pintos-progos/tests/vm/process_death.pm
parenteae0bd57f0a26314a94785061888d193d186944a (diff)
downloadprogos-4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b.tar.gz
progos-4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b.tar.bz2
progos-4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b.zip
reorganize file structure to match the upstream requirements
Diffstat (limited to 'pintos-progos/tests/vm/process_death.pm')
-rw-r--r--pintos-progos/tests/vm/process_death.pm22
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 -*-
2use strict;
3use warnings;
4use tests::tests;
5
6sub 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
221;