Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
currying seems to work again for roles
  • Loading branch information
cjfields committed Jan 24, 2015
1 parent ed6540d commit c8ab61a
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
2 changes: 1 addition & 1 deletion lib/Bio/Role/IO.pm6
Expand Up @@ -3,7 +3,7 @@ use v6;
use Bio::Role::Temp;

role Bio::Role::IO does Bio::Role::Temp {
has IO::Handle $.fh;
has IO::Handle $.fh handles <get getc eof lines read write seek tell slurp spurt close>;

# At the moment we force all IO consumers to initialize-io if they have this
# simple signature
Expand Down
4 changes: 2 additions & 2 deletions t/Role/IO.t
Expand Up @@ -17,7 +17,7 @@ ok(1);
my $in = MyIO.new( file => $*SPEC.catfile('t','data','test.fasta'), :r);

ok($in ~~ Bio::Role::IO, 'does Bio::Role::IO');
is($in.file, 't/data/test.fasta'); # De-UNIX this
is($in.file, $*SPEC.catfile('t','data','test.fasta')); # De-UNIX this

isa_ok($in.fh, 'IO::Handle');

Expand Down Expand Up @@ -52,5 +52,5 @@ is(MyIO.catdir('a', 'b', 'c'), $*SPEC.catdir('a', 'b', 'c'), 'catdir');
done();

END {
unlink('hi.txt') if 'hi.txt'.IO ~~ :e;
unlink('hi.txt') if 'hi.txt'.IO:e;
}

0 comments on commit c8ab61a

Please sign in to comment.