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
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;