@@ -27,9 +27,9 @@ my $table := Foo.HOW.method_table(Foo);
27
27
my $ method := $ table {' half-true' };
28
28
my $ foo := Foo. new ();
29
29
nqp ::setboolspec(Foo, $ MODE_CALL_METHOD , $ method );
30
- ok (nqp ::istrue($ foo ) == 0 );
31
- ok (nqp ::istrue($ foo ) == 1 );
32
- ok (nqp ::istrue($ foo ) == 0 );
30
+ ok (nqp ::istrue($ foo ) == 0 , ' MODE_CALL_METHOD ' );
31
+ ok (nqp ::istrue($ foo ) == 1 , ' MODE_CALL_METHOD ' );
32
+ ok (nqp ::istrue($ foo ) == 0 , ' MODE_CALL_METHOD ' );
33
33
34
34
{
35
35
my $ int := NQPClassHOW. new_type(: name(' boxing_int' ), : repr(' P6opaque' ));
@@ -102,9 +102,9 @@ ok(nqp::istrue($foo) == 0);
102
102
my $ empty := nqp ::box_s(' ' , $ not_empty );
103
103
my $ zero := nqp ::box_s(' 0' , $ not_empty );
104
104
105
- ok (nqp ::istrue($ hello ), ' MODE_UNBOX_STR_NOT_EMPTY_OR_ZERO - "hello" is true' );
106
- ok (nqp ::istrue($ zero ), ' MODE_UNBOX_STR_NOT_EMPTY_OR_ZERO - "0" is true' );
107
- ok (! nqp ::istrue($ empty ), ' MODE_UNBOX_STR_NOT_EMPTY_OR_ZERO - "" is false' );
105
+ ok (nqp ::istrue($ hello ), ' MODE_UNBOX_STR_NOT_EMPT - "hello" is true' );
106
+ ok (nqp ::istrue($ zero ), ' MODE_UNBOX_STR_NOT_EMPTY - "0" is true' );
107
+ ok (! nqp ::istrue($ empty ), ' MODE_UNBOX_STR_NOT_EMPTY - "" is false' );
108
108
}
109
109
110
110
0 commit comments