Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix use of lives_ok messages
  • Loading branch information
zmughal committed Sep 8, 2016
1 parent ccf1eba commit 483140a
Show file tree
Hide file tree
Showing 4 changed files with 3 additions and 4 deletions.
2 changes: 1 addition & 1 deletion t/diskcache.t
Expand Up @@ -25,7 +25,7 @@ lives_ok {
$pa->[1] = xvals(10,10);
$pa->[2] = yvals(10,10);
1;
}, "Make a DiskCache object";
} "Make a DiskCache object";

ok( (-e "${d}1") && (-e "${d}2") && (-e "${d}3"), "3 files written");

Expand Down
2 changes: 1 addition & 1 deletion t/familyfree.t
Expand Up @@ -17,4 +17,4 @@ lives_ok {

$pa = 1; # Undefine orig. a
$pb += 1;
}, "no barf when parent of slice undefined";
} "no barf when parent of slice undefined";
2 changes: 1 addition & 1 deletion t/matrixops.t
Expand Up @@ -145,7 +145,7 @@ my $pa = pdl([3,4],[4,-3]);
### Check that eigens runs OK
my ($vec,$val);
lives_ok { ($vec,$val) = eigens $pa },"eigens runs OK";
lives_ok { ($vec,$val) = eigens $pa } "eigens runs OK";
### Check that it really returns eigenvectors
my $c = float(($pa x $vec) / $vec);
Expand Down
1 change: 0 additions & 1 deletion t/niceslice.t
Expand Up @@ -30,7 +30,6 @@ sub translate_and_show {
my $pa = sequence 10; # shut up -w
my $pb = pdl(1);

my $pb = pdl(1);
eval translate_and_show '$pb = $pa((5));';
ok (!$@);
cmp_ok($pb->at, '==', 5);
Expand Down

0 comments on commit 483140a

Please sign in to comment.