X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FPerl-Docs.git;a=blobdiff_plain;f=t%2Foriginal.t;fp=t%2Foriginal.t;h=0000000000000000000000000000000000000000;hp=aa2a98f7879b307da5634584834871276dbe4ed9;hb=47f1263f57592cfd836dee694c227575bc9cde46;hpb=cf83821d2b095a464d353ea98e41bfa8b262caef

diff --git a/t/original.t b/t/original.t
deleted file mode 100644
index aa2a98f..0000000
--- a/t/original.t
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl -I.
-
-# try to honor possible tempdirs
-$tmp = "file_$$";
-
-$short = <<END;
-small
-file
-END
-
-$long = <<END;
-This is a much longer bit of contents
-to store in a file.
-END
-
-print "1..7\n";
-
-use File::Slurp;
-
-&write_file($tmp, $long);
-if (&read_file($tmp) eq $long) {print "ok 1\n";} else {print "not ok 1\n";}
-
-@x = &read_file($tmp);
-@y = grep( $_ ne '', split(/(.*?\n)/, $long));
-while (@x && @y) {
-	last unless $x[0] eq $y[0];
-	shift @x;
-	shift @y;
-}
-if (@x == @y && (@x ? $x[0] eq $y[0] : 1)) { print "ok 2\n";} else {print "not ok 2\n"}
-
-&append_file($tmp, $short);
-if (&read_file($tmp) eq "$long$short") {print "ok 3\n";} else {print "not ok 3\n";}
-
-$iold = (stat($tmp))[1];
-&overwrite_file($tmp, $short);
-$inew = (stat($tmp))[1];
-
-if (&read_file($tmp) eq $short) {print "ok 4\n";} else {print "not ok 4\n";}
-
-if ($inew == $iold) {print "ok 5\n";} else {print "not ok 5\n";}
-
-unlink($tmp);
-
-&overwrite_file($tmp, $long);
-if (&read_file($tmp) eq $long) {print "ok 6\n";} else {print "not ok 6\n";}
-
-unlink($tmp);
-
-&append_file($tmp, $short);
-if (&read_file($tmp) eq $short) {print "ok 7\n";} else {print "not ok 7\n";}
-
-unlink($tmp);
-
-