more Type() -> (Type) moving

Author: moritz

S10-packages/basic.t

@@ -23,7 +23,7 @@ is Simple::Bar.new.baz, 'hi', 'class test';
 
 #?niecza skip 'AlsoEmpty undeclared (ie no autovivification, I guess)'
 {
-    is AlsoEmpty.gist, 'AlsoEmpty()',
+    is AlsoEmpty.gist, '(AlsoEmpty)',
         'autovivification(?) for nested packages'
 }
 
@@ -224,7 +224,7 @@ eval_dies_ok 'module RT80856 is not_RT80856 {}',
 
 {
     isa_ok Int.WHO, Stash, 'SomeType.WHO is a Stash';
-    is Int.WHO.WHAT.gist, 'Stash()', 'and Stash correctly .gist-ifies';
+    is Int.WHO.WHAT.gist, '(Stash)', 'and Stash correctly .gist-ifies';
 }
 
 

S12-class/mro.t

@@ -18,7 +18,7 @@ plan 4;
     is $x.tracker, 'FDBECA', 'got the right MRO for 6 classes';
     # not really spec yet
     #?niecza skip '.^mro'
-    is $x.^mro.gist, 'F() D() B() E() C() A() Any() Mu()',
+    is $x.^mro.gist, '(F) (D) (B) (E) (C) (A) (Any) (Mu)',
        '.^mro';
 }
 

S12-enums/thorough.t

@@ -15,7 +15,7 @@ Enum tests from L<S12/Enumerations>
 # L<S12/Enumerations/keys are specified as a parenthesized list>
 enum day <Sun Mon Tue Wed Thu Fri Sat>;
 
-is day.gist, 'day()', 'enum itself stringififes';
+is day.gist, '(day)', 'enum itself stringififes';
 ok day.WHAT === day,  'enum.WHAT returned a value';
 ok day.perl, 'enum.perl returned a value';
 

S12-introspection/attributes.t

@@ -26,21 +26,21 @@ my @attrs = C.^attributes();
 is +@attrs, 3, 'attribute introspection gave correct number of elements';
 
 is @attrs[0].name,         '$!c',  'first attribute had correct name';
-is @attrs[0].type.gist,    'Mu()', 'first attribute had correct type';
+is @attrs[0].type.gist,    '(Mu)', 'first attribute had correct type';
 is @attrs[0].has-accessor, True,   'first attribute has an accessor';
 ok !@attrs[0].build,               'first attribute has no build value';
 ok @attrs[0].rw,                   'first attribute is rw';
 ok !@attrs[0].readonly,            'first attribute is not readonly';
 
 is @attrs[1].name,         '$!b',   'second attribute had correct name';
-is @attrs[1].type.gist,    'Int()', 'second attribute had correct type';
+is @attrs[1].type.gist,    '(Int)', 'second attribute had correct type';
 is @attrs[1].has-accessor, False,   'second attribute has no accessor';
 ok @attrs[1].build ~~ Code,         'second attribute has build block';
 is @attrs[1].build().(C, $_), 42,
                               'second attribute build block gives expected value';
 
 is @attrs[2].name,         '$!a',   'third attribute had correct name';
-is @attrs[2].type.gist,    'Str()', 'third attribute had correct type';
+is @attrs[2].type.gist,    '(Str)', 'third attribute had correct type';
 is @attrs[2].has-accessor, True,    'third attribute has an accessor';
 ok @attrs[2].build ~~ Code,         'third attribute has build block';
 is @attrs[2].build().(C, $_), "dnes je horuci a potrebujem pivo",

S14-roles/instantiation.t

@@ -25,7 +25,7 @@ role SampleRole {
   my $obj2 = SampleRole.new;
   ok $obj.WHAT === $obj2.WHAT, "Punned role classes have the same .WHAT";
 
-  is $obj.WHAT.gist, 'SampleRole()', '.WHAT as a string gives the name of the role';
+  is $obj.WHAT.gist, '(SampleRole)', '.WHAT as a string gives the name of the role';
 }
 
 role WithAttr {

S14-roles/lexical.t

@@ -24,7 +24,7 @@ eval_dies_ok  '{ my class R3 {}; R3; }; R3',
         method catwalk() { 'ooh pretty!' }
     }
 
-    is Model.gist, 'Model()',            'lexical role type object stringifies OK';
+    is Model.gist, '(Model)',            'lexical role type object stringifies OK';
     is Model.catwalk, 'ooh pretty!', 'can pun lexical role';
 
     my class SuperModel does Model {

S14-roles/parameterized-basic.t

@@ -101,8 +101,8 @@ is(AP_1.new.y,   'b',  'use of type params in attr initialization works after 2n
     }
     class TTP_1 does TypeParams[Int] { }
     class TTP_2 does TypeParams[Str] { }
-    is(TTP_1.new.x(42),       'got a Int() it was 42',     'type variable in scope and accepts right value');
-    is(TTP_2.new.x("OH HAI"), 'got a Str() it was OH HAI', 'type variable in scope and accepts right value');
+    is(TTP_1.new.x(42),       'got a (Int) it was 42',     'type variable in scope and accepts right value');
+    is(TTP_2.new.x("OH HAI"), 'got a (Str) it was OH HAI', 'type variable in scope and accepts right value');
     dies_ok({ TTP_1.new.x("OH HAI") },                   'type constraint with parameterized type enforced');
     dies_ok({ TTP_2.new.x(42) },                         'type constraint with parameterized type enforced');
 }

S16-io/say-and-ref.t

@@ -23,7 +23,7 @@ is_run q{my $a = [1, 2, 3]; print  $a},
 # RT #80186
 is_run q{IO.say},
     {
-        out => "IO()\n";
+        out => "(IO)\n";
     }, 'Can do IO.say';
 
 # vim: ft=perl6

S32-num/stringify.t

@@ -39,7 +39,7 @@ Complex_str_test (0 + NaN\i), '0+NaN\i';
 # for Niecza in the past
 
 #?pugs skip 'gist'
-is Complex.gist, 'Complex()', 'Complex.gist';
+is Complex.gist, '(Complex)', 'Complex.gist';
 #?pugs todo
 is Complex.perl, 'Complex', 'Complex.perl';
 # XXX Should ~Complex and Complex.Str return something specific?  For now
@@ -79,7 +79,7 @@ Rat_str_test 13/39, '1/3';
 Rat_str_test (4.5 ** 60), '1797010299914431210413179829509605039731475627537851106401/1152921504606846976';
 
 #?pugs skip '.gist'
-is Rat.gist, 'Rat()', 'Rat.gist';
+is Rat.gist, '(Rat)', 'Rat.gist';
 #?pugs todo
 is Rat.perl, 'Rat', 'Rat.perl';
 lives_ok { ~Rat }, '~Rat does not die';

integration/advent2009-day01.t

@@ -7,6 +7,6 @@ plan(2);
 
 # say "Hello World";
 
-is( (10/7).WHAT.gist, 'Rat()', 'WHAT');
+is( (10/7).WHAT.gist, '(Rat)', 'WHAT');
 
 is(([+] (1..999).grep( { $_ % 3 == 0 || $_ % 5 == 0 } )), 233168, 'Project Euler #1');