Compare commits
No commits in common. 'c9' and 'i10cs' have entirely different histories.
@ -0,0 +1,26 @@
|
|||||||
|
diff -r -u IO-All-0.87.orig/t/inline_subclass.t IO-All-0.87/t/inline_subclass.t
|
||||||
|
--- IO-All-0.87.orig/t/inline_subclass.t 2024-07-12 23:29:29.589115127 +0200
|
||||||
|
+++ IO-All-0.87/t/inline_subclass.t 2024-07-12 23:30:02.370263343 +0200
|
||||||
|
@@ -9,7 +9,8 @@
|
||||||
|
|
||||||
|
sub io { return IO::Dumper->new(@_) };
|
||||||
|
|
||||||
|
-package IO::All::Filesys;
|
||||||
|
+package
|
||||||
|
+ IO::All::Filesys;
|
||||||
|
sub dump {
|
||||||
|
my $self = shift;
|
||||||
|
$self->print(Data::Dumper::Dumper(@_));
|
||||||
|
diff -r -u IO-All-0.87.orig/t/IO_Dumper.pm IO-All-0.87/t/IO_Dumper.pm
|
||||||
|
--- IO-All-0.87.orig/t/IO_Dumper.pm 2024-07-12 23:29:29.590115131 +0200
|
||||||
|
+++ IO-All-0.87/t/IO_Dumper.pm 2024-07-12 23:29:43.273176997 +0200
|
||||||
|
@@ -7,7 +7,8 @@
|
||||||
|
|
||||||
|
sub io { return IO_Dumper->new(@_) };
|
||||||
|
|
||||||
|
-package IO::All::Filesys;
|
||||||
|
+package
|
||||||
|
+ IO::All::Filesys;
|
||||||
|
use Data::Dumper;
|
||||||
|
sub dump {
|
||||||
|
my $self = shift;
|
@ -0,0 +1,66 @@
|
|||||||
|
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)
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in new issue