[perl #77134] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S03-smartmatch/any-any.t

commit 134e51f5b54d8effd526e1d024afa7f5f149e618
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Aug 14 17:43:18 2010 +0000

    [t/spec] test for RT #77134, !~~ did not set $_ to the LHS
    
    git-svn-id: http://svn.pugscode.org/p...@31999 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-smartmatch/any-any.t b/t/spec/S03-smartmatch/any-any.t
index c4e7859..eede6d4 100644
--- a/t/spec/S03-smartmatch/any-any.t
+++ b/t/spec/S03-smartmatch/any-any.t
@@ -13,6 +13,19 @@ plan *;
     ok  ($a !~~ $b),    'Any !~~ Any (+)';
 }
 
+
+{
+    $_ = 42;
+    my $x;
+    'abc' ~~ ($x = $_);
+    is $x, 'abc', '~~ sets $_ to the LHS';
+    is $_, 42, 'original $_ restored';
+    'defg' !~~ ($x = $_);
+    is $x, 'defg', '!~~ sets $_ to the LHS';
+    is $_, 42, 'original $_ restored';
+    'defg' !~~ ($x = $_);
+}
+
 done_testing;
 
 # vim: ft=perl6