[perl #64688] 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 f8866a9b95a6789d0692b1018a771d35e7ff35ef
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Jul 30 19:22:33 2009 +0000

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

diff --git a/t/spec/S10-packages/basic.t b/t/spec/S10-packages/basic.t
index 44c2c4e..9fe31ed 100644
--- a/t/spec/S10-packages/basic.t
+++ b/t/spec/S10-packages/basic.t
@@ -4,7 +4,7 @@ use v6;
 
 use Test;
 
-plan 22;
+plan 32;
 
 regex fairly_conclusive_platform_error {:i ^\N*<<Null?>>}
 
@@ -146,4 +146,18 @@ eval_lives_ok q' module MapTester { (1, 2, 3).map: { $_ } 
} ',
        'array initialization works fine in imported subs';
 }
 
+#?rakudo todo 'RT #64688'
+{
+    eval_lives_ok 'class RT64688_c1;use Test', 'use after class line';
+    eval_lives_ok 'class RT64688_c1 { use Test }', 'use in class block';
+    eval_lives_ok 'module RT64688_m1;use Test', 'use after module line';
+    eval_lives_ok 'module RT64688_m2 { use Test }', 'use in module block';
+    eval_lives_ok 'package RT64688_p1;use Test', 'use after package line';
+    eval_lives_ok 'package RT64688_p2 { use Test }', 'use in package block';
+    eval_lives_ok 'grammar RT64688_g1;use Test', 'use after grammar line';
+    eval_lives_ok 'grammar RT64688_g2 { use Test }', 'use in grammar block';
+    eval_lives_ok 'role RT64688_r1;use Test', 'use after role line';
+    eval_lives_ok 'role RT64688_r2 { use Test }', 'use in role block';
+}
+
 # vim: ft=perl6