diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/glob.t | 9 | ||||
| -rw-r--r-- | t/op/gv.t | 9 |
2 files changed, 9 insertions, 9 deletions
diff --git a/t/op/glob.t b/t/op/glob.t index f8725f82ef..6abcc75b3e 100644 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -6,7 +6,7 @@ BEGIN { } require 'test.pl'; -plan( tests => 16 ); +plan( tests => 13 ); @oops = @ops = <op/*>; @@ -81,10 +81,3 @@ SKIP: { } cmp_ok(scalar(@oops),'>',0,'glob globbed something'); - -*aieee = 4; -pass('Can assign integers to typeglobs'); -*aieee = 3.14; -pass('Can assign floats to typeglobs'); -*aieee = 'pi'; -pass('Can assign strings to typeglobs'); @@ -12,7 +12,7 @@ BEGIN { use warnings; -plan( tests => 221 ); +plan( tests => 224 ); # type coersion on assignment $foo = 'foo'; @@ -803,6 +803,13 @@ EOF }}->($h{k}); } +*aieee = 4; +pass('Can assign integers to typeglobs'); +*aieee = 3.14; +pass('Can assign floats to typeglobs'); +*aieee = 'pi'; +pass('Can assign strings to typeglobs'); + __END__ Perl Rules |