1N/A chdir 't' if -d 't'; 1N/A # You have to do it this way or VMS will get confused. 1N/Aok( 1, 'Exporter compiled' );
1N/A # Methods which Exporter says it implements. 1N/A# Make sure Testing can do everything its supposed to. 1N/A::ok( $@, 'require_version() fail' ); 1N/A::ok ( $@ eq "", 'check we can call the imported subroutine') 1N/A::ok ( $got eq 'lifejacket', 'and that it gave the correct result') 1N/A# The string eval is important. It stops $Foo::{is} existing when 1N/A# Testing->import is called. 1N/A "Import a subroutine where exporter must create the typeglob" ); 1N/A::ok ( $@ eq "", 'check we can call the imported autoloaded subroutine') 1N/A::ok ( $got eq 'Is', 'and that it gave the correct result') 1N/A 'import by symbols' ); 1N/A::ok( (!grep { eval "!defined $_" } map { /^\w/ ? "&$_" : $_ } 1N/A::ok( (!grep { eval "!defined $_" } map { /^\w/ ? "&$_" : $_ } 1N/A::ok( (!grep { eval "defined $_" } map { /^\w/ ? "&$_" : $_ } 1N/A 'deny import by regex'); 1N/A::ok(!$@, 'require_version(0) and $VERSION = 0'); 1N/A::ok($@ !~ /\(undef\)/, 'require_version(10) and $VERSION = 0'); 1N/A::ok( !$warnings, 'Unused variables can be exported without warning' ) || 1N/A::ok (foo eq "foo", "imported foo before EXPORT_OK changed"); 1N/A::ok (bar eq "bar", "imported bar after EXPORT_OK changed");