aboutsummaryrefslogtreecommitdiffstats
path: root/perl/test/link.t
diff options
context:
space:
mode:
Diffstat (limited to 'perl/test/link.t')
-rw-r--r--perl/test/link.t16
1 files changed, 0 insertions, 16 deletions
diff --git a/perl/test/link.t b/perl/test/link.t
deleted file mode 100644
index 391b2f0..0000000
--- a/perl/test/link.t
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 8;
-chdir($_point);
-system("echo hippity >womble");
-ok(-f "womble","exists");
-ok(!-f "rabbit","target file doesn't exist");
-is(-s "womble",8,"right size");
-ok(link("womble","rabbit"),"link");
-ok(-f "womble","old file exists");
-ok(-f "rabbit","target file exists");
-is(-s "womble",8,"right size");
-is(-s "rabbit",8,"right size");
-unlink("womble");
-unlink("rabbit");