Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

s/done_testing/done/ as per recent S24 changes

  • Loading branch information...
commit e76dd4c7304059996a9b9edea195c6ee029816c5 1 parent c1e0191
@moritz moritz authored
Showing with 184 additions and 184 deletions.
  1. +1 −1  S02-builtin_data_types/array.t
  2. +1 −1  S02-builtin_data_types/bool.t
  3. +1 −1  S02-builtin_data_types/enum.t
  4. +1 −1  S02-builtin_data_types/hash.t
  5. +1 −1  S02-builtin_data_types/instants-and-durations.t
  6. +1 −1  S02-builtin_data_types/lists.t
  7. +1 −1  S02-builtin_data_types/nil.t
  8. +1 −1  S02-builtin_data_types/type.t
  9. +1 −1  S02-builtin_data_types/undefined-types.t
  10. +1 −1  S02-builtin_data_types/whatever.t
  11. +1 −1  S02-literals/listquote.t
  12. +1 −1  S02-literals/numeric.t
  13. +1 −1  S02-literals/quoting-unicode.t
  14. +1 −1  S02-literals/quoting.t
  15. +1 −1  S02-literals/string-interpolation.t
  16. +1 −1  S02-magicals/args.t
  17. +1 −1  S02-names/identifier.t
  18. +1 −1  S02-names_and_variables/list_array_perl.t
  19. +1 −1  S02-names_and_variables/perl.t
  20. +1 −1  S02-whitespace_and_comments/sub-block-parsing.t
  21. +1 −1  S03-feeds/basic.t
  22. +1 −1  S03-junctions/associative.t
  23. +1 −1  S03-junctions/misc.t
  24. +1 −1  S03-metaops/hyper.t
  25. +1 −1  S03-metaops/not.t
  26. +1 −1  S03-metaops/reduce.t
  27. +1 −1  S03-metaops/reverse.t
  28. +1 −1  S03-metaops/zip.t
  29. +1 −1  S03-operators/arith.t
  30. +1 −1  S03-operators/comparison-simple.t
  31. +1 −1  S03-operators/context.t
  32. +1 −1  S03-operators/nesting.t
  33. +1 −1  S03-operators/not.t
  34. +1 −1  S03-operators/range-basic.t
  35. +1 −1  S03-operators/range-int.t
  36. +1 −1  S03-operators/relational.t
  37. +1 −1  S03-operators/short-circuit.t
  38. +1 −1  S03-operators/ternary.t
  39. +1 −1  S03-operators/value_equivalence.t
  40. +1 −1  S03-sequence/arity-2-or-more.t
  41. +1 −1  S03-sequence/arity0.t
  42. +1 −1  S03-sequence/basic.t
  43. +1 −1  S03-sequence/misc.t
  44. +1 −1  S03-sequence/nonnumeric.t
  45. +1 −1  S03-smartmatch/any-any.t
  46. +1 −1  S03-smartmatch/any-array-slice.t
  47. +1 −1  S03-smartmatch/any-array.t
  48. +1 −1  S03-smartmatch/any-bool.t
  49. +1 −1  S03-smartmatch/any-callable.t
  50. +1 −1  S03-smartmatch/any-complex.t
  51. +1 −1  S03-smartmatch/any-hash-pair.t
  52. +1 −1  S03-smartmatch/any-hash-slice.t
  53. +1 −1  S03-smartmatch/any-method.t
  54. +1 −1  S03-smartmatch/any-num.t
  55. +1 −1  S03-smartmatch/any-pair.t
  56. +1 −1  S03-smartmatch/any-str.t
  57. +1 −1  S03-smartmatch/any-sub.t
  58. +1 −1  S03-smartmatch/any-type.t
  59. +1 −1  S03-smartmatch/array-array.t
  60. +1 −1  S03-smartmatch/array-hash.t
  61. +1 −1  S03-smartmatch/capture-signature.t
  62. +1 −1  S03-smartmatch/disorganized.t
  63. +1 −1  S03-smartmatch/hash-hash.t
  64. +1 −1  S03-smartmatch/regex-hash.t
  65. +1 −1  S03-smartmatch/scalar-hash.t
  66. +1 −1  S04-declarations/constant.t
  67. +1 −1  S04-exceptions/fail.t
  68. +1 −1  S04-exceptions/pending.t
  69. +1 −1  S04-phasers/in-eval.t
  70. +1 −1  S04-statement-modifiers/for.t
  71. +1 −1  S04-statements/for.t
  72. +1 −1  S04-statements/quietly.t
  73. +1 −1  S04-statements/try.t
  74. +1 −1  S05-capture/caps.t
  75. +1 −1  S05-grammar/inheritance.t
  76. +1 −1  S05-grammar/methods.t
  77. +1 −1  S05-grammar/parse_and_parsefile.t
  78. +1 −1  S05-interpolation/lexicals.t
  79. +1 −1  S05-mass/rx.t
  80. +1 −1  S05-match/blocks.t
  81. +1 −1  S05-match/capturing-contexts.t
  82. +1 −1  S05-metasyntax/angle-brackets.t
  83. +1 −1  S05-metasyntax/charset.t
  84. +1 −1  S05-modifier/continue.t
  85. +1 −1  S05-modifier/counted-match.t
  86. +1 −1  S05-modifier/exhaustive.t
  87. +1 −1  S05-modifier/global.t
  88. +1 −1  S05-modifier/ii.t
  89. +1 −1  S05-modifier/my.t
  90. +1 −1  S05-modifier/overlapping.t
  91. +1 −1  S05-modifier/pos.t
  92. +1 −1  S05-modifier/ratchet.t
  93. +1 −1  S05-substitution/subst.t
  94. +1 −1  S06-advanced_subroutine_features/callframe.t
  95. +1 −1  S06-advanced_subroutine_features/callsame.t
  96. +1 −1  S06-advanced_subroutine_features/wrap.t
  97. +1 −1  S06-multi/by-trait.t
  98. +1 −1  S06-multi/proto.t
  99. +1 −1  S06-multi/syntax.t
  100. +1 −1  S06-multi/type-based.t
  101. +1 −1  S06-operator-overloading/sub.t
  102. +1 −1  S06-operator-overloading/workout.t
  103. +1 −1  S06-other/anon-hashes-vs-blocks.t
  104. +1 −1  S06-other/main-eval.t
  105. +1 −1  S06-signature/introspection.t
  106. +1 −1  S06-signature/named-parameters.t
  107. +1 −1  S06-signature/optional.t
  108. +1 −1  S06-signature/slurpy-params.t
  109. +1 −1  S06-signature/unspecified.t
  110. +1 −1  S06-traits/is-readonly.t
  111. +1 −1  S07-iterators/range-iterator.t
  112. +1 −1  S09-typed-arrays/arrays.t
  113. +1 −1  S12-attributes/delegation.t
  114. +1 −1  S12-attributes/instance.t
  115. +1 −1  S12-construction/new.t
  116. +1 −1  S12-enums/basic.t
  117. +1 −1  S12-enums/thorough.t
  118. +1 −1  S12-methods/attribute-params.t
  119. +1 −1  S12-methods/method-vs-sub.t
  120. +1 −1  S12-methods/multi.t
  121. +1 −1  S12-methods/what.t
  122. +1 −1  S12-subset/subtypes.t
  123. +1 −1  S14-roles/basic.t
  124. +1 −1  S14-roles/composition.t
  125. +1 −1  S14-traits/routines.t
  126. +1 −1  S16-filehandles/io.t
  127. +1 −1  S24-testing/6-done_testing.t
  128. +1 −1  S32-array/pop.t
  129. +1 −1  S32-array/rotate.t
  130. +1 −1  S32-array/shift.t
  131. +1 −1  S32-hash/delete.t
  132. +1 −1  S32-hash/delete_adverb.t
  133. +1 −1  S32-io/note.t
  134. +1 −1  S32-list/grep.t
  135. +1 −1  S32-list/minmax.t
  136. +1 −1  S32-list/reduce.t
  137. +1 −1  S32-num/abs.t
  138. +1 −1  S32-num/complex.t
  139. +1 −1  S32-num/cool-num.t
  140. +1 −1  S32-num/power.t
  141. +1 −1  S32-num/rat.t
  142. +1 −1  S32-num/real-bridge.t
  143. +1 −1  S32-num/rounders.t
  144. +1 −1  S32-num/sign.t
  145. +1 −1  S32-num/unpolar.t
  146. +1 −1  S32-scalar/undef.t
  147. +1 −1  S32-str/comb.t
  148. +1 −1  S32-str/split-simple.t
  149. +1 −1  S32-str/split-simple2.t
  150. +1 −1  S32-str/split.t
  151. +1 −1  S32-temporal/Date.t
  152. +1 −1  S32-temporal/DateTime-Instant-Duration.t
  153. +1 −1  S32-temporal/DateTime.t
  154. +1 −1  S32-temporal/calendar.t
  155. +1 −1  S32-temporal/local.t
  156. +1 −1  S32-trig/atan2.t
  157. +1 −1  S32-trig/cos.t
  158. +1 −1  S32-trig/cosec.t
  159. +1 −1  S32-trig/cosech.t
  160. +1 −1  S32-trig/cosh.t
  161. +1 −1  S32-trig/cotan.t
  162. +1 −1  S32-trig/cotanh.t
  163. +1 −1  S32-trig/sec.t
  164. +1 −1  S32-trig/sech.t
  165. +1 −1  S32-trig/sin.t
  166. +1 −1  S32-trig/sinh.t
  167. +1 −1  S32-trig/tan.t
  168. +1 −1  S32-trig/tanh.t
  169. +1 −1  integration/advent2009-day02.t
  170. +1 −1  integration/advent2009-day05.t
  171. +1 −1  integration/advent2009-day06.t
  172. +1 −1  integration/advent2009-day07.t
  173. +1 −1  integration/advent2009-day09.t
  174. +1 −1  integration/advent2009-day10.t
  175. +1 −1  integration/advent2009-day11.t
  176. +1 −1  integration/advent2009-day14.t
  177. +1 −1  integration/advent2009-day16.t
  178. +1 −1  integration/advent2009-day17.t
  179. +1 −1  integration/advent2009-day18.t
  180. +1 −1  integration/advent2009-day20.t
  181. +1 −1  integration/advent2009-day22.t
  182. +1 −1  integration/advent2009-day23.t
  183. +1 −1  integration/advent2010-day4.t
  184. +1 −1  integration/real-strings.t
View
2  S02-builtin_data_types/array.t
@@ -356,6 +356,6 @@ my @array2 = ("test", 1, Mu);
isa_ok +@a, Int, "Numifying an Array yields an Int";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/bool.t
@@ -96,6 +96,6 @@ is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
isa_ok ('RT71462' ~~ Str), Bool;
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/enum.t
@@ -142,6 +142,6 @@ is %hash.values, (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 'A', 'B', 'C', 'D', 'E', 'F'), '
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/hash.t
@@ -259,6 +259,6 @@ lives_ok { Hash.new("a" => "b") }, 'Hash.new($pair) lives';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/instants-and-durations.t
@@ -38,7 +38,7 @@ isa_ok eval('now +300'), Instant, 'now is a term, not a function';
isa_ok $d / (2/3), Duration, 'Duration / Rat ~~ Duration';
}
-done_testing;
+done;
# See S32-temporal/DateTime-Instant-Duration.t for more.
View
2  S02-builtin_data_types/lists.t
@@ -162,6 +162,6 @@ plan 27;
is $x, 44, 'variable not changed via assignment to list element';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/nil.t
@@ -44,6 +44,6 @@ ok (my $y = ()).defined, 'assigning () to scalar results in a defined parcel';
is $x, 0, '$Statement for Nil; does zero iterations';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/type.t
@@ -150,6 +150,6 @@ dies_ok { my Num $n; $n = 42; }, 'Num does not accept Int';
ok Array ~~ Positional, 'Array does Positional too';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/undefined-types.t
@@ -53,6 +53,6 @@ plan 23;
is 'a' ~ $int, 'a', 'infix:<~> uses coercion to Stringy (Int)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-builtin_data_types/whatever.t
@@ -232,6 +232,6 @@ eval_lives_ok '{*.{}}()', '{*.{}}() lives';
is $rt79166, 'RT 79166', 'assignment to variable with whatever in it';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-literals/listquote.t
@@ -102,6 +102,6 @@ eval_dies_ok '<STDIN>', '<STDIN> is disallowed';
is f(my @x = (1, 2, 3)), 1, 'function call with assignment to list';
}
-done_testing();
+done();
# vim: ft=perl6
View
2  S02-literals/numeric.t
@@ -53,6 +53,6 @@ is_approx 3.14159265358979323846264338327950288419716939937510e0,
#?rakudo todo 'RT 70600'
ok 0e999999999999999 == 0, '0e999999999999 equals zero';
-done_testing;
+done;
# vim: ft=perl6 sw=4 ts=4 expandtab
View
2  S02-literals/quoting-unicode.t
@@ -81,6 +81,6 @@ RIGHT SQUARE BRACKET WITH TICK IN BOTTOM CORNER(U+298D/U+298E)';
"Can't quote a regex with a snowman and comet (U+2603 and U+2604)";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-literals/quoting.t
@@ -561,6 +561,6 @@ Hello, World
is qqx/echo $var/.chomp, "world", 'qqx';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-literals/string-interpolation.t
@@ -42,6 +42,6 @@ line 4
];
is $rt65538_in, $rt65538_out, 'interpolation does not trim newlines';
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-magicals/args.t
@@ -19,4 +19,4 @@ is_run 'print @*ARGS.join(", ")', :args[1, 2, "foo"],
status => 0,
}, 'providing command line arguments sets @*ARGS';
-done_testing;
+done;
View
2  S02-names/identifier.t
@@ -103,6 +103,6 @@ plan 20;
'can call subroutines whos name begin with an alphabetic infix (and)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-names_and_variables/list_array_perl.t
@@ -104,7 +104,7 @@ my @tests = (
is_deeply eval( $rt65988.perl ), $rt65988, $rt65988.perl ~ '.perl';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-names_and_variables/perl.t
@@ -162,6 +162,6 @@ my @tests = (
}
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S02-whitespace_and_comments/sub-block-parsing.t
@@ -31,6 +31,6 @@ eval_dies_ok q[
x();
], 'block parsing works with semicolon';
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-feeds/basic.t
@@ -141,6 +141,6 @@ plan 19;
is(@(@data), <a b c d 0 1 2 3>, 'two stacked feeds');
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-junctions/associative.t
@@ -34,6 +34,6 @@ sub jv(Mu $j) {
}
-done_testing();
+done();
# vim: ft=perl6
View
2  S03-junctions/misc.t
@@ -415,6 +415,6 @@ ok Mu & Mu ~~ Mu, 'Mu & Mu ~~ Mu works';
'junction can be used to index Hash';
}
-done_testing();
+done();
# vim: ft=perl6
View
2  S03-metaops/hyper.t
@@ -770,6 +770,6 @@ my @e;
is "$a, $b, $c", $e, '»~=» changes each scalar';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-metaops/not.t
@@ -63,6 +63,6 @@ isa_ok 4 !=:= 5, Bool, "4 !=:= 5 is Bool";
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-metaops/reduce.t
@@ -237,5 +237,5 @@ is( ([\R~] 'a'..*).[^8].join(', '), 'a, ba, cba, dcba, edcba, fedcba, gfedcba, h
is ([~] 1, 2, 5), '125', '[~] works outside class';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-metaops/reverse.t
@@ -58,6 +58,6 @@ is 3 R/ 9 + 5, 8, 'R/ gets precedence of /';
is 4 R- 5 R/ 10, -2, "Rop gets the precedence of op";
is (9 R... 1, 3), (1, 3, 5, 7, 9), "Rop gets list_infix precedence correctly";
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-metaops/zip.t
@@ -40,6 +40,6 @@ is (1, 2, 3, * Z+ 10, 20, 30, 40, 50), (11, 22, 33, 43, 53), 'zip-plus extends l
is (2, 10, * Z* 3, 4, 5, *).munch(5),
(6, 40, 50, 50, 50), 'zip-product extends two arguments ending with *';
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/arith.t
@@ -308,6 +308,6 @@ dies_ok( { $x := 0; say 3 div $x; }, 'Division by zero dies and is catchable wit
ok 1/7 / 1/7 == 1/49, 'no more Rat literals, infix:</> has normal left assoc';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/comparison-simple.t
@@ -39,6 +39,6 @@ is(1 cmp 2, -1, '1 cmp 2 is increase');
is(2 cmp 1, 1, '2 cmp 1 is decrease');
is('a' cmp 1, 1, '"a" cmp 1 is decrease'); # unspecced but P5 behavior
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/context.t
@@ -81,6 +81,6 @@ eval_dies_ok('@', 'Anonymous variable outside of declaration');
eval_dies_ok('%', 'Anonymous variable outside of declaration');
eval_dies_ok('&', 'Anonymous variable outside of declaration');
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/nesting.t
@@ -54,6 +54,6 @@ is (1 RR[R-] 2), 1, 'RR[R-] works';
is 1031 [blue] 4, 3, "1031 [blue] 4 == 3";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/not.t
@@ -33,6 +33,6 @@ is(not False, True, "'False' is not 'True'");
isa_ok(not False, Bool, "'not False' is a Bool");
is(not False, Bool::True, "'False' is not 'Bool::True'");
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/range-basic.t
@@ -202,6 +202,6 @@ nok 'd' ~~ *..'c', "not 'd' ~~ *..'c'";
ok ' ' ~~ ' '..'A', "' ' ~~ ' '..'A'";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/range-int.t
@@ -483,5 +483,5 @@ is ~(17..^Inf).list.munch(20), '17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
is ~(17^..Inf).list.munch(20), '18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37', '17^..Inf';
is ~(17^..^Inf).list.munch(20), '18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37', '17^..^Inf';
-done_testing;
+done;
# # vim: ft=perl6
View
2  S03-operators/relational.t
@@ -136,6 +136,6 @@ ok("a" lt "a ", 'a lt a\x20');
ok("a\0" gt "a", 'a\0 gt a');
ok("a " gt "a", 'a\x20 gt a');
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/short-circuit.t
@@ -184,6 +184,6 @@ ok (0 || 0 || 1), '0 || 0 || 1 is true';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/ternary.t
@@ -71,6 +71,6 @@ eval_dies_ok q[ 1 ?? 2,3 !! 4,5 ], 'Ternary error (RT 66840)';
eval_dies_ok q[ 71704 !! 'bust' ], 'Ternary error (RT 71704)';
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-operators/value_equivalence.t
@@ -175,6 +175,6 @@ plan 74;
ok (1 !=== "1"), '!=== on values (1 !=== "1")';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-sequence/arity-2-or-more.t
@@ -44,4 +44,4 @@ is (1, 1, 2, 3, { $^a + $^b } ... 9).[^7].join(', '), '1, 1, 2, 3, 5, 8, 13', 'a
}
is (1, 2, sub {[*] @_[*-1], @_ + 1} ... 720).join(' '), '1 2 6 24 120 720', 'slurpy factorial generator';
-done_testing;
+done;
View
2  S03-sequence/arity0.t
@@ -39,4 +39,4 @@ plan 13;
}
-done_testing;
+done;
View
2  S03-sequence/basic.t
@@ -236,6 +236,6 @@ is (32,16,8 ...^ Rat), (32,16,8) , 'stop on a matching type';
# RT #75828
eval_dies_ok '1, 2, 3, ... 5', 'comma before sequence operator is caught';
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-sequence/misc.t
@@ -78,6 +78,6 @@ is (1, 2 ... 0, 1 ... 3).join(' '),
is @rt80574[0], 'zero', 'Generator output is flattened';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-sequence/nonnumeric.t
@@ -82,6 +82,6 @@ is ('A' ...^ 'ZZ')[*-1], 'ZY', "'A' ...^ 'ZZ' omits last element";
is ($f(2) ...^ 0).join(' '), 'P2 P1', 'exclusive decreasing not-quite-periodic sequence';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-any.t
@@ -26,6 +26,6 @@ plan 8;
'defg' !~~ ($x = $_);
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-array-slice.t
@@ -15,6 +15,6 @@ use Test;
"array slice .[0,1] of (0,1,2,3) is false";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-array.t
@@ -19,6 +19,6 @@ plan 6;
ok !(1 ~~ [1, 2]), 'Any ~~ Array (Int, -, it is not any())';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-bool.t
@@ -25,6 +25,6 @@ plan 12;
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-callable.t
@@ -21,6 +21,6 @@ plan 6;
ok(!(Mu ~~ &nuhuh), "negated scalar sub false");
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-complex.t
@@ -17,6 +17,6 @@ plan 12;
ok (3 !~~ (3 + 1i)), 'Num !~~ Complex (+)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-hash-pair.t
@@ -14,6 +14,6 @@ plan 7;
ok !(%a ~~ a => 'foo'), '%hash ~~ Pair (key and val not paired)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-hash-slice.t
@@ -21,6 +21,6 @@ use Test;
ok !(%h ~~ .<c d f>), '%hash ~~ .<not all exist>';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-method.t
@@ -33,6 +33,6 @@ use Test;
ok !$c, '..method(args) should not trigger when-block when false';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-num.t
@@ -30,6 +30,6 @@ plan 18;
nok (4+0i ~~ 3.Num), 'Complex ~~ Num (-)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-pair.t
@@ -30,6 +30,6 @@ plan 10;
dies_ok {$o ~~ :e(5)}, '$obj ~~ Pair, nonexistent, dies (2)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-str.t
@@ -12,6 +12,6 @@ plan 5;
ok (Mu ~~ ''), 'Mu ~~ ""';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-sub.t
@@ -16,6 +16,6 @@ use Test;
ok ($div ~~ .(0)), '~~ .($args) sub call truth (-,2)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/any-type.t
@@ -15,6 +15,6 @@ plan 3;
ok !(Chihuahua ~~ Cat), "chihuahua is not a cat";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/array-array.t
@@ -49,6 +49,6 @@ plan 36;
ok (1..10 ~~ *,5,*), 'smartmatch with Array RHS co-erces LHS to list';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/array-hash.t
@@ -15,6 +15,6 @@ plan 6;
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/capture-signature.t
@@ -26,6 +26,6 @@ is t2([1]), "godis", "signature smart-match against array works (1)";
is t2([1,2]), "om nom nom", "signature smart-match against array works (2)";
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/disorganized.t
@@ -147,6 +147,6 @@ eval_lives_ok 'class A { method foo { return "" ~~ * } }; A.new.foo',
ok "foo" ~~ *, 'thing ~~ * is true';
ok ("foo" ~~ *) ~~ Bool, 'thing ~~ * is a boolean';
-done_testing();
+done();
# vim: ft=perl6
View
2  S03-smartmatch/hash-hash.t
@@ -19,6 +19,6 @@ my %hash5 = ( "foo" => 1, "bar" => 1, "gorch" => Mu, "baz" => Mu );
ok eval_elsewhere('!(%hash1 ~~ %hash4)'), "hash keys differ";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/regex-hash.t
@@ -11,6 +11,6 @@ plan 4;
ok !(/foo/ ~~ %h), 'Regex ~~ Hash (-,value)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S03-smartmatch/scalar-hash.t
@@ -10,6 +10,6 @@ plan 3;
ok !('foo' ~~ %h), 'Scalar ~~ Hash (-)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-declarations/constant.t
@@ -272,6 +272,6 @@ use Test;
is A.new.z, 6, 'Can use outer constants in a class';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-exceptions/fail.t
@@ -47,6 +47,6 @@ plan 8;
dies_ok { ~$rt70229 }, 'attempt to stringify Failure dies';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-exceptions/pending.t
@@ -78,6 +78,6 @@ sub fail_it { fail $^a }
ok $win.handled, '.handled method is true for all Mus';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-phasers/in-eval.t
@@ -95,6 +95,6 @@ our $h;
is $end, '12', 'END {} does not run at run time either';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-statement-modifiers/for.t
@@ -100,6 +100,6 @@ plan 18;
eval_dies_ok '1 for <a b> for <c d>;', 'double statement-modifying for is not allowed';
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-statements/for.t
@@ -488,6 +488,6 @@ ok $! ~~ / 'C-style' /, 'Sensible error message';
is $a, 1, 'for on Range with huge max value is lazy and enters block';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-statements/quietly.t
@@ -17,6 +17,6 @@ is_run( 'quietly { note "eton" }; say "life"',
{ status => 0, err => "eton\n", out => "life\n" },
'"note" in "quietly" works' );
-done_testing;
+done;
# vim: ft=perl6
View
2  S04-statements/try.t
@@ -103,6 +103,6 @@ plan 17;
is $catches, 1, 'CATCH does not catch exceptions thrown within it';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-capture/caps.t
@@ -53,6 +53,6 @@ ok ' abcdef' ~~ m/.*?(a(.).)/, 'Regex matches';
is ca($0.caps), '0:b', '.caps on submatches';
is ca($0.chunks), '~:a|0:b|~:c', '.chunks on submatches';
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-grammar/inheritance.t
@@ -60,6 +60,6 @@ is(~('baz' ~~ /^<Grammar::Baz::any>$/), 'baz', 'got right match');
is(Grammar.WHAT,"Grammar()", "Grammar.WHAT = Grammar()");
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-grammar/methods.t
@@ -21,4 +21,4 @@ grammar WithOuterLex {
WithOuterLex.parse('xxx');
is $x, 42, 'regex in a grammar can see outer lexicals';
-done_testing;
+done;
View
2  S05-grammar/parse_and_parsefile.t
@@ -48,6 +48,6 @@ dies_ok { ::No::Such::Grammar.parse() }, '.parse on missing grammar dies';
lives_ok { Integer.parse('x') }, 'can .parse grammar named "Integer"';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-interpolation/lexicals.t
@@ -20,4 +20,4 @@ is ~$/, 'oabcd', 'correctly matched string';
is $<other>, 'abc', 'correctly captured to $<other>';
-done_testing;
+done;
View
2  S05-mass/rx.t
@@ -2474,6 +2474,6 @@ ok eval(q{{ 'abcdef' ~~ / / }}) ~~ Failure && $! ~~ /Null pattern illegal/, 'ws
#?rakudo todo 'RT 70606'
eval_dies_ok '"b" ~~ /b| /', 'null pattern after alternation';
-done_testing;
+done;
# vim: ft=perl6 sw=4 expandtab
View
2  S05-match/blocks.t
@@ -107,6 +107,6 @@ ok !defined($/), '$/ still undefined in the outer block';
}
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-match/capturing-contexts.t
@@ -135,6 +135,6 @@ is_run( q{'aa' ~~ /(.)$1/},
is $x, 2, '$/.list does not flattens subcaptures';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-metasyntax/angle-brackets.t
@@ -288,6 +288,6 @@ character classes), and those are referenced at the correct spot.
is('!abc!' ~~ /<<abc>>/, 'abc', 'both word boundaries (\W character)');
}
-done_testing();
+done();
# vim: ft=perl6
View
2  S05-metasyntax/charset.t
@@ -70,6 +70,6 @@ eval_dies_ok( "'RT 71702' ~~ /<[d..b]>? RT/",
ok 'b' ~~ /<[. .. b]>/, 'weird char class matches at least its end point';
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-modifier/continue.t
@@ -47,6 +47,6 @@ my $string = "1a2a3a";
is(~$m, '3a', "match third 'a'");
}
-done_testing;
+done;
# vim: syn=perl6 sw=4 ts=4 expandtab
View
2  S05-modifier/counted-match.t
@@ -79,6 +79,6 @@ my $data = "f fo foo fooo foooo fooooo foooooo";
'ac, ae', 'non-monotonic items in :nth are ignored';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-modifier/exhaustive.t
@@ -143,6 +143,6 @@ is(~$/[2]<noun>, 'arrow', 'Rule capture 2 noun');
ok(!( "fooooo" ~~ m:exhaustive { s o+ } ), 'Subsequent failed any match...');
ok(@$/ == 0, '...leaves @$/ empty');
-done_testing();
+done();
# vim: ft=perl6
View
2  S05-modifier/global.t
@@ -30,6 +30,6 @@ Testing the C<:global> regex modifier - more tests are always welcome
is ~(@matches[2]), "or", "Third match is 'or'";
}
-done_testing;
+done;
# vim: syn=perl6 sw=4 ts=4 expandtab
View
2  S05-modifier/ii.t
@@ -52,6 +52,6 @@ for @smart_tests -> $t {
is $test_str, $t[2], ":ii:sigspace modifier: {$t[0]} ~~ s:ii:s/.*/{$t[1]}/ => {$t[2]}";
}
-done_testing;
+done;
# vim: syn=perl6 sw=4 ts=4 expandtab
View
2  S05-modifier/my.t
@@ -73,5 +73,5 @@ is $DeclaratorTest1::our, 'zho', 'can access our variable from the outside';
is $a, 5, 'successful match preserves new :let value';
}
-done_testing;
+done;
# vim: ft=perl6 sw=4 ts=4 expandtab
View
2  S05-modifier/overlapping.t
@@ -84,6 +84,6 @@ my @expected = (
is ~@match[3], "abcd", "Last is abcd";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-modifier/pos.t
@@ -106,6 +106,6 @@ for ("abcdef") {
nok $str.match(/abc/, :pos(10)).Bool, "No match anchored to 10";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-modifier/ratchet.t
@@ -23,6 +23,6 @@ ok 'aaaa' ~~ m/ :ratchet ^ [ :!ratchet <aplus> a ] /,
ok 'aaaa' ~~ m/ ^ :!ratchet <aplus> :ratchet a /,
'Same if not grouped';
-done_testing;
+done;
# vim: ft=perl6
View
2  S05-substitution/subst.t
@@ -373,6 +373,6 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
':i(1) is OK';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-advanced_subroutine_features/callframe.t
@@ -31,6 +31,6 @@ f();
is $x, 23, '$x successfully modified';
-done_testing();
+done();
# vim: ft=perl6 number
View
2  S06-advanced_subroutine_features/callsame.t
@@ -29,6 +29,6 @@ use Test;
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-advanced_subroutine_features/wrap.t
@@ -196,6 +196,6 @@ dies_ok { {nextsame}() }, '{nextsame}() dies properly';
is $wrapped, 'meet', 'wrapper sees lexical from time of wrap (meet)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-multi/by-trait.t
@@ -17,6 +17,6 @@ use Test;
is $rw_call, 1, 'read-write multi was called';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-multi/proto.t
@@ -78,6 +78,6 @@ eval_dies_ok 'proto rt68242($a){};proto rt68242($c,$d){};',
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-multi/syntax.t
@@ -128,6 +128,6 @@ ok(~&foo ~~ /foo/, 'a multi stringifies sensibly');
dies_ok { $x(23) }, '... and does not contain the full multiness';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-multi/type-based.t
@@ -186,6 +186,6 @@ is(mmd(1..3), 2, 'Slurpy MMD to listop via list');
is y(1, 2.5), 2, 'generics in multis (-)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-operator-overloading/sub.t
@@ -407,6 +407,6 @@ Testing operator overloading subroutines
is 2+2, 4, 'overloading an operator does not hide other candidates';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-operator-overloading/workout.t
@@ -252,6 +252,6 @@ is_approx_array(((3/2) <<*<< @vectors) >>T-<< @vectors , @vectors >>/>> 2,
is_approx_array(((3/2) <<*<< @vectors) »T-« @vectors , @vectors >>/>> 2,
"Hyper: 3/2 v - v equals v / 2");
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-other/anon-hashes-vs-blocks.t
@@ -48,6 +48,6 @@ ok $bar ~~ Hash, '%foo in a block causes hash composing';
ok {;} ~~ Block, '{;} is a Block';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-other/main-eval.t
@@ -21,6 +21,6 @@ ok ! $!, 'no exception thrown';
ok $eval_worked, 'eval code executed';
is $main_invoked, 0, 'sub MAIN is not called in eval()';
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-signature/introspection.t
@@ -125,6 +125,6 @@ sub j(*@i) {
ok &foo.signature.perl ~~ / ':' /, '.perl of a signature with anonymous named parameter';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-signature/named-parameters.t
@@ -317,6 +317,6 @@ eval_dies_ok 'sub svn28865( :$a, :@a ) {}',
is named_empty(|%h), 42, 'can call function with empty named argument';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-signature/optional.t
@@ -65,6 +65,6 @@ dies_ok {foo_53814(1,Mu,'something_extra',:y(3))},
eval_dies_ok( 'sub rt66822($opt?, $req) { "$opt, $req" }',
"Can't put required parameter after optional parameters" );
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-signature/slurpy-params.t
@@ -329,6 +329,6 @@ eval_dies_ok 'sub rt65324(*@x, $oops) { say $oops }',
'slurpy array can be indexed if index contains prefix:<+>';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-signature/unspecified.t
@@ -51,6 +51,6 @@ is both(), '',
is $tender, 'sanity', 'The variable passed is unchanged.';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S06-traits/is-readonly.t
@@ -49,6 +49,6 @@ use Test;
'dies on assignment to (my $x is readonly)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S07-iterators/range-iterator.t
@@ -149,4 +149,4 @@ use Test;
is $r.get, 7, '$r.get == 7';
}
-done_testing;
+done;
View
2  S09-typed-arrays/arrays.t
@@ -152,6 +152,6 @@ lives_ok { my @x = 1 .. 3 }, 'initialization of typed array from range';
'can assign to untyped array in presence of typed array';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-attributes/delegation.t
@@ -180,6 +180,6 @@ class PairTest {
is $h.Str, ~{a => 5}, 'delegation of .Str and .push to hash';
}
-done_testing;
+done;
# vim: syn=perl6
View
2  S12-attributes/instance.t
@@ -587,6 +587,6 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
}
-done_testing();
+done();
# vim: ft=perl6
View
2  S12-construction/new.t
@@ -73,6 +73,6 @@ is $o.x, 5, '... worked for the class Parent (other order)';
is $x.y, 'k', '... got the right attribute (2)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-enums/basic.t
@@ -104,6 +104,6 @@ dies_ok({ my Color $c3 = "for the fail" }, 'enum as a type enforces checks');
is bug71460, 1, 'enum element of enum with double colons is in namespace';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-enums/thorough.t
@@ -110,6 +110,6 @@ ok Bool::True.perl ~~/^ 'Bool::True'/, 'Bool::True.perl';
is RT65658((Todo + 3.2).Int), RT65658::Ticket, 'enum and math and index';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-methods/attribute-params.t
@@ -35,6 +35,6 @@ is $x.a.join('|'), '1|2', 'slurpy array param set correctly';
is $x.ssh(a=> 1, b => 2), 15, 'slurpy hash attributive paramed method returns the right thing';
is $x.h<b a>.join('|'), '2|1', 'slurpy hash param set correctly';
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-methods/method-vs-sub.t
@@ -27,6 +27,6 @@ is foo($obj), 'sub', 'adding trailing comma should call the "sub"';
"Can return from method called from a hash lookup (RT 69610)" );
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-methods/multi.t
@@ -206,6 +206,6 @@ is Bar.new.a("not an Int"), 'Any-method in Foo';
'error message for failed dispatch contains invocant type';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-methods/what.t
@@ -108,6 +108,6 @@ ok 1.1 == 11/10, 'decimal == the equivalent rational';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S12-subset/subtypes.t
@@ -222,6 +222,6 @@ ok "x" !~~ NW1, 'subset declaration without where clause rejects wrong value';
is $*call2, 1, 'level two subset checked (should succeed)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S14-roles/basic.t
@@ -154,6 +154,6 @@ lives_ok {0 but True}, '0 but True has applicable candidate';
'can call method from a role with a name already assigned to a class';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S14-roles/composition.t
@@ -116,6 +116,6 @@ ok rB !~~ RT64002, 'role not matched by second role it does';
'method of the same name from two different roles collide in a class composition';
}
-done_testing;
+done;
# vim: syn=perl6
View
2  S14-traits/routines.t
@@ -51,6 +51,6 @@ is &lolcat.description, 'missing description!', 'named trait handler applied oth
is $recorder, 'wrap', 'and the wrapper has been called once';
}
-done_testing();
+done();
# vim: ft=perl6
View
2  S16-filehandles/io.t
@@ -231,6 +231,6 @@ nok $filename.IO ~~ :e, '... and the tempfile is gone, really';
is $buf.decode("ISO-8859-1"), "föö", "the bytes decode into the right Str";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S24-testing/6-done_testing.t
@@ -2,4 +2,4 @@ use Test;
pass;
ok 1;
ok 0,:todo(1);
-done_testing;
+done;
View
2  S32-array/pop.t
@@ -93,6 +93,6 @@ plan 33;
# todo_throws_ok { 'pop @push' }, '?? what should this error message be ??', 'cannot push onto a Inf array';
# }
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-array/rotate.t
@@ -57,6 +57,6 @@ plan 28;
is ~<a b c d e>.rotate, 'b c d e a', 'List.rotate';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-array/shift.t
@@ -91,6 +91,6 @@ plan 32;
# todo_throws_ok { 'shift(@shift)' }, '?? what should this error message be ??', 'cannot shift off of a Inf array';
# }
-done_testing;
+done;
# vim: syn=perl6
View
2  S32-hash/delete.t
@@ -54,6 +54,6 @@ ok !defined(%hash{"a"}), "deleted hash elements are really deleted";
is $rt68482.WHAT, 3.WHAT, '.WHAT of stored .delete is the element';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-hash/delete_adverb.t
@@ -44,6 +44,6 @@ ok !defined(%hash{"a"}), "deleted hash elements are really deleted";
eval_dies_ok '$a :delete', "Can't :delete a scalar";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-io/note.t
@@ -54,6 +54,6 @@ is_run( 'try { note "with try" }',
},
'try { } block does not prevent note() from outputting something' );
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-list/grep.t
@@ -141,6 +141,6 @@ my @list = (1 .. 10);
is ~(1...100).grep(* %% 2).grep(* %% 3), ~(6, 12 ... 96), "chained greps work";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-list/minmax.t
@@ -150,6 +150,6 @@ is ([max] (5,10,-15,20)), 20, 'reduce max int';
is ([min] (5.1,10.3,-15.7,20.9)), -15.7, 'reduce min numeric';
is ([max] (5.4,10.7,-15.2,20.8)), 20.8, 'reduce max numeric';
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-list/reduce.t
@@ -70,6 +70,6 @@ eval_lives_ok( 'reduce -> $a, $b, $c? { $a + $b * ($c//1) }, 1, 2', 'Use proper
is( ((1..4).list.reduce: &infix:<*>), 24, '.reduce: &infix:<*> works' );
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/abs.t
@@ -46,6 +46,6 @@ is( abs("-10"), 10, 'absolute value of "-10" is 10');
is( abs(70596).WHAT, 70596.abs.WHAT, 'abs(x).WHAT parses as x.abs.WHAT' );
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/complex.t
@@ -120,6 +120,6 @@ is_approx e.log(1i), -2i / pi, "log e base i == -2i / pi";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/cool-num.t
@@ -81,6 +81,6 @@ is "0".sign, 0, '"0".sign == 0';
is_approx "17".cis, 17.cis, '"17".cis == 17.cis';
is_approx "17".unpolar("42"), 17.unpolar(42), '"17".unpolar("42") == 17.unpolar(42)';
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/power.t
@@ -72,6 +72,6 @@ is_approx((-3i) ** 3, 27i, "-3i ** 3 = 27i");
# Complex ** Complex
is_approx((4 + 0i) ** (2 + 0i), 4 ** 2, "(4+0i) ** (2+0i) == 16");
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/rat.t
@@ -237,6 +237,6 @@ is .88888888888.WHAT, 'Rat()', 'WHAT works on Rat created from 11 digit decimal
isa_ok (2/3) ** 3, Rat, "Rat raised to a positive Int power is a Rat";
is (2/3) ** 3, 8/27, "Rat raised to a positive Int power gets correct answer";
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/real-bridge.t
@@ -298,6 +298,6 @@ ok 0 <= (4/3).rand < 4/3, "Rat.rand returns a valid result";
ok 0 <= $one-and-one-hundredth.rand < $one-and-one-hundredth, "Fixed2.rand returns a valid result";
ok 0 <= 32.75.Num.rand < 32.75, "Num.rand returns a valid result";
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/rounders.t
@@ -117,6 +117,6 @@ for %tests.keys.sort -> $t {
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/sign.t
@@ -61,6 +61,6 @@ is(sign(NaN),NaN, 'sign of NaN is NaN');
ok sign(Int).notdef, 'sign(Int) is undefined';
ok sign(3+4i).notdef, 'sign(Complex) fails';
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-num/unpolar.t
@@ -97,6 +97,6 @@ my $pi = 312689/99532;
is_approx(4.Num.unpolar($pi), -4, "4.Num.unpolar(pi) == -4");
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-scalar/undef.t
@@ -375,6 +375,6 @@ lives_ok { uc(eval("")) }, 'can use eval("") in further expressions';
ok !defined(foo()), 'can undefine $a twice without any troubles';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-str/comb.t
@@ -109,6 +109,6 @@ is (<a ab>, <bc ad ba>).comb(m:Perl5/\S*a\S*/), <a ab ad ba>,
is comb(/\d+/ , "Th3r3 4r3 s0m3 numb3rs 1n th1s str1ng" , 2), <3 3>, 'Subroutine form with limit';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-str/split-simple.t
@@ -96,6 +96,6 @@ ok (split('', '')).elems == 0, q{''.split('') returns empty list};
'split(:all) and trailing delimiter (values)';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-str/split-simple2.t
@@ -119,6 +119,6 @@ is 'abc'.split('', 3).Str, "a b c", 'split into characters respects limit (2)';
# 'split(:all) and trailing delimiter (values)';
# }
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-str/split.t
@@ -169,6 +169,6 @@ is "a.b".split(/\./).join(','), <a b>.join(','),
is @a[3][1], " ", "Fourth capture worked";
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-temporal/Date.t
@@ -115,4 +115,4 @@ sub d($x) { Date.new($x); }
is $c <=> $a, 1, '<=> (+1)';
}
-done_testing;
+done;
View
2  S32-temporal/DateTime-Instant-Duration.t
@@ -122,6 +122,6 @@ is DateTime.new(dtpi 2006, 1, 1, 0, 0, 0.2).second, 0.2, 'Round-tripping
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-temporal/DateTime.t
@@ -463,6 +463,6 @@ is dt(timezone => 3661).offset, 3661, 'DateTime.offset (1 hour, 1 minute, 1 seco
isa_ok DateTime.now.hour, Int, 'DateTime.now.hour isa Int';
}
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-temporal/calendar.t
@@ -194,6 +194,6 @@ nok date(1999, 1, 1).is-leap-year, 'Date.is-leap-year (1999)';
ok date(2000, 1, 1).is-leap-year, 'Date.is-leap-year (2000)';
ok dtim(2000, 1, 1).is-leap-year, 'DateTime.is-leap-year (2000)';
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-temporal/local.t
@@ -83,6 +83,6 @@ dies_ok { nyc-dt 1997, 6, 30, 23, 59, 60 }, 'Local time zone rejects bogus lea
$dt = ds('1998-12-31T23:59:60Z').local;
is ~$dt, '1998-12-31T18:59:60-0500', 'DateTime.local (from UTC, with leap second)';
-done_testing;
+done;
# vim: ft=perl6
View
2  S32-trig/atan2.t
@@ -314,6 +314,6 @@ is_approx(atan2(DifferentReal.new(10), DifferentReal.new(-0.1), Degrees), 90.572
is_approx(atan2(:y(DifferentReal.new(1)), :x(DifferentReal.new(-1))), 2.35619449019234, "atan2(:y(DifferentReal), :x(DifferentReal))");
is_approx(atan2(:y(DifferentReal.new(10)), :x(DifferentReal.new(1)), :base(Gradians)), 93.6548965138893, "atan2(:y(DifferentReal), :x(DifferentReal), :base(Gradians))");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/cos.t
@@ -190,6 +190,6 @@ is_approx(acos(DifferentReal.new(0.707106781186548), Radians), 0.785398163404734
is_approx(acos(:x(DifferentReal.new(0.707106781186548))), 0.785398163404734, "acos(:x(DifferentReal)) - 0.785398163404734");
is_approx(acos(:x(DifferentReal.new(0.707106781186548)), :base(Degrees)), 45, "acos(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/cosec.t
@@ -190,6 +190,6 @@ is_approx(acosec(DifferentReal.new(1.41421356236279), Radians), 0.78539816340473
is_approx(acosec(:x(DifferentReal.new(1.99999999998317))), 0.523598775603156, "acosec(:x(DifferentReal)) - 0.523598775603156");
is_approx(acosec(:x(DifferentReal.new(1.41421356236279)), :base(Degrees)), 45, "acosec(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/cosech.t
@@ -190,6 +190,6 @@ is_approx(acosech(DifferentReal.new(1.15118387090806), Radians), 0.7853981634047
is_approx(acosech(:x(DifferentReal.new(1.8253055746695))), 0.523598775603156, "acosech(:x(DifferentReal)) - 0.523598775603156");
is_approx(acosech(:x(DifferentReal.new(1.15118387090806)), :base(Degrees)), 45, "acosech(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/cosh.t
@@ -190,6 +190,6 @@ is_approx(acosh(DifferentReal.new(1.32460908925833), Radians), 0.785398163404734
is_approx(acosh(:x(DifferentReal.new(1.14023832107909))), 0.523598775603156, "acosh(:x(DifferentReal)) - 0.523598775603156");
is_approx(acosh(:x(DifferentReal.new(1.32460908925833)), :base(Degrees)), 45, "acosh(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/cotan.t
@@ -190,6 +190,6 @@ is_approx(acotan(DifferentReal.new(0.999999999985428), Radians), 0.7853981634047
is_approx(acotan(:x(DifferentReal.new(1.73205080754945))), 0.523598775603156, "acotan(:x(DifferentReal)) - 0.523598775603156");
is_approx(acotan(:x(DifferentReal.new(0.999999999985428)), :base(Degrees)), 45, "acotan(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/cotanh.t
@@ -190,6 +190,6 @@ is_approx(acotanh(DifferentReal.new(1.52486861881241), Radians), 0.7853981634047
is_approx(acotanh(:x(DifferentReal.new(2.08128336391745))), 0.523598775603156, "acotanh(:x(DifferentReal)) - 0.523598775603156");
is_approx(acotanh(:x(DifferentReal.new(1.52486861881241)), :base(Degrees)), 45, "acotanh(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/sec.t
@@ -190,6 +190,6 @@ is_approx(asec(DifferentReal.new(1.4142135623834), Radians), 0.785398163404734,
is_approx(asec(:x(DifferentReal.new(1.4142135623834))), 0.785398163404734, "asec(:x(DifferentReal)) - 0.785398163404734");
is_approx(asec(:x(DifferentReal.new(1.4142135623834)), :base(Degrees)), 45, "asec(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/sech.t
@@ -190,6 +190,6 @@ is_approx(asech(DifferentReal.new(0.754939708710524), Radians), 0.78539816340473
is_approx(asech(:x(DifferentReal.new(0.754939708710524))), 0.785398163404734, "asech(:x(DifferentReal)) - 0.785398163404734");
is_approx(asech(:x(DifferentReal.new(0.754939708710524)), :base(Degrees)), 45, "asech(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/sin.t
@@ -190,6 +190,6 @@ is_approx(asin(DifferentReal.new(0.707106781186548), Radians), 0.785398163404734
is_approx(asin(:x(DifferentReal.new(0.5))), 0.523598775603156, "asin(:x(DifferentReal)) - 0.523598775603156");
is_approx(asin(:x(DifferentReal.new(0.707106781186548)), :base(Degrees)), 45, "asin(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/sinh.t
@@ -190,6 +190,6 @@ is_approx(asinh(DifferentReal.new(0.86867096149566), Radians), 0.785398163404734
is_approx(asinh(:x(DifferentReal.new(0.547853473893578))), 0.523598775603156, "asinh(:x(DifferentReal)) - 0.523598775603156");
is_approx(asinh(:x(DifferentReal.new(0.86867096149566)), :base(Degrees)), 45, "asinh(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/tan.t
@@ -190,6 +190,6 @@ is_approx(atan(DifferentReal.new(1.00000000001457), Radians), 0.785398163404734,
is_approx(atan(:x(DifferentReal.new(0.577350269196102))), 0.523598775603156, "atan(:x(DifferentReal)) - 0.523598775603156");
is_approx(atan(:x(DifferentReal.new(1.00000000001457)), :base(Degrees)), 45, "atan(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  S32-trig/tanh.t
@@ -190,6 +190,6 @@ is_approx(atanh(DifferentReal.new(0.655794202636825), Radians), 0.78539816340473
is_approx(atanh(:x(DifferentReal.new(0.480472778160188))), 0.523598775603156, "atanh(:x(DifferentReal)) - 0.523598775603156");
is_approx(atanh(:x(DifferentReal.new(0.655794202636825)), :base(Degrees)), 45, "atanh(:x(DifferentReal), :base(Degrees)) - 45");
-done_testing;
+done;
# vim: ft=perl6 nomodifiable
View
2  integration/advent2009-day02.t
@@ -22,4 +22,4 @@ is { huey => 1, dewey => 2, louie => 3 }.fmt('%s', ' -- ').split(' -- ').sort.jo
'dewey -- huey -- louie', 'Hash with two-arg fmt';
-done_testing;
+done;