Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Implement plan and ok for getting us more tests.

  • Loading branch information...
commit a64ea75b4bd0c5d65e2d2add3784b3b9ef2d1143 1 parent 1edfb56
Jonathan Worthington authored August 18, 2010

Showing 1 changed file with 13 additions and 0 deletions. Show diff stats Hide diff stats

  1. 13  common/NQP/NQPSetting.pm
13  common/NQP/NQPSetting.pm
@@ -95,3 +95,16 @@ sub &infix:<%>($x, $y) {
95 95
 sub &infix:<~>($x, $y) {
96 96
     nqp::concat($x.Str, $y.Str, NQPStr);
97 97
 }
  98
+
  99
+# For tests.
  100
+my $count := NQPInt.new();
  101
+sub plan($n) {
  102
+    print("1..");
  103
+    say($n);
  104
+}
  105
+sub ok($check) {
  106
+    $count := $count + 1;
  107
+    unless $check { print("not ") }
  108
+    print("ok ");
  109
+    say($count);
  110
+}

0 notes on commit a64ea75

Please sign in to comment.
Something went wrong with that request. Please try again.