repo.or.cz
/
pintos.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Clarify purpose and rationale.
[pintos.git]
/
src
/
tests
/
userprog
/
read-stdout.ck
blob
7d87b52b316aaad180da2035679a3a466eacc3b4
1
# -*- perl -*-
2
use strict;
3
use warnings;
4
use tests::tests;
5
check_expected ([<<'EOF', <<'EOF']);
6
(read-stdout) begin
7
(read-stdout) end
8
read-stdout: exit(0)
9
EOF
10
(read-stdout) begin
11
read-stdout: exit(-1)
12
EOF
13
pass;