projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
fb16afd2cefd945fdf515fcefef35f1efcb992b7
[pintos-anon]
/
dir-mk-tree-persistence.ck
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;