projects
/
pintos-anon
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
046e50941827714f8c1266d15f62b7e030d444ad
[pintos-anon]
/
src
/
tests
/
filesys
/
extended
/
dir-mk-tree.ck
1
# -*- perl -*-
2
use strict;
3
use warnings;
4
use tests::tests;
5
check_expected (IGNORE_EXIT_CODES => 1, [<<'EOF']);
6
(dir-mk-tree) begin
7
(dir-mk-tree) creating /0/0/0/0 through /3/2/2/3...
8
(dir-mk-tree) open "/0/2/0/3"
9
(dir-mk-tree) close "/0/2/0/3"
10
(dir-mk-tree) end
11
EOF
12
my ($tree);
13
for my $a (0...3) {
14
for my $b (0...2) {
15
for my $c (0...2) {
16
for my $d (0...3) {
17
$tree->{$a}{$b}{$c}{$d} = [''];
18
}
19
}
20
}
21
}
22
check_archive ($tree);
23
pass;