1 files changed, 0 insertions, 12 deletions
diff --git a/perl/test/truncate.t b/perl/test/truncate.t
deleted file mode 100644
index 8607421..0000000
--- a/perl/test/truncate.t
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/usr/bin/perl
-use test::helper qw($_real $_point);
-use Test::More;
-plan tests => 5;
-chdir($_point);
-system("echo hippity >womble");
-ok(-f "womble","exists");
-is(-s "womble",8,"right size");
-ok(truncate("womble",4),"truncate");
-ok(-f "womble","file exists");
-is(-s "womble",4,"right size");
-unlink("womble");