You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
67 lines
2.0 KiB
67 lines
2.0 KiB
3 months ago
|
diff -r -u IO-All-0.87.orig/t/read.t IO-All-0.87/t/read.t
|
||
|
|
--- IO-All-0.87.orig/t/read.t 2024-07-12 23:29:29.594115149 +0200
|
||
|
|
+++ IO-All-0.87/t/read.t 2024-07-13 12:43:44.872734094 +0200
|
||
|
|
@@ -6,7 +6,7 @@
|
||
|
|
|
||
|
|
my $outfile = "$t/out.pm";
|
||
|
|
ok(not -f $outfile);
|
||
|
|
-my $input = io('lib/IO/All.pm')->open;
|
||
|
|
+my $input = io('lib/IO/All.pod')->open;
|
||
|
|
ok(ref $input);
|
||
|
|
my $output = io($outfile)->open('>');
|
||
|
|
ok(ref $output);
|
||
|
|
@@ -17,7 +17,7 @@
|
||
|
|
$output->write while $input->read;
|
||
|
|
ok(not length($buffer));
|
||
|
|
ok($output->close);
|
||
|
|
-test_matching_files($outfile, 'lib/IO/All.pm');
|
||
|
|
+test_matching_files($outfile, 'lib/IO/All.pod');
|
||
|
|
ok($output->unlink);
|
||
|
|
|
||
|
|
del_output_dir();
|
||
|
|
diff -r -u IO-All-0.87.orig/t/read_write.t IO-All-0.87/t/read_write.t
|
||
|
|
--- IO-All-0.87.orig/t/read_write.t 2024-07-12 23:29:29.590115131 +0200
|
||
|
|
+++ IO-All-0.87/t/read_write.t 2024-07-13 12:43:52.018766082 +0200
|
||
|
|
@@ -4,11 +4,11 @@
|
||
|
|
use IO::All;
|
||
|
|
use IO_All_Test;
|
||
|
|
|
||
|
|
-my $io = io('lib/IO/All.pm');
|
||
|
|
+my $io = io('lib/IO/All.pod');
|
||
|
|
my $buffer;
|
||
|
|
$io->buffer($buffer);
|
||
|
|
1 while $io->read;
|
||
|
|
ok(length($buffer));
|
||
|
|
-test_file_contents($buffer, 'lib/IO/All.pm');
|
||
|
|
+test_file_contents($buffer, 'lib/IO/All.pod');
|
||
|
|
|
||
|
|
del_output_dir();
|
||
|
|
diff -r -u IO-All-0.87.orig/t/synopsis2.t IO-All-0.87/t/synopsis2.t
|
||
|
|
--- IO-All-0.87.orig/t/synopsis2.t 2024-07-12 23:29:29.591115136 +0200
|
||
|
|
+++ IO-All-0.87/t/synopsis2.t 2024-07-13 11:56:28.923878422 +0200
|
||
|
|
@@ -1,5 +1,5 @@
|
||
|
|
use strict; use warnings;
|
||
|
|
-my $t; use lib ($t = -e 't' ? 't' : 'test');
|
||
|
|
+my $t; use lib ($t = -e 't' ? 't' : '_test');
|
||
|
|
use Test::More tests => 10;
|
||
|
|
use IO::All;
|
||
|
|
use IO_All_Test;
|
||
|
|
@@ -16,7 +16,7 @@
|
||
|
|
|
||
|
|
for my $line (sort @results) {
|
||
|
|
my $dataline = <DATA>;
|
||
|
|
- $dataline =~ s/^t\//test\// if -e 'test';
|
||
|
|
+ $dataline =~ s/^t\//_test\// if -e '_test';
|
||
|
|
is($line, flip_slash $dataline);
|
||
|
|
}
|
||
|
|
|
||
|
|
@@ -26,7 +26,7 @@
|
||
|
|
grep {! /CVS|\.svn/} io("$t/mydir")->all_files(0)
|
||
|
|
) {
|
||
|
|
my $dataline = <DATA>;
|
||
|
|
- $dataline =~ s/^t\//test\// if -e 'test';
|
||
|
|
+ $dataline =~ s/^t\//_test\// if -e '_test';
|
||
|
|
is("$_\n", flip_slash $dataline)
|
||
|
|
}
|
||
|
|
|