Attempt to track IO changes in backwards copatible way

The '.s' (size) method no longer works on IO::Handle, get size from IO itself.
zengargoyle · Apr 28, 2017 · c60d442 · c60d442
1 parent 76f92ce
commit c60d442
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/t/01_empty.t b/t/01_empty.t
@@ -4,7 +4,7 @@ plan *;
 use Text::Fortune;
 let $*CWD = 't/test_data';
 
-my Buf $b = do { my $f = 'empty.dat'.IO.open: :bin; $f.slurp };
+my Buf $b = do { my $f = 'empty.dat'.IO; my $s = $f.s; $f.open(:bin).read($s); };
 say $b;
 
 given Text::Fortune::Index.new {

diff --git a/t/02_simple.t b/t/02_simple.t
@@ -8,7 +8,7 @@ throws-like { Text::Fortune::Index.new.load-dat( 'not_found.dat' ) },
   X::Index::NotFound,
   message => rx:s/not found/;
 
-my Buf $b = do { my $f = 'empty.dat'.IO.open; $f.read($f.s) };
+my Buf $b = do { my $f = 'empty.dat'.IO; my $s = $f.s; $f.open(:bin).read($s); };
 
 given Text::Fortune::Index.new.load-dat( 'empty.dat' ) {
   is .version, 2, 'is version: 2';

diff --git a/t/03_dodat.t b/t/03_dodat.t
@@ -4,7 +4,7 @@ plan *;
 use Text::Fortune;
 let $*CWD = 't/test_data';
 
-my Buf $b = do { my $f = 'with_dat.dat'.IO.open; $f.read($f.s) };
+my Buf $b = do { my $f = 'with_dat.dat'.IO; my $s = $f.s; $f.open(:bin).read($s); };
 
 given Text::Fortune::Index.new.load-dat( 'with_dat.dat' ) {
   is .offset-at(0), 0, 'first offset correct';

diff --git a/t/04_nodat.t b/t/04_nodat.t
@@ -4,8 +4,8 @@ plan *;
 use Text::Fortune;
 let $*CWD = 't/test_data';
 
-my Buf $b = do { my $f = 'with_dat.dat'.IO.open; $f.read($f.s) };
-my Buf $be = do { my $f = 'empty.dat'.IO.open; $f.read($f.s) };
+my Buf $b = do { my $f = 'with_dat.dat'.IO; my $s = $f.s; $f.open(:bin).read($s); };
+my Buf $be = do { my $f = 'empty.dat'.IO; my $s = $f.s; $f.open(:bin).read($s); };
 
 given Text::Fortune::Index.new.load-fortune( 'with_dat' ) {
   is .offset-at(0), 0, 'first offset correct';