Add crude is() for spectest purposes

sorear · Aug 4, 2010 · 7beb95b · 7beb95b
1 parent b034cd5
commit 7beb95b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Test.pm6 b/Test.pm6
@@ -60,6 +60,7 @@ $GLOBAL::TEST-BUILDER = Builder.CREATE;
 $GLOBAL::TEST-BUILDER.reset;
 
 sub ok($bool, $tag) is export { $*TEST-BUILDER.ok($bool, $tag) }
+sub is($a, $b, $tag) is export { $*TEST-BUILDER.ok($a eq $b, $tag) }
 sub plan($num) is export { $*TEST-BUILDER.plan($num) }
 sub done-testing() is export { $*TEST-BUILDER.done-testing }
 sub done_testing() is export { $*TEST-BUILDER.done-testing }