X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Context.git;a=blobdiff_plain;f=t%2F14-cmp.t;fp=t%2F14-cmp.t;h=8c22c47cdbe743e3b054e9d8037e6f01f00fb62f;hp=9313d935df4eb0b51d11aac3116b9a2b0de02cf2;hb=5b9348f0f624efc3e24b83a3fb731aaf1962968b;hpb=f8d2fd90ffbbe951a24f874b76712694f8cd1f8a diff --git a/t/14-cmp.t b/t/14-cmp.t index 9313d93..8c22c47 100644 --- a/t/14-cmp.t +++ b/t/14-cmp.t @@ -12,8 +12,8 @@ use Scope::Context; { my $block = Scope::Context->new; my $up = $block->up; - cmp_ok $up, '==', $sc, '$up == $sc'; - cmp_ok $block, '!=', $sc, '$block != $sc'; + ok $up == $sc, '$up == $sc'; + ok $block != $sc, '$block != $sc'; } }