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