Add tests for RT #118029

Author: usev6

S02-types/declare.t

@@ -4,7 +4,7 @@ use Test;
 # see if you can declare the various built-in types
 # a broad but not in depth test of the existence of various types
 
-plan 78;
+plan 79;
 
 # L<S02/"Built-in Type Conventions"/"Built-in object types start with an uppercase letter">
 
@@ -92,6 +92,11 @@ plan 78;
  isa_ok($gunka, Routine);
 }
 
+{
+ my Stash $igeda;
+ isa_ok($igeda, Stash);
+}
+
 #?rakudo skip 'Module NYI'
 #?niecza skip 'Module NYI'
 {

S02-types/stash.t

@@ -0,0 +1,15 @@
+use v6;
+
+use Test;
+
+plan 1;
+
+#L<S02/Mutable Types>
+
+# RT #118029
+{
+    sub S (Stash $s) { $s.WHAT.perl };
+    is S(Stash.new), 'Stash', 'Stash.new creates Stash, not a Hash';
+}
+
+# vim: ft=perl6