Add tests for RT #131414

S12-coercion/coercion-types.t

@@ -3,7 +3,7 @@ use lib $?FILE.IO.parent(2).add("packages");
 use Test;
 use Test::Util;
 
-plan 32;
+plan 33;
 
 # coercion types in parameter lists
 {
@@ -322,4 +322,13 @@ subtest 'mistyped typenames in coercers give good error' => {
     pass 'coercer with subset target did not crash';
 }
 
+# RT #131414
+subtest 'same exception with and without type smiley for failing coercion on var' => {
+    plan 3;
+    my \XSVB = X::Syntax::Variable::BadType;
+    throws-like ｢class { has Int() $.x = "42"}.new.x｣,           XSVB, 'no type smiley';
+    throws-like ｢class { has Int:D() $.x = "42"}.new.x｣,         XSVB, ':D (1)';
+    throws-like ｢class { has Int:D() $.x = "42"}.new(:x("43"))｣, XSVB, ':D (2)';
+}
+
 # vim: ft=perl6