1 |
#!/usr/bin/perl |
2 |
use test::helper qw($_point $_real); |
3 |
use Test::More; |
4 |
plan tests => 6; |
5 |
chdir($_point); |
6 |
ok(symlink("abc","def"),"symlink created"); |
7 |
ok(-l "def","symlink exists"); |
8 |
is(readlink("def"),"abc","it worked"); |
9 |
chdir($_real); |
10 |
ok(-l "def","symlink really exists"); |
11 |
is(readlink("def"),"abc","really worked"); |
12 |
unlink("def"); |
13 |
|
14 |
# bug: doing a 'cp -a' on a directory which contains a symlink |
15 |
# reports an error |
16 |
mkdir("dira"); |
17 |
system("cd dira; touch filea; ln -s filea fileb"); |
18 |
is(system("cp -a dira dirb")>>8,0,"cp -a"); |
19 |
system("rm -rf dira dirb"); |