X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=test%2Ftruncate.t;h=0e9ceab44b9d8b965b64c3232d2916af8dd5911c;hb=HEAD;hp=8607421182bfdb3a7a03e012b3b8728e3884f647;hpb=06dd8ebb4bc96acd173c00b24251546d74762990;p=perl-fuse.git

diff --git a/test/truncate.t b/test/truncate.t
index 8607421..0e9ceab 100644
--- a/test/truncate.t
+++ b/test/truncate.t
@@ -3,7 +3,9 @@ use test::helper qw($_real $_point);
 use Test::More;
 plan tests => 5;
 chdir($_point);
-system("echo hippity >womble");
+open($file, '>', 'womble');
+print $file "hippity\n";
+close($file);
 ok(-f "womble","exists");
 is(-s "womble",8,"right size");
 ok(truncate("womble",4),"truncate");