Use &is for better diagnostics in test

pmurias · pmurias · commit d0f8e09c46e4 · 2017-11-24T14:30:17.000+01:00
diff --git a/t/nqp/081-radix.t b/t/nqp/081-radix.t
@@ -16,7 +16,7 @@ sub test_radix_I($radix,$str,$pos,$flags,$value,$mult,$offset,$desc) {
     my $result := nqp::radix_I($radix,$str,$pos,$flags,$bi_type);
     is(str($result[0]), $value,"radix_I: $desc - correct converted value");
     is(str($result[1]), $mult,"radix_I: $desc - correct radix ** (number of digits converted)");
-    ok($result[2] == $offset,"radix_I: $desc - correct offset");
+    is($result[2], $offset,"radix_I: $desc - correct offset");
 }
 
 sub test_radix_both(*@args) {

Original file line number	Diff line number	Diff line change
`@@ -16,7 +16,7 @@ sub test_radix_I($radix,$str,$pos,$flags,$value,$mult,$offset,$desc) {`
`16`	`16`	`my $result := nqp::radix_I($radix,$str,$pos,$flags,$bi_type);`
`17`	`17`	`is(str($result[0]), $value,"radix_I: $desc - correct converted value");`
`18`	`18`	`is(str($result[1]), $mult,"radix_I: $desc - correct radix ** (number of digits converted)");`
`19`		`- ok($result[2] == $offset,"radix_I: $desc - correct offset");`
	`19`	`+ is($result[2], $offset,"radix_I: $desc - correct offset");`
`20`	`20`	`}`
`21`	`21`
`22`	`22`	`sub test_radix_both(*@args) {`