[perl #72084] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S02-names/identifier.t

commit 5aa557f39166f5f31d216d0d790495d0012a44f8
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Jan 15 17:56:28 2010 +0000

    [t/spec] Test for RT 72084: sub name beginning with last-
    
    git-svn-id: http://svn.pugscode.org/p...@29534 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-names/identifier.t b/t/spec/S02-names/identifier.t
index ee80e12..81e4385 100644
--- a/t/spec/S02-names/identifier.t
+++ b/t/spec/S02-names/identifier.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 15;
+plan *;
 
 # L<S02/Names/An identifier is composed of an alphabetic character>
 
@@ -54,6 +54,23 @@ plan 15;
     is method-check(), 'method-check', 'can call method-check';
 }
 
+#?rakudo skip 'RT 72084: sub name beginning with last-'
+{
+    my sub last-check { 'last-check' }
+    is last-check(), 'last-check', 'can call last-check';
+}
+
+#?rakudo skip 'sub name beginning with next-'
+{
+    my sub next-check { 'next-check' }
+    is next-check(), 'next-check', 'can call next-check';
+}
+
+{
+    my sub redo-check { 'redo-check' }
+    is redo-check(), 'redo-check', 'can call redo-check';
+}
+
 # RT #65804
 {
     sub sub($foo) { $foo }
@@ -69,4 +86,6 @@ plan 15;
     is my($x), 23, 'call to sub named "my" works';
 }
 
+done_testing;
+
 # vim: ft=perl6