Clarify purpose and rationale.
[pintos.git] / src / tests / userprog / wait-simple.ck
blob93dd577667e053f61d10e6d48d0b8437da863256
1 # -*- perl -*-
2 use strict;
3 use warnings;
4 use tests::tests;
5 check_expected ([<<'EOF']);
6 (wait-simple) begin
7 (child-simple) run
8 child-simple: exit(81)
9 (wait-simple) wait(exec()) = 81
10 (wait-simple) end
11 wait-simple: exit(0)
12 EOF
13 pass;