projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
4d6d752a9303de32e398812105a7cd025a8107d9
[pintos-anon]
/
lg-random.ck
1
# -*- perl -*-
2
use strict;
3
use warnings;
4
use tests::tests;
5
check_expected (IGNORE_EXIT_CODES => 1, [<<'EOF']);
6
(lg-random) begin
7
(lg-random) create "bazzle"
8
(lg-random) open "bazzle"
9
(lg-random) write "bazzle" in random order
10
(lg-random) read "bazzle" in random order
11
(lg-random) close "bazzle"
12
(lg-random) end
13
EOF