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