diff options
Diffstat (limited to 'tests/filesys/base/lg-random.ck')
| -rw-r--r-- | tests/filesys/base/lg-random.ck | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/filesys/base/lg-random.ck b/tests/filesys/base/lg-random.ck new file mode 100644 index 0000000..dd9f1dd --- /dev/null +++ b/tests/filesys/base/lg-random.ck | |||
| @@ -0,0 +1,14 @@ | |||
| 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 | ||
| 14 | pass; | ||
