summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-10-25 08:54:07 +0100
committerNicholas Clark <nick@ccl4.org>2010-10-25 08:54:07 +0100
commit251c9b20f5a22a32411b6c61f432b8b68a43eb29 (patch)
tree8795ededbaf91530c48e7ee1c9a132fe0543baf4 /t
parentc2970a99031b996544125e1d90c2dcbd63baa2d4 (diff)
downloadperl-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.t9
-rw-r--r--t/op/gv.t9
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');
diff --git a/t/op/gv.t b/t/op/gv.t
index f2642f99cf..f277e714d9 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -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