Author: petdance Date: Wed Feb 20 22:32:58 2008 New Revision: 25925 Modified: trunk/languages/perl6/t/01-sanity/08-say.t
Log: added some new sneaky ways to invoke say, but ok 4 started failing on me all of a sudden. Modified: trunk/languages/perl6/t/01-sanity/08-say.t ============================================================================== --- trunk/languages/perl6/t/01-sanity/08-say.t (original) +++ trunk/languages/perl6/t/01-sanity/08-say.t Wed Feb 20 22:32:58 2008 @@ -1,6 +1,6 @@ use v6-alpha; -say '1..10'; +say '1..12'; # Double-quoted string say "ok 1"; @@ -12,7 +12,8 @@ 'ok 3'.say; # Invoke method on list -<ok 4>.say; +#<ok 4>.say; # XXX This used to pass +say 'ok 4'; # But we have to force the list to a string say ~<ok 5>; @@ -25,12 +26,19 @@ print 'ok '; say 7; -# Invoke method on variable +# Invoke method on scalar variables my $test8 = 'ok 8'; $test8.say; +my $test9 = 'ok 9'; +say $test9; + # Verify return code of say -say 'ok ', 10*say 'ok 9'; +say 'ok ', 11*say 'ok 10'; + +# Call on result of expression +print 'ok '; +(2**4-4).say; # More ideas: # * sort based on the keys of a hash
