Make comment more readable.
[pintos-anon] / src / tests / filesys / extended / dir-vine.ck
1 # -*- perl -*-
2 use strict;
3 use warnings;
4 use tests::tests;
5 check_expected (IGNORE_EXIT_CODES => 1, [<<'EOF']);
6 (dir-vine) begin
7 (dir-vine) creating many levels of files and directories...
8 (dir-vine) removing all but top 10 levels of files and directories...
9 (dir-vine) end
10 EOF
11
12 # The archive should look like this:
13 #
14 # 40642 dir-vine
15 # 42479 tar
16 #     0 start
17 #    11 start/file0
18 #     0 start/dir0
19 #    11 start/dir0/file1
20 #     0 start/dir0/dir1
21 #    11 start/dir0/dir1/file2
22 #     0 start/dir0/dir1/dir2
23 #    11 start/dir0/dir1/dir2/file3
24 #     0 start/dir0/dir1/dir2/dir3
25 #    11 start/dir0/dir1/dir2/dir3/file4
26 #     0 start/dir0/dir1/dir2/dir3/dir4
27 #    11 start/dir0/dir1/dir2/dir3/dir4/file5
28 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5
29 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/file6
30 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6
31 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/file7
32 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7
33 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/file8
34 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8
35 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/file9
36 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/dir9
37 my ($dir) = {};
38 my ($root) = {"start" => $dir};
39 for (my ($i) = 0; $i < 10; $i++) {
40     $dir->{"file$i"} = ["contents $i\n"];
41     $dir = $dir->{"dir$i"} = {};
42 }
43 check_archive ($root);
44 pass;