diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-02-13 16:23:28 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-02-13 16:27:00 +0100 |
| commit | 25a0c96dcc03468ea222618d7114b40e33f8486e (patch) | |
| tree | edbd998baac09ce592b0bfdb41bce13d9013b588 /t/op | |
| parent | 565e63af02fe78a3e82145d7196dac3409eb4eef (diff) | |
| download | perl-25a0c96dcc03468ea222618d7114b40e33f8486e.tar.gz | |
More tests for array-ref smart match
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/smartmatch.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index 0b6ce1a7a0..0cc9cf0e57 100644 --- 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 |