Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec] Add vim: lines everywhere.

perl -e 'my %h;@h{`grep -rl "use v6" t/spec`}=();delete @h{`grep -rl "vim:" t/spec`};print keys %h'
    | grep '\.t$'
    | xargs perl -pi -e 'if (eof) {print "$_\n# vim: ft=perl6\n";$_=""}'

git-svn-id: http://svn.pugscode.org/pugs@27911 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 7f29bc5383174959ee905fad3fb3a7bc8d86edbf 1 parent a921eb1
kyle authored
Showing with 600 additions and 0 deletions.
  1. +2 −0  S01-perl-5-integration/array.t
  2. +2 −0  S01-perl-5-integration/basic.t
  3. +2 −0  S01-perl-5-integration/class.t
  4. +2 −0  S01-perl-5-integration/eval_lex.t
  5. +2 −0  S01-perl-5-integration/exception_handling.t
  6. +2 −0  S01-perl-5-integration/hash.t
  7. +2 −0  S01-perl-5-integration/import.t
  8. +2 −0  S01-perl-5-integration/method.t
  9. +2 −0  S01-perl-5-integration/modify_inside_p5.t
  10. +2 −0  S01-perl-5-integration/modify_inside_p5_p6.t
  11. +2 −0  S01-perl-5-integration/return.t
  12. +2 −0  S01-perl-5-integration/roundtrip.t
  13. +2 −0  S02-builtin_data_types/anon_block.t
  14. +2 −0  S02-builtin_data_types/array.t
  15. +2 −0  S02-builtin_data_types/array_extending.t
  16. +2 −0  S02-builtin_data_types/array_mmd.t
  17. +2 −0  S02-builtin_data_types/array_ref.t
  18. +2 −0  S02-builtin_data_types/assigning-refs.t
  19. +2 −0  S02-builtin_data_types/autovivification.t
  20. +2 −0  S02-builtin_data_types/bool.t
  21. +2 −0  S02-builtin_data_types/catch_type_cast_mismatch.t
  22. +2 −0  S02-builtin_data_types/compact.t
  23. +2 −0  S02-builtin_data_types/declare.t
  24. +2 −0  S02-builtin_data_types/enum.t
  25. +2 −0  S02-builtin_data_types/flattening.t
  26. +2 −0  S02-builtin_data_types/hash.t
  27. +2 −0  S02-builtin_data_types/hash_ref.t
  28. +2 −0  S02-builtin_data_types/int-uint.t
  29. +2 −0  S02-builtin_data_types/lazy-lists.t
  30. +2 −0  S02-builtin_data_types/lists.t
  31. +2 −0  S02-builtin_data_types/multi_dimensional_array.t
  32. +2 −0  S02-builtin_data_types/nan.t
  33. +2 −0  S02-builtin_data_types/nested_arrays.t
  34. +2 −0  S02-builtin_data_types/nested_pairs.t
  35. +2 −0  S02-builtin_data_types/nil.t
  36. +2 −0  S02-builtin_data_types/num.t
  37. +2 −0  S02-builtin_data_types/pair.t
  38. +2 −0  S02-builtin_data_types/parsing-bool.t
  39. +2 −0  S02-builtin_data_types/sigils-and-types.t
  40. +2 −0  S02-builtin_data_types/subscripts_and_context.t
  41. +2 −0  S02-builtin_data_types/type.t
  42. +2 −0  S02-literals/array-interpolation.t
  43. +2 −0  S02-literals/char-by-name.t
  44. +2 −0  S02-literals/char-by-number.t
  45. +2 −0  S02-literals/fmt-interpolation.t
  46. +2 −0  S02-literals/hash-interpolation.t
  47. +2 −0  S02-literals/hex_chars.t
  48. +2 −0  S02-literals/misc-interpolation.t
  49. +2 −0  S02-literals/pair-boolean.t
  50. +2 −0  S02-literals/pairs.t
  51. +2 −0  S02-literals/pod.t
  52. +2 −0  S02-literals/quoting-unicode.t
  53. +2 −0  S02-literals/quoting.t
  54. +2 −0  S02-literals/string-interpolation.t
  55. +2 −0  S02-literals/sub-calls.t
  56. +2 −0  S02-literals/underscores.t
  57. +2 −0  S02-magicals/config.t
  58. +2 −0  S02-magicals/env.t
  59. +2 −0  S02-magicals/file_line.t
  60. +2 −0  S02-magicals/perlver.t
  61. +2 −0  S02-magicals/pid.t
  62. +2 −0  S02-magicals/progname.t
  63. +2 −0  S02-magicals/sub.t
  64. +2 −0  S02-magicals/subname.t
  65. +2 −0  S02-names/caller.t
  66. +2 −0  S02-names/our.t
  67. +2 −0  S02-names_and_variables/contextual.t
  68. +2 −0  S02-names_and_variables/fmt.t
  69. +2 −0  S02-names_and_variables/perl.t
  70. +2 −0  S02-names_and_variables/variables-and-packages.t
  71. +2 −0  S02-names_and_variables/varnames.t
  72. +2 −0  S02-one-pass-parsing/less-than.t
  73. +2 −0  S02-whitespace_and_comments/begin_end_pod.t
  74. +2 −0  S02-whitespace_and_comments/comments.t
  75. +2 −0  S02-whitespace_and_comments/end-pod.t
  76. +2 −0  S02-whitespace_and_comments/minimal-whitespace.t
  77. +2 −0  S02-whitespace_and_comments/one-pass-parsing.t
  78. +2 −0  S02-whitespace_and_comments/pod-in-multi-line-exprs.t
  79. +2 −0  S02-whitespace_and_comments/sub-block-parsing.t
  80. +2 −0  S03-junctions/basic.t
  81. +2 −0  S03-junctions/boolean-context.t
  82. +2 −0  S03-junctions/chained-operators.t
  83. +2 −0  S03-junctions/misc.t
  84. +2 −0  S03-operators/adverbial-modifiers.t
  85. +2 −0  S03-operators/assign-is-not-binding.t
  86. +2 −0  S03-operators/autoincrement.t
  87. +2 −0  S03-operators/basic-types.t
  88. +2 −0  S03-operators/binding-arrays.t
  89. +2 −0  S03-operators/binding-attributes.t
  90. +2 −0  S03-operators/binding-closure.t
  91. +2 −0  S03-operators/binding-hashes.t
  92. +2 −0  S03-operators/binding-nested.t
  93. +2 −0  S03-operators/binding-scalars.t
  94. +2 −0  S03-operators/binding-subs.t
  95. +2 −0  S03-operators/bit.t
  96. +2 −0  S03-operators/brainos.t
  97. +2 −0  S03-operators/chained-declarators.t
  98. +2 −0  S03-operators/comparison.t
  99. +2 −0  S03-operators/context-forcers.t
  100. +2 −0  S03-operators/context.t
  101. +2 −0  S03-operators/cross-metaop.t
  102. +2 −0  S03-operators/eager-hyper.t
  103. +2 −0  S03-operators/equality.t
  104. +2 −0  S03-operators/feed.t
  105. +2 −0  S03-operators/flip-flop.t
  106. +2 −0  S03-operators/identity.t
  107. +2 −0  S03-operators/increment.t
  108. +2 −0  S03-operators/inplace.t
  109. +2 −0  S03-operators/misc.t
  110. +2 −0  S03-operators/not.t
  111. +2 −0  S03-operators/numeric-context.t
  112. +2 −0  S03-operators/overflow.t
  113. +2 −0  S03-operators/p5arrow.t
  114. +2 −0  S03-operators/range-by.t
  115. +2 −0  S03-operators/range.t
  116. +2 −0  S03-operators/relational.t
  117. +2 −0  S03-operators/repeat.t
  118. +2 −0  S03-operators/scalar-assign.t
  119. +2 −0  S03-operators/short-circuit.t
  120. +2 −0  S03-operators/spaceship-and-containers.t
  121. +2 −0  S03-operators/subscript-adverbs.t
  122. +2 −0  S03-operators/ternary.t
  123. +2 −0  S03-operators/true.t
  124. +2 −0  S03-operators/value_equivalence.t
  125. +2 −0  S04-blocks-and-statements/let.t
  126. +2 −0  S04-blocks-and-statements/pointy-rw.t
  127. +2 −0  S04-closure-traits/ascending-order.t
  128. +2 −0  S04-closure-traits/check.t
  129. +2 −0  S04-closure-traits/descending-order.t
  130. +2 −0  S04-closure-traits/end.t
  131. +2 −0  S04-closure-traits/enter-leave.t
  132. +2 −0  S04-closure-traits/exit-in-begin.t
  133. +2 −0  S04-closure-traits/exit-in-check.t
  134. +2 −0  S04-closure-traits/first.t
  135. +2 −0  S04-closure-traits/in-eval.t
  136. +2 −0  S04-closure-traits/in-loop.t
  137. +2 −0  S04-closure-traits/init.t
  138. +2 −0  S04-closure-traits/interpolate.t
  139. +2 −0  S04-closure-traits/keep-undo.t
  140. +2 −0  S04-closure-traits/multiple.t
  141. +2 −0  S04-closure-traits/next.t
  142. +2 −0  S04-closure-traits/pre-post.t
  143. +2 −0  S04-closure-traits/rvalue.t
  144. +2 −0  S04-closure-traits/start.t
  145. +2 −0  S04-declarations/implicit-parameter.t
  146. +2 −0  S04-declarations/multiple.t
  147. +2 −0  S04-exceptions/fail.t
  148. +2 −0  S04-statement-modifiers/for.t
  149. +2 −0  S04-statement-modifiers/given.t
  150. +2 −0  S04-statement-modifiers/if.t
  151. +2 −0  S04-statement-modifiers/unless.t
  152. +2 −0  S04-statement-modifiers/until.t
  153. +2 −0  S04-statement-modifiers/values_in_bool_context.t
  154. +2 −0  S04-statement-modifiers/while.t
  155. +2 −0  S04-statements/for-scope.t
  156. +2 −0  S04-statements/for_with_only_one_item.t
  157. +2 −0  S04-statements/gather.t
  158. +2 −0  S04-statements/given.t
  159. +2 −0  S04-statements/lazy.t
  160. +2 −0  S04-statements/leave.t
  161. +2 −0  S04-statements/map-and-sort-in-for.t
  162. +2 −0  S04-statements/next.t
  163. +2 −0  S04-statements/no-implicit-block.t
  164. +2 −0  S04-statements/redo.t
  165. +2 −0  S04-statements/repeat.t
  166. +2 −0  S04-statements/try.t
  167. +2 −0  S04-statements/unless.t
  168. +2 −0  S04-statements/until.t
  169. +2 −0  S04-statements/while.t
  170. +2 −0  S05-capture/alias.t
  171. +2 −0  S05-capture/array-alias.t
  172. +2 −0  S05-capture/dot.t
  173. +2 −0  S05-capture/hash.t
  174. +2 −0  S05-capture/named.t
  175. +2 −0  S05-grammar/inheritance.t
  176. +2 −0  S05-grammar/namespace.t
  177. +2 −0  S05-grammar/parse_and_parsefile.t
  178. +2 −0  S05-grammar/polymorphism.t
  179. +2 −0  S05-grammar/std.t
  180. +2 −0  S05-mass/named-chars.t
  181. +2 −0  S05-mass/properties-block.t
  182. +2 −0  S05-mass/properties-derived.t
  183. +2 −0  S05-mass/properties-general.t
  184. +2 −0  S05-mass/properties-script.t
  185. +2 −0  S05-mass/recursive.t
  186. +2 −0  S05-match/arrayhash.t
  187. +2 −0  S05-match/make.t
  188. +2 −0  S05-match/non-capturing.t
  189. +2 −0  S05-metachars/newline.t
  190. +2 −0  S05-metachars/tilde.t
  191. +2 −0  S05-metasyntax/angle-brackets.t
  192. +2 −0  S05-metasyntax/assertions.t
  193. +2 −0  S05-metasyntax/changed.t
  194. +2 −0  S05-metasyntax/charset.t
  195. +2 −0  S05-metasyntax/combchar.t
  196. +2 −0  S05-metasyntax/lookaround.t
  197. +2 −0  S05-metasyntax/null.t
  198. +2 −0  S05-metasyntax/prior.t
  199. +2 −0  S05-metasyntax/regex.t
  200. +2 −0  S05-metasyntax/repeat.t
  201. +2 −0  S05-metasyntax/sequential-alternation.t
  202. +2 −0  S05-modifier/counted.t
  203. +2 −0  S05-modifier/overlapping.t
  204. +2 −0  S05-modifier/perl5_0.t
  205. +2 −0  S05-modifier/perl5_1.t
  206. +2 −0  S05-modifier/perl5_2.t
  207. +2 −0  S05-modifier/perl5_3.t
  208. +2 −0  S05-modifier/perl5_4.t
  209. +2 −0  S05-modifier/perl5_5.t
  210. +2 −0  S05-modifier/perl5_6.t
  211. +2 −0  S05-modifier/perl5_7.t
  212. +2 −0  S05-modifier/perl5_8.t
  213. +2 −0  S05-modifier/perl5_9.t
  214. +2 −0  S05-transliteration/trans.t
  215. +2 −0  S05-transliteration/with-closure.t
  216. +2 −0  S06-advanced_subroutine_features/caller.t
  217. +2 −0  S06-advanced_subroutine_features/recurse.t
  218. +2 −0  S06-advanced_subroutine_features/stub.t
  219. +2 −0  S06-advanced_subroutine_features/wrap.t
  220. +2 −0  S06-currying/assuming-and-mmd.t
  221. +2 −0  S06-macros/opaque-ast.t
  222. +2 −0  S06-multi/positional-vs-named.t
  223. +2 −0  S06-multi/proto.t
  224. +2 −0  S06-multi/syntax.t
  225. +2 −0  S06-multi/value-based.t
  226. +2 −0  S06-operator-overloading/method.t
  227. +2 −0  S06-other/main-eval.t
  228. +2 −0  S06-routine-modifiers/proxy.t
  229. +2 −0  S06-routine-modifiers/scoped-named-subs.t
  230. +2 −0  S06-signature/arity.t
  231. +2 −0  S06-signature/mixed-placeholders.t
  232. +2 −0  S06-signature/multidimensional.t
  233. +2 −0  S06-signature/multiple-signatures.t
  234. +2 −0  S06-signature/scalar-type.t
  235. +2 −0  S06-signature/slurpy-blocks.t
  236. +2 −0  S06-signature/sub-ref.t
  237. +2 −0  S06-signature/tree-node-parameters.t
  238. +2 −0  S06-traits/is-copy.t
  239. +2 −0  S06-traits/is-readonly.t
  240. +2 −0  S06-traits/is-rw.t
  241. +2 −0  S06-traits/precedence.t
  242. +2 −0  S09-autovivification/autoincrement.t
  243. +2 −0  S09-subscript_slice/slice.t
  244. +2 −0  S10-packages/export.t
  245. +2 −0  S10-packages/nested-use.t
  246. +2 −0  S10-packages/require-and-use.t
  247. +2 −0  S10-packages/scope.t
  248. +2 −0  S11-modules/export.t
  249. +2 −0  S11-modules/import-tag.t
  250. +2 −0  S11-modules/import.t
  251. +2 −0  S11-modules/module.t
  252. +2 −0  S11-modules/re-export.t
  253. +2 −0  S11-modules/use-perl-6.t
  254. +2 −0  S12-attributes/augment-and-initialization.t
  255. +2 −0  S12-attributes/clone.t
  256. +2 −0  S12-attributes/defaults.t
  257. +2 −0  S12-attributes/mutators.t
  258. +2 −0  S12-attributes/recursive.t
  259. +2 −0  S12-attributes/undeclared.t
  260. +2 −0  S12-class/anonymous.t
  261. +2 −0  S12-class/attributes.t
  262. +2 −0  S12-class/basic.t
  263. +2 −0  S12-class/extending-arrays.t
  264. +2 −0  S12-class/inheritance-class-methods.t
  265. +2 −0  S12-class/inheritance.t
  266. +2 −0  S12-class/instantiate.t
  267. +2 −0  S12-class/interface-consistency.t
  268. +2 −0  S12-class/lexical.t
  269. +2 −0  S12-class/literal.t
  270. +2 −0  S12-class/magical-vars.t
  271. +2 −0  S12-class/namespaced.t
  272. +2 −0  S12-class/open_closed.t
  273. +2 −0  S12-class/rw.t
  274. +2 −0  S12-class/self-ineritance.t
  275. +2 −0  S12-construction/construction.t
  276. +2 −0  S12-construction/destruction.t
  277. +2 −0  S12-construction/new.t
  278. +2 −0  S12-enums/anonymous.t
  279. +2 −0  S12-enums/basic.t
  280. +2 −0  S12-enums/pseudo-functional.t
  281. +2 −0  S12-introspection/attributes.t
  282. +2 −0  S12-introspection/can.t
  283. +2 −0  S12-introspection/meta-class.t
  284. +2 −0  S12-introspection/methods.t
  285. +2 −0  S12-introspection/parents.t
  286. +2 −0  S12-introspection/roles.t
  287. +2 −0  S12-introspection/walk.t
  288. +2 −0  S12-methods/chaining.t
  289. +2 −0  S12-methods/class-and-instance.t
  290. +2 −0  S12-methods/defer-call.t
  291. +2 −0  S12-methods/instance.t
  292. +2 −0  S12-methods/lastcall.t
  293. +2 −0  S12-methods/method-vs-sub.t
  294. +2 −0  S12-methods/topic.t
  295. +2 −0  S12-methods/trusts.t
  296. +2 −0  S12-methods/typed-attributes.t
  297. +2 −0  S12-methods/what.t
  298. +2 −0  S12-subset/multi-dispatch.t
  299. +2 −0  S12-traits/basic.t
  300. +2 −0  S12-traits/parameterized.t
Sorry, we could not display the entire diff because too many files (398) changed.
View
2  S01-perl-5-integration/array.t
@@ -94,3 +94,5 @@ is(@array[0], 3, 'store result');
is(0+$p5array.fetch(0), 3, 'store result');
# TODO: pop, shift, unshift, splice, delete
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/basic.t
@@ -107,3 +107,5 @@ sub add_in_perl5 ($x, $y) {
}
is(add_in_perl5(42, 42), 84, 'Defining subroutines with "use v5" blocks');
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/class.t
@@ -19,3 +19,5 @@ unless (try { eval("1", :lang<perl5>) }) {
or die $!;
}, "perl5:CLASS.new";
}
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/eval_lex.t
@@ -5,3 +5,5 @@ plan 1;
my $self = "some text";
is ~eval(q/"self is $self"/,:lang<perl5>),"self is some text","lexical inside an eval";
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/exception_handling.t
@@ -37,3 +37,5 @@ lives_ok( {
my $err = $!;
$err.test;
}, "Accessing Perl5 method doesn't die");
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/hash.t
@@ -72,3 +72,5 @@ is($p5hash.fetch(5), 'a', 'fetch result');
is($p5hash.my_exists(5), %hash.exists(5), 'exists');
#?pugs todo 'bug'
is($p5hash.my_exists(12), %hash.exists(12), 'nonexists fail');
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/import.t
@@ -18,3 +18,5 @@ eval q[
use perl5:Text::Wrap 'wrap';
is(wrap('foo', 'bar', 'baz'), 'foobaz', "import p5 module");
] or die $!.perl;
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/method.t
@@ -124,3 +124,5 @@ my $obj;
$obj.modify_array(VAR @rw);
is(@rw[0], 99, 'modify a scalar ref');
}
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/modify_inside_p5.t
@@ -10,3 +10,5 @@ my $y = 'case';
};
is $x, 'testing', "scalar modified inside perl5 block";
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/modify_inside_p5_p6.t
@@ -23,3 +23,5 @@ is $x, 'testing', "scalar modified inside perl5 block";
#?pugs todo 'nested p5/p6 embedding'
is $y, 'casebook', "scalar modified inside perl6 block inside perl5 block";
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/return.t
@@ -29,3 +29,5 @@ sub get_dmd5 {
}
>>>;
+
+# vim: ft=perl6
View
2  S01-perl-5-integration/roundtrip.t
@@ -40,3 +40,5 @@ my %hash = (foo => 'bar', hate => 'software');
{
is_deeply([%hash.keys].sort, [$keys_p5(VAR %hash)].sort);
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/anon_block.t
@@ -125,3 +125,5 @@ is((sub { { 3 } }).(), 3, 'ditto for anonymous subs');
is((sub { { { 3 } } }).(), 3, 'ditto, even if nested');
dies_ok({(sub { { $^x } }).()}, 'implicit params become errors');
isnt((sub { -> { 3 } }).(), 3, 'as are pointies');
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/array.t
@@ -310,3 +310,5 @@ my @array2 = ("test", 1, undef);
dies_ok({push @arr, 's'}, 'type constraints on my Type @arr[num] works (1)');
dies_ok({push @arr, 4.2}, 'type constraints on my Type @arr[num] works (2)');
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/array_extending.t
@@ -87,3 +87,5 @@ plan 16;
ok @a[1] ~~ undef, '... and the second is undef';
is @a[2], 6, '... and the third is 6';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/array_mmd.t
@@ -46,3 +46,5 @@ my $here;
#?pugs todo 'bug'
is $here, 1, "slice store was redefined";
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/array_ref.t
@@ -128,3 +128,5 @@ is $array9[1][1][1][0], 42, "recursive array access (3)";
my $arrayref = [$foo];
ok $arrayref[0] !=:= $foo, "creating arrays using [] creates new containers (2)";
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/assigning-refs.t
@@ -154,3 +154,5 @@ plan 18;
is +%hash, 1, '%hash<a> = $hashref does not flatten the hashref';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/autovivification.t
@@ -63,3 +63,5 @@ sub foo ($baz is rw) {
sub bar ($baz is readonly) {
# readonly signature, should it autovivify?
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/bool.t
@@ -56,3 +56,5 @@ is(++$bool, Bool::True, 'Increment of Bool::True still produces Bool::True');
is(--$bool, Bool::False, 'Decrement of Bool::True produces Bool::False');
is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/catch_type_cast_mismatch.t
@@ -50,3 +50,5 @@ lives_ok( { $ref[0] }, 'Accessing a hash as a list of pairs is fine');
lives_ok { $y = [0, 7] }, 'can assign arrayref to scalar that held an hashref';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/compact.t
@@ -41,3 +41,5 @@ plan 10;
is($buf8.bytes, 26, '.bytes works on a buf8');
is($buf16.bytes, 26, '.bytes works on a buf16 (and returns the size in bytes)');
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/declare.t
@@ -545,3 +545,5 @@ plan 85;
# TODO FIXME
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/enum.t
@@ -140,3 +140,5 @@ is %hash.values, (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 'A', 'B', 'C', 'D', 'E', 'F'), '
#?rakudo skip 'RT #63826'
is EnumGrammar::G::b, 1, 'enum element in grammar has the right value';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/flattening.t
@@ -80,3 +80,5 @@ plan 34;
push @a, %foo;
is(@a.elems, 5, 'Hash flattened');
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/hash.t
@@ -182,3 +182,5 @@ ok( $!, "doesn't really make sense, but shouldn't segfault, either ($!)");
# test for RT #62730
lives_ok { Hash.new("a" => "b") }, 'Hash.new($pair) lives';
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/hash_ref.t
@@ -91,3 +91,5 @@ plan 32;
is %hash<ref><val>, 42, "access to infinite HoHoHoH... (1)";
is %hash<ref><ref><val>, 42, "access to infinite HoHoHoH... (2)";
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/int-uint.t
@@ -30,3 +30,5 @@ for @inttypes -> $type {
eval_dies_ok("my $type \$var = 42.1", "$type cannot be non-integer");
eval_dies_ok("my $type \$var = NaN", "$type cannot be NaN");
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/lazy-lists.t
@@ -220,3 +220,5 @@ is( (1..Inf, (1..Inf).reverse ).perl,
"(1, 2, 3,, ..., 3, 2, 1)",
"end of infinite list is readable" );
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/lists.t
@@ -141,3 +141,5 @@ plan 21;
class List is also { method rt62836_x { 62836 } };
is <1 2 3>.rt62836_x, 62836, 'call user-declared method in List:: class';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/multi_dimensional_array.t
@@ -120,3 +120,5 @@ is(eval('$multi2[1;2]'), 6, 'got the right value at multi2 index 1,2');
is($multi2[1][0], 4, 'got the right value at multi2 index 1,0');
is($multi2[1][1], 5, 'got the right value at multi2 index 1,1');
is($multi2[1][2], 6, 'got the right value at multi2 index 1,2');
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/nan.t
@@ -22,3 +22,5 @@ is Inf**0 , 1, "Inf**0 is 1, _not_ NaN";
#?rakudo todo 'truncate(NaN)'
ok truncate(NaN) ~~ NaN, 'truncate(NaN) ~~ NaN';
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/nested_arrays.t
@@ -32,3 +32,5 @@ plan 8;
is(+@d, 1, 'Array length, nested (), outer []s');
is(+$d, 4, 'Array object length, nested (), outer []s');
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/nested_pairs.t
@@ -21,3 +21,5 @@ is($list.value.key, 2, 'the list.value.key is 2');
isa_ok($list.value.value, Pair, '$list.value.value is-a Pair');
is($list.value.value.key, 3, 'the list.value.value.key is 3');
is($list.value.value.value, 4, 'the list.value.value.value is 4');
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/nil.t
@@ -18,3 +18,5 @@ plan 6;
ok $n ~~ Failure, 'variable holding nil ~~ Failure';
is $n.WHAT, 'Failure()', '.WHAT on Nil variable says Failure';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/num.t
@@ -152,3 +152,5 @@ is(4_2.0_1, 42.01, 'single underscores are ok');
is 0_1, 1, "0_1 is parsed as 0d1";
is +^1, -2, '+^1 == -2 as promised';
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/pair.t
@@ -360,3 +360,5 @@ Note, "non-chaining binary" was later renamed to "structural infix".
eval_lives_ok '(a => [])', 'can parse "(a => [])"';
lives_ok { (a => []) }, 'can execute "(a => [])"';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/parsing-bool.t
@@ -13,3 +13,5 @@ is (try { Bool::False or 42 }), 42, "Bool::False as LHS";
is (try { 42 or False }), 42, "False as RHS";
is (try { False or 42 }), 42, "False as LHS";
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/sigils-and-types.t
@@ -114,3 +114,5 @@ ok &baz.does(Callable), 'a rule does Callable';
macro quux {}
#?pugs todo 'feature'
ok &quux.does(Callable), 'a rule does Callable';
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/subscripts_and_context.t
@@ -55,3 +55,5 @@ plan 8;
is @array[3], 16, 'context inside of array subscripts when used with &postfix:<++>';
is %hash<c>, 24, 'context inside of hash subscripts when used with &postfix:<++>';
}
+
+# vim: ft=perl6
View
2  S02-builtin_data_types/type.t
@@ -147,3 +147,5 @@ my $baz of Int;
ok List ~~ Positional, 'A List does Positional';
ok Array ~~ Positional, 'Array does Positional too';
}
+
+# vim: ft=perl6
View
2  S02-literals/array-interpolation.t
@@ -58,3 +58,5 @@ plan 12;
#?rakudo todo 'Array interpolation b0rked'
is "@array[]", "a\t b c", "array whose elements do contain whitespace stringify correctly (3-2)";
}
+
+# vim: ft=perl6
View
2  S02-literals/char-by-name.t
@@ -29,3 +29,5 @@ is "\c[LATIN CAPITAL LETTER A, COMBINING GRAVE ACCENT]", "\x[0041,0300]", 'lette
#?rakudo skip 'RT #64918'
ok "\c[LATIN SMALL LETTER A WITH DIAERESIS,COMBINING CEDILLA]" ~~ /\w/,
'RT #64918 (some strings throw "Malformed UTF-8 string" errors';
+
+# vim: ft=perl6
View
2  S02-literals/char-by-number.t
@@ -85,3 +85,5 @@ is("\c65,66,67", 'A,66,67', '\clist not valid');
eval_dies_ok q{"\05"}, 'next char of \0 is 5';
eval_dies_ok q{"\07"}, 'next char of \0 is 7';
}
+
+# vim: ft=perl6
View
2  S02-literals/fmt-interpolation.t
@@ -61,3 +61,5 @@ is(
ok($z, 'eval was *really* ok');
is($y, $expected, 'fmt and code interpolation behave well');
+
+# vim: ft=perl6
View
2  S02-literals/hash-interpolation.t
@@ -39,3 +39,5 @@ plan 10;
is "%hash{'b'}", "b", 'can quote hash indexes in interpolations 1';
is "%hash{"b"}", "b", 'can quote hash indexes in interpolations 2';
}
+
+# vim: ft=perl6
View
2  S02-literals/hex_chars.t
@@ -21,3 +21,5 @@ plan 4;
}
}
+
+# vim: ft=perl6
View
2  S02-literals/misc-interpolation.t
@@ -90,3 +90,5 @@ is("x \c[65,66,000067] x", "x ABC x", "\\c[] allows multiple chars (2)");
is("x \x[41,42,43]] x", "x ABC] x", "\\x[] should not eat following ]s");
is("x \c[65,66,67]] x", "x ABC] x", "\\c[] should not eat following ]s");
+
+# vim: ft=perl6
View
2  S02-literals/pair-boolean.t
@@ -30,3 +30,5 @@ plan 6;
is $true_pair ?? 1 !! 0, 1, 'Ternary on a true pair returns first option';
is $false_pair ?? 1 !! 0, 1, 'Ternary on a false pair returns first option too';
}
+
+# vim: ft=perl6
View
2  S02-literals/pairs.t
@@ -136,3 +136,5 @@ sub f9 (:$bar!) { WHAT($bar) }
dies_ok { f9($arrayref => 42) },
"variables cannot be keys of syntactical pairs (3)";
}
+
+# vim: ft=perl6
View
2  S02-literals/pod.t
@@ -54,3 +54,5 @@ plan 5;
=begin DATA
hello, world!
=end DATA
+
+# vim: ft=perl6
View
2  S02-literals/quoting-unicode.t
@@ -73,3 +73,5 @@ RIGHT SQUARE BRACKET WITH TICK IN BOTTOM CORNER(U+298D/U+298E)';
$var = @list[q〈1〉];
is $var, 'b', 'q-style string with LEFT/RIGHT ANGLE BRACKET';
}
+
+# vim: ft=perl6
View
2  S02-literals/quoting.t
@@ -529,3 +529,5 @@ Hello, World
is('test\\', "test\\", "backslashes at end of single quoted string");
is 'a\\b\''.chars, 4, 'backslash and single quote';
}
+
+# vim: ft=perl6
View
2  S02-literals/string-interpolation.t
@@ -27,3 +27,5 @@ plan 8;
ok "$a" ~~ Str, '"$a" results in a Str';
ok "{3}" ~~ Str, '"{3}" results in a Str';
}
+
+# vim: ft=perl6
View
2  S02-literals/sub-calls.t
@@ -72,3 +72,5 @@ plan 20;
# $bar.baz.foo(quux)
# but we need tests, tests, tests! XXX
}
+
+# vim: ft=perl6
View
2  S02-literals/underscores.t
@@ -50,3 +50,5 @@ ok 2.1_23 == 2.123, "2.1_23 parses as number";
dies_ok { 2._foo }, "2._foo parses as method call";
dies_ok { 2._123 }, "2._123 parses as method call";
dies_ok { 2._e23 }, "2._23 parses as method call";
+
+# vim: ft=perl6
View
2  S02-magicals/config.t
@@ -27,3 +27,5 @@ my $osnames = any <darwin linux FreeBSD MSWin32 mingw msys cygwin browser>;
ok $?OS eq $osnames, "we know of the OS we were compiled in";
ok $*OS eq $osnames, "we know of the OS we are running under";
+
+# vim: ft=perl6
View
2  S02-magicals/env.t
@@ -139,3 +139,5 @@ ok !%*ENV.exists("does_not_exist"), "exists() returns false on a not defined env
ok $! ~~ m:P5/Undeclared/, '%ENV not visible by after lexical import scope';
1;
}
+
+# vim: ft=perl6
View
2  S02-magicals/file_line.t
@@ -16,3 +16,5 @@ ok($?FILE eq ('t/spec/S02-magicals/file_line.t' | 't\\spec\\S02-magicals\\file_l
# NOTE:
# above is a junction hack for Unix and Win32 file
# paths until the FileSpec hack is working - Stevan
+
+# vim: ft=perl6
View
2  S02-magicals/perlver.t
@@ -13,3 +13,5 @@ ok $*OS, '$*OS is present';
ok $?OSVER, '$?OSVER is present';
ok $*OSVER, '$*OSVER is present';
+
+# vim: ft=perl6
View
2  S02-magicals/pid.t
@@ -39,3 +39,5 @@ $child_pid .= chomp;
unlink $tempfile;
ok $*PID ne $child_pid, "My PID differs from the child pid ($*PID != $child_pid)";
+
+# vim: ft=perl6
View
2  S02-magicals/progname.t
@@ -18,3 +18,5 @@ ok($*PROGRAM_NAME ~~ / t['/'|'\\']spec['/'|'\\']S02'-'magicals['/'|'\\']progname
# above is a junction hack for Unix and Win32 file
# paths until the FileSpec hack is working - Stevan
# changed junction hack in test 2 to regex for Rakudo fudged filename - mberends
+
+# vim: ft=perl6
View
2  S02-magicals/sub.t
@@ -27,3 +27,5 @@ is($result3, 6, 'the &?ROUTINE magical works correctly in overloaded operators'
my $baz = try { &?ROUTINE };
ok(defined($baz), '&?ROUTINE is defined for the MAIN routine');
+
+# vim: ft=perl6
View
2  S02-magicals/subname.t
@@ -22,3 +22,5 @@ is($bar(), '<anon>', 'got the right routine name (anon-block)');
my $baz = try { &?ROUTINE.name };
ok(not(defined $baz), '&?ROUTINE.name not defined outside of a routine');
+
+# vim: ft=perl6
View
2  S02-names/caller.t
@@ -177,3 +177,5 @@ Larry ruled that as erroneous.
}
=end pod
+
+# vim: ft=perl6
View
2  S02-names/our.t
@@ -25,3 +25,5 @@ plan 7;
#?rakudo skip 'OUR::subname() does not work'
is OUR::c(), 'sub c', 'sub c called with OUR:: works';
}
+
+# vim: ft=perl6
View
2  S02-names_and_variables/contextual.t
@@ -25,3 +25,5 @@ plan 5;
ok $rv ~~ undef, "Testing for value of contextual variables that never existed.";
}
+
+# vim: ft=perl6
View
2  S02-names_and_variables/fmt.t
@@ -84,3 +84,5 @@ plan 19;
is [1,2].fmt(), '1 2', 'array .fmt without $fmt';
is {1=>"a"}.fmt(), "1\ta", 'hash .fmt without $fmt';
}
+
+# vim: ft=perl6
View
2  S02-names_and_variables/perl.t
@@ -203,3 +203,5 @@ plan 18 + 2*@tests;
lives_ok { RT67790.HOW.perl }, 'can .perl on .HOW';
# TODO: check that eval( RT67790.HOW.perl ) 'is' RT67790.HOW
}
+
+# vim: ft=perl6
View
2  S02-names_and_variables/variables-and-packages.t
@@ -136,3 +136,5 @@ ok !eval('module COMPILING; 1'), 'COMPILING is an out of scope name';
$a++;
is rmbl(), 2, "var captured by sub is the right var (2)";
}
+
+# vim: ft=perl6
View
2  S02-names_and_variables/varnames.t
@@ -15,3 +15,5 @@ eval_lives_ok 'my $/', 'as does $/';
eval_dies_ok 'my $f!ao = "beh";', "but normal varnames can't have ! in their name";
eval_dies_ok 'my $fo:o::b:ar = "bla"', "var names can't have colons in their names either";
+
+# vim: ft=perl6
View
2  S02-one-pass-parsing/less-than.t
@@ -28,3 +28,5 @@ ok eval('?< foo bar >'), "?<...> is parsed correctly";
is eval('~(< foo bar >)'), "foo bar", "~(<...>) is parsed correctly";
is eval('+(< foo bar >)'), 2, "+(<...>) is parsed correctly";
ok eval('?(< foo bar >)'), "?(<...>) is parsed correctly";
+
+# vim: ft=perl6
View
2  S02-whitespace_and_comments/begin_end_pod.t
@@ -14,3 +14,5 @@ ok 1, "Before the =END Block";
ok 2, "Afer the end block";
+
+# vim: ft=perl6
View
2  S02-whitespace_and_comments/comments.t
@@ -210,3 +210,5 @@ are both here, yay!
}
=end oppsFIXME
+
+# vim: ft=perl6
View
2  S02-whitespace_and_comments/end-pod.t
@@ -15,3 +15,5 @@ ok 1, "Before the =END Block";
ok 2, "Afer the end block";
+
+# vim: ft=perl6
View
2  S02-whitespace_and_comments/minimal-whitespace.t
@@ -25,3 +25,5 @@ eval_dies_ok('Thing. new', 'whitespace is not allowed after . after class name')
my $o = Thing.new;
eval_dies_ok('$o .whatever(5)', 'whitespace is not allowed before . before method');
eval_dies_ok('$o. whatever(5)', 'whitespace is not allowed after . before method');
+
+# vim: ft=perl6
View
2  S02-whitespace_and_comments/one-pass-parsing.t
@@ -7,3 +7,5 @@ plan 1;
ok(eval('regex foo { <[ } > ]> }; 1'),
"can parse non-backslashed curly and right bracket in cclass");
+
+# vim: ft=perl6
View
2  S02-whitespace_and_comments/pod-in-multi-line-exprs.t
@@ -45,3 +45,5 @@ my $myary = [
];
ok "anon array def parses when pod block is within it"; # TODO: complete this test
+
+# vim: ft=perl6
View
2  S02-whitespace_and_comments/sub-block-parsing.t
@@ -16,3 +16,5 @@ plan 2;
ok(sub { 42 }(), 'sub {...} works'); # TODO: clarify
ok(sub{ 42 }(), 'sub{...} works'); # TODO: clarify
+
+# vim: ft=perl6
View
2  S03-junctions/basic.t
@@ -39,3 +39,5 @@ for (1 .. 6) {
ok((1 ^ 2 ^ 3) == $j.eigenstates.pick, 'it is always at least one');
ok((1 | 2 | 3) == $j.eigenstates.pick, 'it is always one of them');
}
+
+# vim: ft=perl6
View
2  S03-junctions/boolean-context.t
@@ -66,3 +66,5 @@ ok true(Bool::True & Bool::False) == Bool::False, $message1;
ok true(Bool::True & Bool::False) !~~ Junction, $message2;
ok not(Bool::True & Bool::False) == Bool::True, $message1;
ok not(Bool::True & Bool::False) !~~ Junction, $message2;
+
+# vim: ft=perl6
View
2  S03-junctions/chained-operators.t
@@ -18,3 +18,5 @@ is +one(1,2,3).eigenstates, 3;
is +(1 ^ 2 ^ 3).eigenstates, 3;
is +none(1,2,3).eigenstates, 3;
+
+# vim: ft=perl6
View
2  S03-junctions/misc.t
@@ -422,3 +422,5 @@ sub junction_diff(Object $this, Object $that) {
}
is rt63686(), 'happiness', 'for loop over junction in sub';
}
+
+# vim: ft=perl6
View
2  S03-operators/adverbial-modifiers.t
@@ -308,3 +308,5 @@ is blub "bar":times(2), 'BLUBBLUBbar', 'user-defined prefix operator, :times adv
is (3 zin 4 :x(5)), '3,4,5', '(3 zin 4 :x(5))';
}
+
+# vim: ft=perl6
View
2  S03-operators/assign-is-not-binding.t
@@ -42,3 +42,5 @@ plan 9;
$a = 24;
is @list[0], 42, "Assignment to scalar didn't create a binding";
}
+
+# vim: ft=perl6
View
2  S03-operators/autoincrement.t
@@ -193,3 +193,5 @@ is(%z{0}, $base, '%z{0}');
# RT #63644
#?rakudo todo 'RT #63644'
eval_dies_ok 'my $a; $a++ ++;', 'parse error for "$a++ ++"';
+
+# vim: ft=perl6
View
2  S03-operators/basic-types.t
@@ -80,3 +80,5 @@ isa_ok($pair, Pair, 'it is a Pair type');
my $rule = rx/^hello\sworld$/;
isa_ok($rule, Regex, 'it is a Regex type');
}
+
+# vim: ft=perl6
View
2  S03-operators/binding-arrays.t
@@ -235,3 +235,5 @@ plan 47;
# <pmichaud> you should get a "Int does not do Positional role"
# exception or something like that.
}
+
+# vim: ft=perl6
View
2  S03-operators/binding-attributes.t
@@ -78,3 +78,5 @@ plan 12;
is $var, 19, "binding private class attribute (3)";
}
+
+# vim: ft=perl6
View
2  S03-operators/binding-closure.t
@@ -49,3 +49,5 @@ my &foo_c ::= { $^a + 5 };
is foo_c(1), 6, "Testing the value for placeholder(Compile-time binding)";
}
+
+# vim: ft=perl6
View
2  S03-operators/binding-hashes.t
@@ -181,3 +181,5 @@ plan 37;
is ~$hashref.values.sort, "a c", 'binding %hash := $hashref works (2)';
is ~%hash\ .values.sort, "a c", 'binding %hash := $hashref works (3)';
}
+
+# vim: ft=perl6
View
2  S03-operators/binding-nested.t
@@ -338,3 +338,5 @@ plan 43;
"rebinding to some other value destroys the previous binding (5)";
}
+
+# vim: ft=perl6
View
2  S03-operators/binding-scalars.t
@@ -130,3 +130,5 @@ plan 28;
#?pugs todo
ok($a == 1 && ~@tail eq '2 3', 'bound slurpy');
}
+
+# vim: ft=perl6
View
2  S03-operators/binding-subs.t
@@ -111,3 +111,5 @@ constant?
}
=end discussion
+
+# vim: ft=perl6
View
2  S03-operators/bit.t
@@ -104,3 +104,5 @@ plan 24;
#?rakudo todo 'RT #67852'
lives_ok { ('bit' ~& 'wise').trans() }, 'can .trans() on bitwise result';
}
+
+# vim: ft=perl6
View
2  S03-operators/brainos.t
@@ -19,3 +19,5 @@ eval '$str =~ m/bar/;';
ok $! ~~ Exception, 'caught "=~" braino';
ok "$!" ~~ /'~~'/, 'error for "=~" usage mentions "~~"';
ok "$!" ~~ /'~='/, 'error for "=~" usage metnions "~="';
+
+# vim: ft=perl6
View
2  S03-operators/chained-declarators.t
@@ -37,3 +37,5 @@ eval_dies_ok '
', "scoping our, my ('our' doesn't leak)";
# XXX: add more!
+
+# vim: ft=perl6
View
2  S03-operators/comparison.t
@@ -32,3 +32,5 @@ is(1 cmp 1, Order::Same, '1 cmp 1 is same');
is(1 cmp 2, Order::Increase, '1 cmp 2 is increase');
is(2 cmp 1, Order::Decrease, '2 cmp 1 is decrease');
is('a' cmp 1, Order::Decrease, '"a" cmp 1 is decrease'); # unspecced but P5 behavior
+
+# vim: ft=perl6
View
2  S03-operators/context-forcers.t
@@ -218,3 +218,5 @@ sub eval_elsewhere($code){ eval($code) }
is (^@a).elems, 10, '^10 has 10 elems';
isa_ok ^@a, Range;
}
+
+# vim: ft=perl6
View
2  S03-operators/context.t
@@ -80,3 +80,5 @@ eval_dies_ok('@', 'Anonymous variable outside of declaration');
eval_dies_ok('@@', 'Anonymous variable outside of declaration');
eval_dies_ok('%', 'Anonymous variable outside of declaration');
eval_dies_ok('&', 'Anonymous variable outside of declaration');
+
+# vim: ft=perl6
View
2  S03-operators/cross-metaop.t
@@ -100,3 +100,5 @@ eval_dies_ok '@result Xcmp @expected Xcmp <1 2>',
$c := $b;
ok ( ? one $a, $b X=:= $c, $d ), 'one X=:=';
}
+
+# vim: ft=perl6
View
2  S03-operators/eager-hyper.t
@@ -42,3 +42,5 @@ plan 8;
is(sort @test, <1 2 3 4 5>, 'hyper returned all the values in some order');
is($counter, 5, 'iterator was hyper and calculated all the values');
}
+
+# vim: ft=perl6
View
2  S03-operators/equality.t
@@ -39,3 +39,5 @@ ok($foo == 0, "Undef == 0");
ok(@foo[0] == 0, "Array undef == 0");
# XXX: need tests for coercion string and numeric coercions
+
+# vim: ft=perl6
View
2  S03-operators/feed.t
@@ -133,3 +133,5 @@ plan 23;
('a' .. 'd'; 0 .. 3) ==> my @@data;
is(@(@@data), <a b c d 0 1 2 3>, 'two stacked feeds');
}
+
+# vim: ft=perl6
View
2  S03-operators/flip-flop.t
@@ -170,3 +170,5 @@ sub always_true { 1 }
ok do { my sub foo ($x) { try { $x ff 0 } }; if foo(0) || !foo(1) || !foo(0) { die }},
"all sub invocations share the same ff-state";
}
+
+# vim: ft=perl6
View
2  S03-operators/identity.t
@@ -149,3 +149,5 @@ class TestObj { has $!a }
ok (1 =:= 2) ~~ Failure, 'misuse of =:= is failure (!=)';
ok (1 =:= 1) ~~ Failure, 'misuse of =:= is failure (even when ==)';
}
+
+# vim: ft=perl6
View
2  S03-operators/increment.t
@@ -102,3 +102,5 @@ is($moo, 0, "var was not touched");
$x = Bool::True;
is $x.pred, Bool::False, '.succ on False works';
}
+
+# vim: ft=perl6
View
2  S03-operators/inplace.t
@@ -74,3 +74,5 @@ is ~@b, "a b d e z", "inplace sort";
lives_ok { @a.=sort }, 'lives: @a.=sort';
is @a, (1,2,3), 'worked: @a.=sort';
}
+
+# vim: ft=perl6
View
2  S03-operators/misc.t
@@ -167,3 +167,5 @@ ok(?(42 > 12 & 20 & 32), "test the all infix operator");
#?rakudo skip 'RT #63778'
is @a min 4, 1, 'works: @array min 4';
}
+
+# vim: ft=perl6
View
2  S03-operators/not.t
@@ -28,3 +28,5 @@ is(not Bool::True, Bool::False, "'Bool::True' is not 'Bool::False'");
is(not Bool::True, False, "'Bool::True' is not 'False'");
is(not True, False, "'True' is not 'False'");
is(not True, Bool::False, "'True' is not 'Bool::False'");
+
+# vim: ft=perl6
View
2  S03-operators/numeric-context.t
@@ -71,3 +71,5 @@ is(+(~(-Inf)), -Inf, "'-Inf' is -Inf");
lives_ok { $x = "4" - 3 }, 'lives: Num $x = "4" - 3';
is( $x, 1, 'works: Num $x = "4" - 3' );
}
+
+# vim: ft=perl6
View
2  S03-operators/overflow.t
@@ -77,3 +77,5 @@ $b = -$a;
$b= $b - 1;
is($b, -(++$a), 'est oder of predecrement in -(++$a)');
+
+# vim: ft=perl6
View
2  S03-operators/p5arrow.t
@@ -26,3 +26,5 @@ ok((1 p5=> 2) !~~ Pair, 'p5=> does not construct a Pair');
# We'll test that it doesn't quote the LHS.
isnt(eval('my @arr = abc p5=> def;'), <abc def>, 'p5=> does not quote the LHS');
+
+# vim: ft=perl6
View
2  S03-operators/range-by.t
@@ -20,3 +20,5 @@ is ~(2..0 :by(-.5)), '2 1.5 1 0.5 0', ':by(-.5) on numeric range';
is ~('c'..'a' :by(-.5)), 'c b b a a', ':by(-.5) on char range';
is ~('a'..'f' :by(1.6)), 'a b d e', ':by(1.6) on char range';
+
+# vim: ft=perl6
View
2  S03-operators/range.t
@@ -187,3 +187,5 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
# For tests involving :by, see t/spec/S03-operators/range-by.t
# and t/operators/adverbial_modifiers.t
+
+# vim: ft=perl6
View
2  S03-operators/relational.t
@@ -107,3 +107,5 @@ ok(!("3" gt "4" lt "5"), "!(3 gt 4 lt 5) chained str comparison");
ok("5" eq "5" gt "0", '"5" eq "5" gt "0" chained str comparison with equality');
ok("5" le "5" gt "0", "5 le 5 gt 0 chained str comparison with le");
ok("0" lt "5" ge "5", "0 lt 5 ge 5 chained comparison with ge");
+
+# vim: ft=perl6
View
2  S03-operators/repeat.t
@@ -74,3 +74,5 @@ is($twin, 'LintillaLintilla', 'operator x= for string repeats correct');
@b[3] = 'a';
is @b.join('|'), 'z|y|x|a|x|y', 'change to one item left the others unchanged';
}
+
+# vim: ft=perl6
View
2  S03-operators/scalar-assign.t
@@ -24,3 +24,5 @@ plan 4;
is $x, 9, 'lvalue expressions are only evaluated once';
}
+
+# vim: ft=perl6
View
2  S03-operators/short-circuit.t
@@ -167,3 +167,5 @@ plan 36;
#?pugs eval 'short circuiting'
is c($b), 2, 'shortcircuit idiom given undef works';
}
+
+# vim: ft=perl6
View
2  S03-operators/spaceship-and-containers.t
@@ -14,3 +14,5 @@ my @a = (1, 2);
ok(@a[0] < @a[1], 'comparing array values');
ok(@a[0] <= @a[1], 'comparing array values');
is(@a[0] <=> @a[1], -1, 'comparing array values');
+
+# vim: ft=perl6
View
2  S03-operators/subscript-adverbs.t
@@ -195,3 +195,5 @@ plan 64;
is ~(%hash<0 1 2>:kv), "0 42 1 2 23",
"undefined but existing entries should not be weeded out (4)";
}
+
+# vim: ft=perl6
View
2  S03-operators/ternary.t
@@ -68,3 +68,5 @@ is((4 or 5 ?? 6 !! 7), 4, "operator priority");
}
eval_dies_ok q[ 1 ?? 2,3 !! 4,5 ], 'Ternary error (RT #66840)';
+
+# vim: ft=perl6
View
2  S03-operators/true.t
@@ -18,3 +18,5 @@ ok(!true(true 0), "true(true 0) is false");
ok(true Bool::True, "'Bool::True' is true");
ok(true True, "'True' is true");
+
+# vim: ft=perl6
View
2  S03-operators/value_equivalence.t
@@ -148,3 +148,5 @@ plan 52;
ok (1 !=== 1.0), "!=== on values (1 !=== 1.0)";
ok (1 !=== "1"), '!=== on values (1 !=== "1")';
}
+
+# vim: ft=perl6
View
2  S04-blocks-and-statements/let.t
@@ -60,3 +60,5 @@ plan 11;
}
is @array[1], 1, "let() restored our array element";
}
+
+# vim: ft=perl6
View
2  S04-blocks-and-statements/pointy-rw.t
@@ -61,3 +61,5 @@ plan 10;
}
# (currently this dies with "Can't modify constant item: VInt 2")
+
+# vim: ft=perl6
View
2  S04-closure-traits/ascending-order.t
@@ -58,3 +58,5 @@ ok $var_at_enter ~~ undef, 'ENTER {...} at runtime, but before the mainline body
is $var_at_start, 14, 'START {...} at runtime, just in time';
$eof_var = 29;
+
+# vim: ft=perl6
View
2  S04-closure-traits/check.t
@@ -33,3 +33,5 @@ plan 5;
is $handle(), 'C', 'our CHECK {...} block returned the correct var (2)';
is $str, 'C', 'our rvalue CHECK {...} block was executed exactly once';
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/descending-order.t
@@ -51,3 +51,5 @@ ok $var_at_init ~~ undef, 'INIT {...} ran at runtime, but ASAP';
ok $var_at_enter ~~ undef, 'ENTER {...} at runtime, but before the mainline body';
$eof_var = 29;
+
+# vim: ft=perl6
View
2  S04-closure-traits/end.t
@@ -12,3 +12,5 @@ eval_lives_ok 'my $x = 3; END { $a = $x * $x };',
'and those from eval as well';
is $a, 9, 'and they really worked';
+
+# vim: ft=perl6
View
2  S04-closure-traits/enter-leave.t
@@ -91,3 +91,5 @@ plan 11;
$a;
}), 1, 'leave triggers LEAVE {}';
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/exit-in-begin.t
@@ -20,3 +20,5 @@ BEGIN {
# ...and exit, implicitly calling END.
exit;
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/exit-in-check.t
@@ -50,3 +50,5 @@ CHECK {
# ...and exit, which does _not_ call END.
exit;
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/first.t
@@ -43,3 +43,5 @@ plan 4;
}
is $str, 'f1f2ee', 'FIRST {} ran before ENTER {}';
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/in-eval.t
@@ -91,3 +91,5 @@ our $h;
lives_ok { $handle() }, 'can call code with END block';
is $end, '12', 'END {} does not run at run time either';
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/in-loop.t
@@ -69,3 +69,5 @@ plan 2;
"(4 E1)(4 E2)" ~ "(4 Lv2)(4 Lv1)" ~ "(4 Lst2)(4 Lst1)",
'trait blocks work properly in for loop';
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/init.t
@@ -70,3 +70,5 @@ is $str, 'io', 'INIT {} always runs before the mainline code runs';
is $var, 1, "INIT has run exactly once ($_ time)";
}
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/interpolate.t
@@ -38,3 +38,5 @@ is "{ CHECK { $hist ~= 'C' } }", "BC",
is "{ BEGIN { $hist ~= 'B' } }", "B",
'BEGIN {...} fired at compile-time, ASAP';
+
+# vim: ft=perl6
View
2  S04-closure-traits/keep-undo.t
@@ -69,3 +69,5 @@ plan 10;
}
is $str, 'U2 U1 ', '2 UNDO blocks triggered';
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/multiple.t
@@ -36,3 +36,5 @@ BEGIN { $hist ~= 'B ' }
BEGIN { $hist ~= 'b ' }
is $hist, 'B b c C I i S s ', 'running order of multiple closure traits';
+
+# vim: ft=perl6
View
2  S04-closure-traits/next.t
@@ -149,3 +149,5 @@ plan 13;
is($str, '01234', 'NEXT {} works in for loop');
}
+
+# vim: ft=perl6
View
2  S04-closure-traits/pre-post.t
@@ -124,3 +124,5 @@ class Another {
my $pt = Another.new;
lives_ok { $pt.test(2) }, 'POST receives return value as $_ (succeess)';
dies_ok { $pt.test(1) }, 'POST receives return value as $_ (failure)';
+
+# vim: ft=perl6
View
2  S04-closure-traits/rvalue.t
@@ -47,3 +47,5 @@ is $begin(), 'B', 'BEGIN {} runs only once';
# Test END {} as rval:
ok !eval 'my $end_val = END { 3 }', "END {} can't be used as a rvalue";
+
+# vim: ft=perl6
View
2  S04-closure-traits/start.t
@@ -104,3 +104,5 @@ for <first second> {
is $was_in_start, 1,
'our START { ...; undef } block was invoked exactly once';
}
+
+# vim: ft=perl6
View
2  S04-declarations/implicit-parameter.t
@@ -53,3 +53,5 @@ plan 18;
{
eval_dies_ok('sub { $^foo }.(42)', 'Placeholders not allowed in sub()');
}
+
+# vim: ft=perl6
View
2  S04-declarations/multiple.t
@@ -29,3 +29,5 @@ eval_dies_ok 'only sub foo {1; }; sub foo($x) {1; };',
#?rakudo skip 'eval error in redeclared subs'
eval_lives_ok 'proto foo {1; }; sub foo {1; }; sub foo($x) {1; };',
'multiple declarations need multi or proto';
+
+# vim: ft=perl6
View
2  S04-exceptions/fail.t
@@ -30,3 +30,5 @@ plan 4;
is $was_after_fail, 0, "fail() causes our sub to return (2)";
is $was_after_sub, 0, "fail() causes our try{} to die";
}
+
+# vim: ft=perl6
View
2  S04-statement-modifiers/for.t
@@ -90,3 +90,5 @@ plan 14;
is "$!", $errmsg, 'error for two spaces is the same as one space';
ok "$!" ~~ /\b say \b/, 'error message is for "say"';
}
+
+# vim: ft=perl6
View
2  S04-statement-modifiers/given.t
@@ -35,3 +35,5 @@ plan 5;
is $_, 10, 'outer $_ did not get updated in lhs of given';
is $i, 13, 'postfix given worked';
}
+
+# vim: ft=perl6
View
2  S04-statement-modifiers/if.t
@@ -73,3 +73,5 @@ plan 12;
ok (42 if 0) ~~ undef, '"$something if 0" is Nil - (undef)';
ok (42 if 0) ~~ (), '"$something if 0" is Nil - (empty list)';
}
+
+# vim: ft=perl6
View
2  S04-statement-modifiers/unless.t
@@ -37,3 +37,5 @@ plan 6;
is @x, @y, "unless expr on false cond";
}
+
+# vim: ft=perl6
View
2  S04-statement-modifiers/until.t
@@ -34,3 +34,5 @@ plan 4;
$a++ until shift(@a) eq 'c';
is($a, 2, "post until");
}
+
+# vim: ft=perl6
View
2  S04-statement-modifiers/values_in_bool_context.t
@@ -87,3 +87,5 @@ plan 24;
ok !$g, 'hash in bool context - undef value';
ok $h, 'hash in bool context - hash as a whole';
}
+
+# vim: ft=perl6
View
2  S04-statement-modifiers/while.t
@@ -41,3 +41,5 @@ plan 5;
++$a while shift(@a) ne 'd';
is($a, 3, "post while");
}
+
+# vim: ft=perl6
View
2  S04-statements/for-scope.t
@@ -56,3 +56,5 @@ for 1, 2 -> $_ {
is respect([1,2,3]), 1, '... but only over one array ref';
is respect( my @a = 1, 2, 3 ), 3, '...and when the array is declared in the argument list';
}
+
+# vim: ft=perl6
View
2  S04-statements/for_with_only_one_item.t
@@ -74,3 +74,5 @@ plan 8;
is $count, 1, 'for $arrayref {...} executes the loop body only once';
}
+
+# vim: ft=perl6
View
2  S04-statements/gather.t
@@ -136,3 +136,5 @@ plan 14;
};
is ~@list, "2 4 6 8 10", "gather with nested loop";
}
+
+# vim: ft=perl6
View
2  S04-statements/given.t
@@ -286,3 +286,5 @@ is(@got.join(","), "false,true", 'given { when .true { } }');
is $x, 42, 'given tests 1-arg subs for truth';
}
+
+# vim: ft=perl6
View
2  S04-statements/lazy.t
@@ -58,3 +58,5 @@ plan 15;
# Arguably, we should remove the $was_in_lazy tests, as it doesn't really
# matter when the lazy {...} block is actually executed.
+
+# vim: ft=perl6
View
2  S04-statements/leave.t
@@ -203,3 +203,5 @@ eval q[[
is $sub(), 1042, 'leave() works with an internal do label';
]];
+
+# vim: ft=perl6
View
2  S04-statements/map-and-sort-in-for.t
@@ -53,3 +53,5 @@ plan 4;
is $output, "2,4,6,8,", "map and sort work in for";
}
+
+# vim: ft=perl6
View
2  S04-statements/next.t
@@ -157,3 +157,5 @@ Check that C<next> works on the correct loop/block
is($i, 3, '$i++ was not executed when next was called before it in loop {}');
}
+
+# vim: ft=perl6
View
2  S04-statements/no-implicit-block.t
@@ -62,3 +62,5 @@ plan 12;
is $x, 2, '$x assigned in loop\'s condition';
is $y, 5, '$y assigned in loop\'s body';
}
+
+# vim: ft=perl6
View
2  S04-statements/redo.t
@@ -108,3 +108,5 @@ plan 10;
}
is($sum, 220, "test redo with while");
}
+
+# vim: ft=perl6
View
2  S04-statements/repeat.t
@@ -102,3 +102,5 @@ plan 16;
my $x = 0; repeat until 1 { $x++; redo if $x < 10 };
is($x, 10, 'redo works in repeat until {}');
}
+
+# vim: ft=perl6
View
2  S04-statements/try.t
@@ -205,3 +205,5 @@ plan 29;
#?rakudo todo 'RT #63430'
is $catches, 0, 'CATCH block never invoked';
}
+
+# vim: ft=perl6
View
2  S04-statements/unless.t
@@ -72,3 +72,5 @@ eval_dies_ok(
eval_dies_ok(
' unless 1 { 2 } elsif 4 { 3 } ',
'no elsif allowed in unless');
+
+# vim: ft=perl6
View
2  S04-statements/until.t
@@ -29,3 +29,5 @@ plan 4;
until (5 <= $i) { $i++; };
is($i, 5, 'until (5 <= $i) {} works');
}
+
+# vim: ft=perl6
View
2  S04-statements/while.t
@@ -74,3 +74,5 @@ plan 9;
eval_dies_ok('while($i < 5) { $i++; }',
'keyword needs at least one whitespace after it');
}
+
+# vim: ft=perl6
View
2  S05-capture/alias.t
@@ -64,3 +64,5 @@ is(~$1, '22', 'Value match' );
ok("22 <= foo" ~~ m:s/$0=(foo) '=>' (\d+) | $1=(\d+) '<=' $0=(foo) /, 'Pair match');
is(~$0, 'foo', 'Reverse key match');
is(~$1, '22', 'Reverse value match');
+
+# vim: ft=perl6
View
2  S05-capture/array-alias.t
@@ -95,3 +95,5 @@ ok("GATTACA" ~~ m/ @bases=(A|C|G|T)**{4} (@bases+) /, 'Array reinterpolation');
is("@bases[]", "G A T T", '...are belong to...');
is("$0", "A", '...A');
+
+# vim: ft=perl6
View
2  S05-capture/dot.t
@@ -117,3 +117,5 @@ is(~$/, "john", 'Metaname match is john');
ok(~$/ ne "jean", "Metaname match isn't jean");
is(~$/<name>, "john", 'Metaname is john');
+
+# vim: ft=perl6
View
2  S05-capture/hash.t
@@ -163,3 +163,5 @@ ok(%bases.keys == 3, 'No other bases');
is("$1", "aca", 'Trailing aca');
+
+# vim: ft=perl6
View
2  S05-capture/named.t
@@ -55,3 +55,5 @@ if !eval('("a" ~~ /a/)') {
is($/<number><notation>, 'roman', 'binding to alias as side-effect');
}
+
+# vim: ft=perl6
View
2  S05-grammar/inheritance.t
@@ -37,3 +37,5 @@ is(~('foo' ~~ /^<Grammar::Baz::any>$/), 'foo', 'got right match');
is(~('bar' ~~ /^<Grammar::Baz::any>$/), 'bar', 'got right match');
is(~('baz' ~~ /^<Grammar::Baz::any>$/), 'baz', 'got right match');
+
+# vim: ft=perl6