diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-10-25 08:54:07 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-10-25 08:54:07 +0100 |
commit | 251c9b20f5a22a32411b6c61f432b8b68a43eb29 (patch) | |
tree | 8795ededbaf91530c48e7ee1c9a132fe0543baf4 /t | |
parent | c2970a99031b996544125e1d90c2dcbd63baa2d4 (diff) | |
download | perl-251c9b20f5a22a32411b6c61f432b8b68a43eb29.tar.gz |
Move some GV tests to gv.t from glob.t - the latter is for testing glob()
They were incorrectly added to glob.t by 010be86bae505fbe.
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 |