more Type() -> (Type) gistification

S03-junctions/misc.t

@@ -135,10 +135,10 @@ sub jok(Mu $condition, $msg?) { ok ?($condition), $msg };
 
     $j = 1|2;
     #?rakudo 2 todo 'lower case junction type'
-    is(WHAT($j).gist, 'Junction()', 'basic junction type reference test');
+    is(WHAT($j).gist, '(Junction)', 'basic junction type reference test');
 
     $k=$j;
-    is(WHAT($k).gist, 'Junction()', 'assignment preserves reference');
+    is(WHAT($k).gist, '(Junction)', 'assignment preserves reference');
 }
 
 

S05-capture/array-alias.t

@@ -68,11 +68,11 @@ is(join("|", @<spaces>), "  | |\t", 'Subrule array capture');
 
 
 ok("  a b\tc" ~~ m/@<chars>=[ (<?spaces>) (\S+)]+/, 'Nested multiple array capture');
-is(WHAT($<chars>).gist, "Array()", 'Multiple capture to nested array');
+ok($<chars> ~~ Positional, 'Multiple capture to nested array');
 ok(@<chars> == 3, 'Multiple capture count');
-is(WHAT($<chars>[0]).gist, "Match()", 'Multiple capture to nested AoA[0]');
-is(WHAT($<chars>[1]).gist, "Match()", 'Multiple capture to nested AoA[2]');
-is(WHAT($<chars>[2]).gist, "Match()", 'Multiple capture to nested AoA[3]');
+is(WHAT($<chars>[0]).gist, "(Match)", 'Multiple capture to nested AoA[0]');
+is(WHAT($<chars>[1]).gist, "(Match)", 'Multiple capture to nested AoA[2]');
+is(WHAT($<chars>[2]).gist, "(Match)", 'Multiple capture to nested AoA[3]');
 is(~$<chars>[0][0], "  ", 'Multiple capture value of nested AoA[0][0]');
 is(~$<chars>[0][1], "a", 'Multiple capture value of nested AoA[0][1]');
 is(~$<chars>[1][0], " ", 'Multiple capture value of nested AoA[1][0]');

S06-traits/as.t

@@ -11,13 +11,13 @@ Testing coercion types.
 =end description
 
 sub t1(Int() $x) {
-    is($x.WHAT.gist, 'Int()', 'object bound .WHATs to the right thing');
+    is($x.WHAT.gist, '(Int)', 'object bound .WHATs to the right thing');
     is($x,           1,       'object bound was coerced to the right value');
 }
 t1(4/3);
 
 sub t2(Int(Rat) $x) {
-    is($x.WHAT.gist, 'Int()', 'object bound .WHATs to the right thing');
+    is($x.WHAT.gist, '(Int)', 'object bound .WHATs to the right thing');
     is($x,           2,       'object bound was coerced to the right value');
 }
 t2(7/3);

S12-class/inheritance.t

@@ -130,7 +130,7 @@ eval_lives_ok 'class NotAny is Mu { }; NotAny.new', 'inheritance from Mu works';
     ok DirectMu !~~ Any, 'class inheriting from Mu is not Any';
     #?niecza skip 'Unable to resolve method parents in class ClassHOW'
     #?pugs skip 'No such method in class Class: "&parents"'
-    ok !( any(DirectMu.^parents).gist eq 'Any()'), 'and Any does not appear in the list of parents either';
+    ok !( any(DirectMu.^parents).gist eq '(Any)'), 'and Any does not appear in the list of parents either';
 }
 
 #?pugs todo

S32-num/fatrat.t

@@ -233,7 +233,7 @@ ok 16/5R eqv 16/5R, 'infix:<eqv> works with FatRats';
 
 #?rakudo todo 'unknown'
 #?pugs skip 'isa_ok'
-isa_ok .88888888888R.WHAT.gist, 'FatRat()', 'WHAT works on FatRat created from 11 digit decimal fraction';
+isa_ok .88888888888R.WHAT.gist, '(FatRat)', 'WHAT works on FatRat created from 11 digit decimal fraction';
 
 {
     my $a += 0.1R;