projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b1139cfa453d9c5d264b576ab4637bf7326145bd
[pintos-anon]
/
read-normal.ck
1
# -*- perl -*-
2
use strict;
3
use warnings;
4
use tests::tests;
5
check_expected ([<<'EOF']);
6
(read-normal) begin
7
(read-normal) open "sample.txt" for verification
8
(read-normal) verified contents of "sample.txt"
9
(read-normal) close "sample.txt"
10
(read-normal) end
11
read-normal: exit(0)
12
EOF