[perl #68290] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S10-packages/basic.t

commit 14bcd61d38e8e0df7bdb18a0ce9d9ed539b23837
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Aug 12 01:06:05 2009 +0000

    [t/spec] Test for RT #68290
    
    git-svn-id: http://svn.pugscode.org/p...@27964 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S10-packages/basic.t b/t/spec/S10-packages/basic.t
index 15c6d21..07eaa19 100644
--- a/t/spec/S10-packages/basic.t
+++ b/t/spec/S10-packages/basic.t
@@ -4,7 +4,7 @@ use v6;
 
 use Test;
 
-plan 42;
+plan 47;
 
 regex fairly_conclusive_platform_error {:i ^\N*<<Null?>>}
 
@@ -174,6 +174,21 @@ eval_lives_ok q' module MapTester { (1, 2, 3).map: { $_ } 
} ',
        'array initialization works fine in imported subs';
 }
 
+# RT #68290
+{
+    eval_dies_ok q[class A { sub a { say "a" }; sub a { say "a" } }],
+                 'sub redefined in class dies';
+    eval_dies_ok q[package P { sub p { say "p" }; sub p { say "p" } }],
+                 'sub redefined in package dies';
+    eval_dies_ok q[module M { sub m { say "m" }; sub m { say "m" } }],
+                 'sub redefined in module dies';
+    #?rakudo 2 skip 'RT #68290'
+    eval_dies_ok q[grammar B { token b { 'b' }; token b { 'b' } };],
+                 'token redefined in grammar dies';
+    eval_dies_ok q[class C { method c { say "c" }; method c { say "c" } }],
+                 'method redefined in class dies';
+}
+
 #?rakudo todo 'RT #64688'
 {
     eval_lives_ok 'class RT64688_c1;use Test', 'use after class line';