Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
use $*SPEC
  • Loading branch information
cjfields committed Nov 1, 2016
1 parent 04cdd03 commit d0887ac
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion t/Grammar/FTLocation.t
Expand Up @@ -16,7 +16,7 @@ ok(Bio::Grammar::FTLocation ~~ Grammar);
method complex_location($/) { $complex_ct++ }
};

my $fh = open('t/data/location_data.txt', :r);
my $fh = open($*SPEC.catfile(<t data location_data.txt>, :r));

# sorting is to keep the order constant from one run to the next
while $fh.get -> $line {
Expand Down
2 changes: 1 addition & 1 deletion t/Grammar/Fasta.t
Expand Up @@ -53,6 +53,6 @@ is($/.to, 804);

# parse file
# TODO: use File::Spec-like path
ok( Bio::Grammar::Fasta.parsefile( './t/data/test.fasta' ) );
ok( Bio::Grammar::Fasta.parsefile($*SPEC.catfile(<t data test.fasta> ) ));

done-testing();

0 comments on commit d0887ac

Please sign in to comment.