diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-06 22:10:43 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-06 22:10:43 +0200 |
| commit | ad0781bc8e537599b237e04c8a07ff9a32d9a2ed (patch) | |
| tree | 24bec0306e22e25da71d42aa931a95c60933103e /t/op | |
| parent | d444f7e3a3d0965614439650519a7723933ea11f (diff) | |
| download | perl-ad0781bc8e537599b237e04c8a07ff9a32d9a2ed.tar.gz | |
Rewrite tests for objects and ~~
Diffstat (limited to 't/op')
| -rw-r--r-- | 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 a1c1a06a9f..3f0d305468 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" } |