Skip to content

Commit 53aa381

Browse files
committed
[v6.d REVIEW] Use more appropriate test routine
1 parent 8846ba7 commit 53aa381

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

S01-perl-5-integration/context.t

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,8 @@ p5_list(:context<void>);
5757
is(EVAL(:lang<Perl5>,'$::got_list'),0,":context<void> doesn't set list context");
5858

5959
my &p5_list_of_values := EVAL('sub {return (1,2,3,4)}',:lang<Perl5>);
60-
ok(p5_list_of_values(:context<void>) === Nil,"a p5 sub called in void context returns a Nil");
60+
cmp-ok(p5_list_of_values(:context<void>), '===', Nil,
61+
"a p5 sub called in void context returns a Nil");
6162

6263

6364
# vim: ft=perl6

0 commit comments

Comments
 (0)