[perl #65738] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in at least one of these files: t/spec/S10-packages/basic.t, 
t/spec/packages/Foo.pm, t/spec/packages/OverrideTest.pm

commit 7c110845fe4de348e248528161243bf60e99bfeb
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat May 8 09:21:37 2010 +0000

    [t/spec] test for RT #65738, overriding exports do not affect modules 
loaded later on
    
    git-svn-id: http://svn.pugscode.org/p...@30587 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S10-packages/basic.t b/t/spec/S10-packages/basic.t
index f1dfacf..1e1a88c 100644
--- a/t/spec/S10-packages/basic.t
+++ b/t/spec/S10-packages/basic.t
@@ -4,7 +4,7 @@ use v6;
 
 use Test;
 
-plan 51;
+plan 52;
 
 regex fairly_conclusive_platform_error {:i ^\N*<<Null?>>}
 
@@ -206,6 +206,11 @@ eval_lives_ok q' module MapTester { (1, 2, 3).map: { $_ } 
} ',
     eval_lives_ok 'use LoadFromInsideAClass',
         'can "use" a class inside a class';
 
+    # RT #65738
+    use Foo;
+    use OverrideTest;
+    is test_ucfirst('moin'), 'Moin',
+        'overrides from one module do not affect a module that is loaded later 
on';
 }
 
 {
diff --git a/t/spec/packages/Foo.pm b/t/spec/packages/Foo.pm
index 3a2edc3..85856b5 100644
--- a/t/spec/packages/Foo.pm
+++ b/t/spec/packages/Foo.pm
@@ -4,3 +4,5 @@ use v6;
 class Foo;
 
 method foo { "foo" }
+
+sub ucfirst($thing) is export(:DEFAULT) { 'overridden ucfirst' }
diff --git a/t/spec/packages/OverrideTest.pm b/t/spec/packages/OverrideTest.pm
new file mode 100644
index 0000000..fc42130
--- /dev/null
+++ b/t/spec/packages/OverrideTest.pm
@@ -0,0 +1,5 @@
+module OverrideTest {
+    sub test_ucfirst($y) is export(:DEFAULT) {
+        ucfirst($y);
+    }
+}