pintos-os.org Git - pintos-anon/blob - 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 # -rw-r--r-- 0/0           40642 2006-01-01 00:00:00 dir-vine
  15 # -rw-r--r-- 0/0           42479 2006-01-01 00:00:00 tar
  16 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start
  17 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/file0
  18 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0
  19 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/file1
  20 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1
  21 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/file2
  22 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1/dir2
  23 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/dir2/file3
  24 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3
  25 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/file4
  26 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4
  27 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/file5
  28 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5
  29 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5/file6
  30 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6
  31 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/file7
  32 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7
  33 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/file8
  34 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8
  35 # -rw-r--r-- 0/0              11 2006-01-01 00:00:00 start/dir0/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/file9
  36 # drwxr-xr-x 0/0               0 2006-01-01 00:00:00 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;