Permalink
Browse files

Implement plan and ok for getting us more tests.

  • Loading branch information...
jnthn committed Aug 18, 2010
1 parent 1edfb56 commit a64ea75b4bd0c5d65e2d2add3784b3b9ef2d1143
Showing with 13 additions and 0 deletions.
  1. +13 −0 common/NQP/NQPSetting.pm
View
@@ -95,3 +95,16 @@ sub &infix:<%>($x, $y) {
sub &infix:<~>($x, $y) {
nqp::concat($x.Str, $y.Str, NQPStr);
}
+
+# For tests.
+my $count := NQPInt.new();
+sub plan($n) {
+ print("1..");
+ say($n);
+}
+sub ok($check) {
+ $count := $count + 1;
+ unless $check { print("not ") }
+ print("ok ");
+ say($count);
+}

0 comments on commit a64ea75

Please sign in to comment.