Add tests for object ~~ regexp
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 9 May 2009 13:37:11 +0000 (15:37 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 9 May 2009 13:37:11 +0000 (15:37 +0200)
t/op/smartmatch.t

index 0b5c9a1..fa66de9 100644 (file)
@@ -35,6 +35,7 @@ tie my %tied_hash, 'Tie::StdHash';
     package Test::Object::CopyOverload;
     sub new { bless { key => 'magic' } }
     use overload '~~' => sub { my %hash = %{ $_[0] }; $_[1] eq $hash{key} };
+    use overload '""' => sub { "stringified" };
 }
 
 our $ov_obj = Test::Object::CopyOverload->new;
@@ -167,7 +168,8 @@ __DATA__
 @      FALSE           $obj
 
 # object (overloaded or not) ~~ Any
-# TODO
+       $obj            qr/NoOverload/
+       $ov_obj         qr/^stringified$/
 
 # ~~ Coderef
        sub{0}          sub { ref $_[0] eq "CODE" }