pintos-os.org Git - pintos-anon/blob - src/tests/filesys/extended/dir-vine-persistence.ck

   1 # -*- perl -*-
   2 use strict;
   3 use warnings;
   4 use tests::tests;
   5 # The archive should look like this:
   6 #
   7 # 40642 dir-vine
   8 # 42479 tar
   9 #     0 start
  10 #    11 start/file0
  11 #     0 start/dir0
  12 #    11 start/dir0/file1
  13 #     0 start/dir0/dir1
  14 #    11 start/dir0/dir1/file2
  15 #     0 start/dir0/dir1/dir2
  16 #    11 start/dir0/dir1/dir2/file3
  17 #     0 start/dir0/dir1/dir2/dir3
  18 #    11 start/dir0/dir1/dir2/dir3/file4
  19 #     0 start/dir0/dir1/dir2/dir3/dir4
  20 #    11 start/dir0/dir1/dir2/dir3/dir4/file5
  21 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5
  22 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/file6
  23 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6
  24 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/file7
  25 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7
  26 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/file8
  27 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8
  28 #    11 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/file9
  29 #     0 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/dir9
  30 my ($dir) = {};
  31 my ($root) = {"start" => $dir};
  32 for (my ($i) = 0; $i < 10; $i++) {
  33     $dir->{"file$i"} = ["contents $i\n"];
  34     $dir = $dir->{"dir$i"} = {};
  35 }
  36 check_archive ($root);
  37 pass;