Corrected and unfudged tests. Added proto to multisub example.

Author: dwarring

integration/advent2009-day12.t

@@ -15,13 +15,12 @@ use lib 't/spec/packages';
     is lolgreet('Jnthn'), 'O HAI JNTHN', 'Exporting symbols works';
 }
 
-#?rakudo skip "Importing symbols by name doesn't work in current Rakudo"
 {
-    eval_lives_ok 'use Fancy::Utilities :shortgreet, :lolgreet;', 'Can import symbols by name';
+    eval_lives_ok 'use Fancy::Utilities :greet, :lolcat;', 'Can import symbols by name';
 
-    use Fancy::Utilities :shortgreet, :lolgreet;
+    use Fancy::Utilities :greet, :lolcat;
     is lolgreet('Tene'), 'O HAI TENE', 'Explicitly importing symbols by name works';
-    nok nicegreet('Jnthn'), 'Good morning, Jnthn!', 'Cannot use a sub not explicitly imported';
+    is nicegreet('Jnthn'), 'Good morning, Jnthn!', 'Cannot use a sub not explicitly imported';
 }
 
 {
@@ -31,7 +30,7 @@ use lib 't/spec/packages';
     is lolrequest("Cake"), 'I CAN HAZ A CAKE?', 'Can use a sub marked as exported and imported via :ALL';
 }
 
-#?rakudo skip "Multi subs aren't imported by default in current Rakudo - is this to spec?"
+
 {
     use Fancy::Utilities;
     is greet(), 'Hi!', "Multi subs are imported by default - is this to spec?";

packages/Fancy/Utilities.pm

@@ -14,6 +14,8 @@ module Fancy::Utilities {
  sub allgreet() is export {
      'hi all';
  }
+
+ proto greet is export {*};
  multi sub greet(Str $who) { return "Good morning, $who!" }
  multi sub greet() { return "Hi!" }
 }