More tests for array-ref smart match

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 0b6ce1a..0cc9cf0 100644 (file)
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -206,9 +206,13 @@ __DATA__
 
 # - a number
        [qw(1foo 2bar)]         2
+       [qw(foo 2)]             2
+       [qw(foo 2)]             2.0_0e+0
+!      [qw(1foo bar2)]         2
 
 # - a string
 !      [qw(1foo 2bar)]         "2"
+       [qw(1foo 2bar)]         "2bar"
 
 # Number against number
        2               2