Merge pull request #251 from LLFourn/require-issues

Tests for latest require issues

S11-modules/lib/Cool/Beans.pm6

@@ -0,0 +1 @@
+class Cool::Beans { }

S11-modules/lib/Cool/Cat.pm6

@@ -0,0 +1,3 @@
+class Cool::Cat {
+    method meow { 'meow' }
+}

S11-modules/lib/Cool/Cat/Goes/Splat.pm6

@@ -0,0 +1,3 @@
+class Cool::Cat::Goes::Splat {
+    method moew { 'splat' }
+}

S11-modules/require.t

@@ -6,7 +6,7 @@ use MONKEY-SEE-NO-EVAL;
 
 my $required-Test = (require Test <&plan &is &lives-ok &skip &todo
                                   &nok &throws-like &eval-lives-ok &ok>);
-plan 27;
+plan 32;
 
 # RT #126100
 {
@@ -118,4 +118,19 @@ nok ::('&bar'),"bar didn't leak";
     is $res,::('Cool::Utils'), 'Cool::Utils was returned';
 }
 
+{
+    require Cool::Utils;
+    {
+        require Cool::Beans;
+        require Cool::Cat;
+        require Cool::Cat::Goes::Splat;
+        for <Utils Beans Cat>.kv -> $i,$sym {
+            ok Cool::{$sym}:exists,'{$i+1}. multiple requires with top level package already defined';
+        }
+        is Cool::Cat.new.meow,'meow','class in required package';
+        is Cool::Cat::Goes::<Splat>.new.meow,'splat',"class in long required package name";
+    }
+}
+
+
 # vim: ft=perl6