diff options
Diffstat (limited to 'pintos-progos/tests/filesys/extended/dir-mk-tree-persistence.ck')
| -rw-r--r-- | pintos-progos/tests/filesys/extended/dir-mk-tree-persistence.ck | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/pintos-progos/tests/filesys/extended/dir-mk-tree-persistence.ck b/pintos-progos/tests/filesys/extended/dir-mk-tree-persistence.ck new file mode 100644 index 0000000..fb16afd --- /dev/null +++ b/pintos-progos/tests/filesys/extended/dir-mk-tree-persistence.ck | |||
| @@ -0,0 +1,16 @@ | |||
| 1 | # -*- perl -*- | ||
| 2 | use strict; | ||
| 3 | use warnings; | ||
| 4 | use tests::tests; | ||
| 5 | my ($tree); | ||
| 6 | for my $a (0...3) { | ||
| 7 | for my $b (0...2) { | ||
| 8 | for my $c (0...2) { | ||
| 9 | for my $d (0...3) { | ||
| 10 | $tree->{$a}{$b}{$c}{$d} = ['']; | ||
| 11 | } | ||
| 12 | } | ||
| 13 | } | ||
| 14 | } | ||
| 15 | check_archive ($tree); | ||
| 16 | pass; | ||
