Make tests public. Rewrite most tests. Add tests.
[pintos-anon] / src / tests / filesys / base / sm-seq-random.ck
1 # -*- perl -*-
2 use strict;
3 use warnings;
4 use tests::tests;
5 check_expected (IGNORE_EXIT_CODES => 1, [<<'EOF']);
6 (sm-seq-random) begin
7 (sm-seq-random) create "nibble"
8 (sm-seq-random) open "nibble"
9 (sm-seq-random) writing "nibble"
10 (sm-seq-random) close "nibble"
11 (sm-seq-random) open "nibble" for verification
12 (sm-seq-random) verified contents of "nibble"
13 (sm-seq-random) close "nibble"
14 (sm-seq-random) end
15 EOF