Author: petdance Date: Wed Feb 20 21:47:15 2008 New Revision: 25915 Added: trunk/languages/perl6/t/01-sanity/08-say.t Modified: trunk/MANIFEST trunk/languages/perl6/src/classes/Object.pir
Log: Added tene's patch to Object.pir to do say. Added a perl6 test to test it out. Modified: trunk/MANIFEST ============================================================================== --- trunk/MANIFEST (original) +++ trunk/MANIFEST Wed Feb 20 21:47:15 2008 @@ -1,7 +1,7 @@ # ex: set ro: # $Id$ # -# generated by tools/dev/mk_manifest_and_skip.pl Thu Feb 21 03:08:05 2008 UT +# generated by tools/dev/mk_manifest_and_skip.pl Thu Feb 21 05:26:40 2008 UT # # See tools/dev/install_files.pl for documentation on the # format of this file. @@ -1849,6 +1849,7 @@ languages/perl6/t/01-sanity/07-split.t [perl6] languages/perl6/t/01-sanity/07-substr.t [perl6] languages/perl6/t/01-sanity/07-try.t [perl6] +languages/perl6/t/01-sanity/08-say.t [perl6] languages/perl6/t/02-test-pm/0-compile.t [perl6] languages/perl6/t/02-test-pm/1-basic.t [perl6] languages/perl6/t/02-test-pm/2-force_todo.t [perl6] Modified: trunk/languages/perl6/src/classes/Object.pir ============================================================================== --- trunk/languages/perl6/src/classes/Object.pir (original) +++ trunk/languages/perl6/src/classes/Object.pir Wed Feb 20 21:47:15 2008 @@ -321,6 +321,19 @@ .return 'prefix:?'(self) .end +=item say() + +Print the object + +=cut + +.sub 'say' :method + .local pmc item + item = self + print item + print "\n" +.end + =back =head2 Protoobject methods Added: trunk/languages/perl6/t/01-sanity/08-say.t ============================================================================== --- (empty file) +++ trunk/languages/perl6/t/01-sanity/08-say.t Wed Feb 20 21:47:15 2008 @@ -0,0 +1,36 @@ +use v6-alpha; + +say '1..10'; + +# Double-quoted string +say "ok 1"; + +# Single-quoted +say 'ok 2'; + +# Invoke method on literal +'ok 3'.say; + +# Invoke method on list +<ok 4>.say; + +# But we have to force the list to a string +say ~<ok 5>; + +# Invoke method on number +print 'ok '; +# 6.say; +say 6; # XXX should be "6.say"; + +print 'ok '; +say 7; + +# Invoke method on variable +my $test8 = 'ok 8'; +$test8.say; + +# Verify return code of say +say 'ok ', 10*say 'ok 9'; + +# More ideas: +# * sort based on the keys of a hash
