pintos-os.org Git - pintos-anon/blob - src/tests/vm/process_death.pm

   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 (@output);
  12     @output = get_core_output (@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;