Add test for suggesting enum values as types

For RT #123926.

Author: MasterDuke17

S32-exceptions/misc.t

@@ -5,7 +5,7 @@ use lib "t/spec/packages";
 use Test;
 use Test::Util;
 
-plan 431;
+plan 432;
 
 throws-like '42 +', Exception, "missing rhs of infix", message => rx/term/;
 
@@ -983,4 +983,13 @@ throws-like 'sub foo(@array ($first, @rest)) { say @rest }; foo <1 2 3>;',
 	'X::Method::NotFound does not die with "X::Method::NotFound exception produced no message"';
 }
 
+# RT #123926
+{
+    throws-like q|enum E <Foo Bar>; sub x(Floo) {}|,
+        X::Parameter::InvalidType,
+        typename    => 'Floo',
+        suggestions => ['Foo'],
+        'enum values are suggested for misspellings'
+}
+
 # vim: ft=perl6