our ($test);
our ($action);
-parse_cmd_line ();
-
-# Default set of tests.
-@TESTS = qw (pt-grow-stack pt-big-stk-obj pt-bad-addr pt-write-code
- page-linear page-parallel page-merge-seq page-merge-par
- page-shuffle mmap-read mmap-close mmap-unmap mmap-overlap
- mmap-twice mmap-write mmap-exit mmap-shuffle
- ) unless @TESTS > 0;
+parse_cmd_line qw (pt-grow-stack pt-big-stk-obj pt-bad-addr pt-write-code
+ page-linear page-parallel page-merge-seq page-merge-par
+ page-shuffle mmap-read mmap-close mmap-unmap mmap-overlap
+ mmap-twice mmap-write mmap-exit mmap-shuffle);
clean_dir (), exit if $action eq 'clean';
run_and_grade_tests ();
write_grades ();
write_details ();
-exit if $action eq 'test';
+exit success () if $action eq 'test';
assemble_final_grade ();
-exit if $action eq 'assemble';
+exit success () if $action eq 'assemble';
die "Don't know how to '$action'";
DIE => "failed to create swap disk");
# Run.
- return run_pintos ("pintos "
- . "--os-disk=pintos/src/vm/build/os.dsk "
- . "--fs-disk=output/$test/fs.dsk "
- . "--swap-disk=output/$test/swap.dsk "
- . "-v run -q -ex \"$test\"",
+ return run_pintos (["--os-disk=pintos/src/vm/build/os.dsk",
+ "--fs-disk=output/$test/fs.dsk",
+ "--swap-disk=output/$test/swap.dsk",
+ "-v", "run", "-q", "-ex", "$test"],
LOG => "$test/run",
TIMEOUT => 600);
}