This repository has been archived on 2021-05-26. You can view files and clone it, but cannot push or open issues or pull requests.
OS/pintos-env/pintos/tests/filesys/extended/dir-mk-tree-persistence.ck

16 lines
242 B
Text
Executable file

# -*- perl -*-
use strict;
use warnings;
use tests::tests;
my ($tree);
for my $a (0...3) {
for my $b (0...2) {
for my $c (0...2) {
for my $d (0...3) {
$tree->{$a}{$b}{$c}{$d} = [''];
}
}
}
}
check_archive ($tree);
pass;