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