From bcd42172e4716ddad46c12468b7cc13a03abc0eb Mon Sep 17 00:00:00 2001 From: Jonathan Worthington Date: Sun, 31 Jul 2011 01:50:31 +0200 Subject: [PATCH] Update test to latest spec; remove a Rakudo fudging. --- S02-builtin_data_types/undefined-types.t | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/S02-builtin_data_types/undefined-types.t b/S02-builtin_data_types/undefined-types.t index 100b0d84fc..ea94671042 100644 --- a/S02-builtin_data_types/undefined-types.t +++ b/S02-builtin_data_types/undefined-types.t @@ -30,26 +30,25 @@ plan 23; is $i, 8, '... block executed'; } -#?rakudo skip 'Stringy' { my $obj; my Int $int; - is ~$obj, '', 'prefix:<~> on type object gives empty string (Mu)'; + is ~$obj, '', 'prefix:<~> on type object gives empty string (Any)'; is ~$int, '', 'prefix:<~> on type object gives empty string (Int)'; - is $obj.Stringy, '', '.Stringy on type object gives empty string (Mu)'; + is $obj.Stringy, '', '.Stringy on type object gives empty string (Any)'; is $int.Stringy, '', '.Stringy on type object gives empty string (Int)'; - ok (~$obj) ~~ Stringy, 'prefix:<~> returns a Stringy (Mu)'; + ok (~$obj) ~~ Stringy, 'prefix:<~> returns a Stringy (Any)'; ok (~$int) ~~ Stringy, 'prefix:<~> returns a Stringy (Int)'; - ok $obj.Stringy ~~ Stringy, '.Stringy returns a Stringy (Mu)'; + ok $obj.Stringy ~~ Stringy, '.Stringy returns a Stringy (Any)'; ok $int.Stringy ~~ Stringy, '.Stringy returns a Stringy (Int)'; - is $obj.Str, 'Mu()', '.Str on type object gives Mu()'; - is $int.Str, 'Int()', '.Str on type object gives Int()'; + is $obj.gist, 'Any()', '.gist on type object gives Any()'; + is $int.gist, 'Int()', '.gist on type object gives Int()'; - is 'a' ~ $obj, 'a', 'infix:<~> uses coercion to Stringy (Mu)'; + is 'a' ~ $obj, 'a', 'infix:<~> uses coercion to Stringy (Any)'; is 'a' ~ $int, 'a', 'infix:<~> uses coercion to Stringy (Int)'; }