8 use Test::More tests => 10;
10 BEGIN { $_ = 'foo'; } # because Symbol used to clobber $_
14 ok( $_ eq 'foo', 'check $_ clobbering' );
19 ok( ref($sym1) eq 'GLOB', 'gensym() returns a GLOB' );
23 ok( $sym1 ne $sym2, 'gensym() returns a different GLOB' );
27 $sym1 = $sym2 = undef;
33 use Symbol qw(qualify); # must import into this package too
35 ::ok( qualify("x") eq "foo::x", 'qualify() with a simple identifier' );
36 ::ok( qualify("x", "FOO") eq "FOO::x", 'qualify() with a package' );
37 ::ok( qualify("BAR::x") eq "BAR::x",
38 'qualify() with a qualified identifier' );
39 ::ok( qualify("STDOUT") eq "main::STDOUT",
40 'qualify() with a reserved identifier' );
41 ::ok( qualify("ARGV", "FOO") eq "main::ARGV",
42 'qualify() with a reserved identifier and a package' );
43 ::ok( qualify("_foo") eq "foo::_foo",
44 'qualify() with an identifier starting with a _' );
45 ::ok( qualify("^FOO") eq "main::\cFOO",
46 'qualify() with an identifier starting with a ^' );