diff options
Diffstat (limited to 'perl/test/chown.t')
-rw-r--r-- | perl/test/chown.t | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/perl/test/chown.t b/perl/test/chown.t deleted file mode 100644 index 8ccbb88..0000000 --- a/perl/test/chown.t +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 4; -my (@stat); -chdir($_point); -system("echo frog >file"); -ok(chown(0,0,"file"),"set 0,0"); -@stat = stat("file"); -ok($stat[4] == 0 && $stat[5] == 0,"0,0"); -ok(chown(1,1,"file"),"set 1,1"); -@stat = stat("file"); -ok($stat[4] == 1 && $stat[5] == 1,"1,1"); -unlink("file"); |