check for Type suggestions in Undeclared::Symbols.

Raku · Jan 25, 2013 · cc878f5 · cc878f5
1 parent 73618a5
commit cc878f5
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -363,6 +363,12 @@ if $emits_suggestions {
     throws_like 'sub yoink(Junctoin $barf) { }', X::Parameter::InvalidType, suggestions => 'Junction';
 
     throws_like 'my cool $a', X::Undeclared, suggestions => ["Cool", "Bool"];
+
+    {
+        try eval('Ecxeption.new("wrong!")');
+        ok $! ~~ X::Undeclared::Symbols, "Ecxeption.new throws X::Undeclared::Symbols";
+        is $!.type_suggestion<Ecxeption>, ["Exception"], 'Exception is a suggestion';
+    }
 }
 
 throws_like 'class Foobar is Foobar', X::Inheritance::SelfInherit, name => "Foobar";