projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
890cea0b434f1f95d82b12b45aaae1e1c4e36e22
[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