1 files changed, 16 insertions, 0 deletions
diff --git a/perl/test/link.t b/perl/test/link.t
new file mode 100644
index 0000000..391b2f0
--- /dev/null
+++ b/perl/test/link.t
@@ -0,0 +1,16 @@
+#!/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");