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
|
# Copyright 1999-2001 Steven Knight. All rights reserved. This program
# is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.
######################### We start with some black magic to print on failure.
use Test;
my $iswin32;
BEGIN {
$| = 1;
if ($] < 5.003) {
eval("require Win32");
$iswin32 = ! $@;
} else {
$iswin32 = $^O eq "MSWin32";
}
plan tests => 25, onfail => sub { $? = 1 if $ENV{AEGIS_TEST} }
}
END {print "not ok 1\n" unless $loaded;}
use Test::Cmd;
$loaded = 1;
ok(1);
######################### End of black magic.
my($test, $ret, $wdir);
$test = Test::Cmd->new(workdir => '', subdir => 'foo');
ok($test);
$ret = $test->write('file1', <<EOF);
Test file #1.
EOF
ok($ret);
$ret = $test->write(['foo', 'file2'], <<EOF);
Test file #2.
EOF
ok($ret);
$ret = $test->write(['bar', 'file3'], <<EOF);
Test file #3 (should not get created).
EOF
ok(! $ret);
$ret = $test->write($test->workpath('file4'), <<EOF);
Test file #4.
EOF
ok($ret);
$ret = $test->write($test->workpath('foo', 'file5'), <<EOF);
Test file #5.
EOF
ok($ret);
$ret = $test->write($test->workpath('bar', 'file6'), <<EOF);
Test file #6 (should not get created).
EOF
ok(! $ret);
$ret = $test->write([$test->workpath('foo'), 'file7'], <<EOF);
Test file #7.
EOF
ok($ret);
$ret = $test->write([$test->workpath('bar'), 'file8'], <<EOF);
Test file #8 (should not get created).
EOF
ok(! $ret);
$wdir = $test->workdir;
ok($wdir);
# I don't understand why, but setting read-only on a Windows NT
# directory on Windows NT still allows you to create a file.
# That doesn't make sense to my UNIX-centric brain, but it does
# mean we need to skip the related tests on Win32 platforms.
$ret = chmod(0500, $wdir);
skip($iswin32, $ret == 1);
$ret = $test->write('file9', <<EOF);
Test file #7 (should not get created).
EOF
skip($iswin32 || $> == 0, ! $ret);
$ret = chdir($wdir);
ok($ret);
ok(-d 'foo');
ok(! -d 'bar');
ok(-f 'file1');
ok(-f $test->workpath('foo', 'file2'));
ok(! -f $test->workpath('bar', 'file3'));
ok(-f 'file4');
ok(-f $test->workpath('foo', 'file5'));
ok(! -f $test->workpath('bar', 'file6'));
ok(-f $test->workpath('foo', 'file7'));
ok(! -f $test->workpath('bar', 'file8'));
skip($iswin32 || $> == 0, ! -f 'file9');
|
