diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-03-18 19:29:34 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-03-18 19:29:34 +0100 |
| commit | 0cfbf1eabaa9be38a1db953e3ec905f70a1605cd (patch) | |
| tree | 0acc7d627ec07c271068e8951e1aad582cd80567 | |
| parent | 168ff818262576c8ec771f99cf50b7095a83e10c (diff) | |
| download | perl-0cfbf1eabaa9be38a1db953e3ec905f70a1605cd.tar.gz | |
Remove obsolete or redundant tests
| -rw-r--r-- | t/op/smartmatch.t | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index 5fd35870b9..a0b4be6666 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -86,9 +86,9 @@ sub bar {42} sub gorch {42} sub fatal {die "fatal sub\n"} +# to test constant folding sub FALSE() { 0 } sub TRUE() { 1 } -sub TWO() { 1 } # Prefix character : # - expected to match @@ -142,6 +142,7 @@ __DATA__ $ov_obj $ov_obj =@ $ov_obj \&fatal =! $ov_obj \&FALSE += $ov_obj \&TRUE =! $ov_obj \&foo = $ov_obj \&bar = $ov_obj sub { shift ~~ "key" } @@ -163,10 +164,11 @@ __DATA__ = $ov_obj "key" =! $ov_obj "foo" =! $ov_obj FALSE +=! $ov_obj TRUE # regular object =@ $obj $ov_obj -=@ $obj $obj +@ $obj $obj =@ $obj \&fatal =@ $obj \&FALSE =@ $obj \&foo @@ -227,19 +229,6 @@ __DATA__ ! [] \&fatal ! +{} \&fatal -# - null-prototyped subs -! undef \&FALSE - undef \&TRUE -! 0 \&FALSE - 0 \&TRUE -! 1 \&FALSE - 1 \&TRUE -! \&FALSE \&foo - -# - non-null-prototyped subs - bar gorch -@ fatal bar - # HASH ref against: # - another hash ref {} {} |