1N/A chdir 't' if -d 't'; 1N/ABEGIN { $_ = 'foo'; } # because Symbol used to clobber $_ 1N/Aok( $_ eq 'foo', 'check $_ clobbering' );
1N/A# First test gensym() 1N/Ais( $FOO, 'Eymascalar', 'leaves scalar alone' );
1N/A local $^W=1; # 5.005 compat. 1N/A::ok( qualify("x") eq "foo::x", 'qualify() with a simple identifier' ); 1N/A 'qualify() with a qualified identifier' ); 1N/A 'qualify() with a reserved identifier' ); 1N/A 'qualify() with a reserved identifier and a package' ); 1N/A 'qualify() with an identifier starting with a _' ); 1N/A 'qualify() with an identifier starting with a ^' ); 1N/A# tests for delete_package 1N/Aok( exists $::{'Transient::'}, 'transient stash exists' );