Compare commits
No commits in common. 'i10cs' and 'c9' have entirely different histories.
@ -1,26 +0,0 @@
|
|||||||
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;
|
|
@ -1,66 +0,0 @@
|
|||||||
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