skip tests that need VMS::Filespec on other platforms

[p5sagit/p5-mst-13.2.git] / t / lib / textfill.t

diff --git a/t/lib/textfill.t b/t/lib/textfill.t
index 16b3518..daeee23 100755 (executable)
--- a/t/lib/textfill.t
+++ b/t/lib/textfill.t
@@ -2,9 +2,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
+use Text::Wrap qw(&fill);
+
 @tests = (split(/\nEND\n/s, <<DONE));
 TEST1
 Cyberdog Information
@@ -73,9 +75,8 @@ while (@tests) {
                print "ok $tn\n";
        } elsif ($rerun) {
                my $oi = $in;
-               require File::Slurp;
-               File::Slurp::write_file("#o", $back);
-               File::Slurp::write_file("#e", $out);
+               open(F,">#o") and do { print F $back; close(F) };
+               open(F,">#e") and do { print F $out;  close(F) };
                foreach ($in, $back, $out) {
                        s/\t/^I\t/gs;
                        s/\n/\$\n/gs;