projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7656b7fe8e50d57b2637e02f5797683ae5660144
[pintos-anon]
/
create-bound.ck
1
# -*- perl -*-
2
use strict;
3
use warnings;
4
use tests::tests;
5
check_expected ([<<'EOF']);
6
(create-bound) begin
7
(create-bound) create("quux.dat"): 1
8
(create-bound) end
9
create-bound: exit(0)
10
EOF
11
pass;