In perl.git, the branch smartmatch has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ad0781bc8e537599b237e04c8a07ff9a32d9a2ed?hp=d444f7e3a3d0965614439650519a7723933ea11f>
- Log ----------------------------------------------------------------- commit ad0781bc8e537599b237e04c8a07ff9a32d9a2ed Author: Rafael Garcia-Suarez <[email protected]> Date: Wed May 6 22:10:43 2009 +0200 Rewrite tests for objects and ~~ ----------------------------------------------------------------------- Summary of changes: t/op/smartmatch.t | 44 ++++++++++++++++++++++++-------------------- 1 files changed, 24 insertions(+), 20 deletions(-) diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index a1c1a06..3f0d305 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -114,7 +114,7 @@ sub NOT_DEF() { undef } # Values returned by a sub call __DATA__ # Any ~~ undef -!= $ov_obj undef +! $ov_obj undef ! $obj undef ! sub {} undef ! %hash undef @@ -139,27 +139,31 @@ __DATA__ &NOT_DEF undef # Any ~~ object overloaded -# object overloaded ~~ Any -=! $ov_obj \&fatal -= $ov_obj 'magic' -=! $ov_obj 'not magic' -=! $ov_obj $obj +! \&fatal $ov_obj + 'magic' $ov_obj +! 'not magic' $ov_obj +! $obj $ov_obj +! undef $ov_obj # regular object -@ $obj $obj -=@ $obj \&fatal -=@ $obj \&FALSE -=@ $obj \&foo -=@ $obj sub { 1 } -=@ $obj sub { 0 } -=@ $obj %keyandmore -=@ $obj {"key" => 1} -=@ $obj @fooormore -=@ $obj ["key" => 1] -=@ $obj /key/ -=@ $obj qr/key/ -=@ $obj "key" -=@ $obj FALSE +@ $obj $obj +@ $ov_obj $obj TODO +@ \&fatal $obj +@ \&FALSE $obj +@ \&foo $obj +@ sub { 1 } $obj +@ sub { 0 } $obj +@ %keyandmore $obj +@ {"key" => 1} $obj +@ @fooormore $obj +@ ["key" => 1] $obj +@ /key/ $obj +@ qr/key/ $obj +@ "key" $obj +@ FALSE $obj + +# object (overloaded or not) ~~ Any +# TODO # ~~ Coderef sub{0} sub { ref $_[0] eq "CODE" } -- Perl5 Master Repository
