git.maemo.org Git - pkg-perl/blob - deb-src/libwww-perl/libwww-perl-5.813/t/base/listing.t

   1 print "1..6\n";
   2
   3
   4 use File::Listing;
   5
   6 $dir = <<'EOL';
   7 total 68
   8 drwxr-xr-x   4 aas      users        1024 Mar 16 15:47 .
   9 drwxr-xr-x  11 aas      users        1024 Mar 15 19:22 ..
  10 drwxr-xr-x   2 aas      users        1024 Mar 16 15:47 CVS
  11 -rw-r--r--   1 aas      users        2384 Feb 26 21:14 Debug.pm
  12 -rw-r--r--   1 aas      users        2145 Feb 26 20:09 IO.pm
  13 -rw-r--r--   1 aas      users        3960 Mar 15 18:05 MediaTypes.pm
  14 -rw-r--r--   1 aas      users         792 Feb 26 20:12 MemberMixin.pm
  15 drwxr-xr-x   3 aas      users        1024 Mar 15 18:05 Protocol
  16 -rw-r--r--   1 aas      users        5613 Feb 26 20:16 Protocol.pm
  17 -rw-r--r--   1 aas      users        5963 Feb 26 21:27 RobotUA.pm
  18 -rw-r--r--   1 aas      users        5071 Mar 16 12:25 Simple.pm
  19 -rw-r--r--   1 aas      users        8817 Mar 15 18:05 Socket.pm
  20 -rw-r--r--   1 aas      users        2121 Feb  5 14:22 TkIO.pm
  21 -rw-r--r--   1 aas      users       19628 Mar 15 18:05 UserAgent.pm
  22 -rw-r--r--   1 aas      users        2841 Feb  5 19:06 media.types
  23
  24 CVS:
  25 total 5
  26 drwxr-xr-x   2 aas      users        1024 Mar 16 15:47 .
  27 drwxr-xr-x   4 aas      users        1024 Mar 16 15:47 ..
  28 -rw-r--r--   1 aas      users         545 Mar 16 15:47 Entries
  29 -rw-r--r--   1 aas      users          39 Mar 10 09:05 Repository
  30 -rw-r--r--   1 aas      users          19 Mar 10 09:05 Root
  31
  32 Protocol:
  33 total 37
  34 drwxr-xr-x   3 aas      users        1024 Mar 15 18:05 .
  35 drwxr-xr-x   4 aas      users        1024 Mar 16 15:47 ..
  36 drwxr-xr-x   2 aas      users        1024 Mar 15 18:05 CVS
  37 -rw-r--r--   1 aas      users        4646 Feb 26 20:13 file.pm
  38 -rw-r--r--   1 aas      users       13006 Mar 15 18:05 ftp.pm
  39 -rw-r--r--   1 aas      users        5935 Mar  6 10:29 gopher.pm
  40 -rw-r--r--   1 aas      users        5453 Mar  6 10:29 http.pm
  41 -rw-r--r--   1 aas      users        2365 Feb 26 20:13 mailto.pm
  42
  43 Protocol/CVS:
  44 total 5
  45 drwxr-xr-x   2 aas      users        1024 Mar 15 18:05 .
  46 drwxr-xr-x   3 aas      users        1024 Mar 15 18:05 ..
  47 -rw-r--r--   1 aas      users         238 Mar 15 18:05 Entries
  48 -rw-r--r--   1 aas      users          48 Mar 10 09:05 Repository
  49 -rw-r--r--   1 aas      users          19 Mar 10 09:05 Root
  50 EOL
  51
  52 @dir = parse_dir($dir, undef, 'unix');
  53
  54 print int(@dir) ." lines found\n";
  55 @dir != 25 && print "not ";
  56 print "ok 1\n";
  57
  58 for (@dir) {
  59    ($name, $type, $size, $mtime, $mode) = @$_;
  60    $size ||= 0;  # ensure that it is defined
  61    printf "%-25s $type %6d  ", $name, $size;
  62    print scalar(localtime($mtime));
  63    printf "  %06o", $mode;
  64    print "\n";
  65 }
  66
  67 # Pick out the Socket.pm line as the sample we check carefully
  68 ($name, $type, $size, $mtime, $mode) = @{$dir[9]};
  69
  70 $name eq "Socket.pm" || print "not ";
  71 print "ok 2\n";
  72
  73 $type eq "f" || print "not ";
  74 print "ok 3\n";
  75
  76 $size == 8817 || print "not ";
  77 print "ok 4\n";
  78
  79 # Must be careful when checking the time stamps because we don't know
  80 # which year if this script lives for a long time.
  81 $timestring = scalar(localtime($mtime));
  82 $timestring =~ /Mar\s+15\s+18:05/ or print "not ";
  83 print "ok 5\n";
  84
  85 $mode == 0100644 || print "not ";
  86 print "ok 6\n";