1N/A#!./perl -w
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A require Config; import Config;
1N/A if ($Config{'extensions'} !~ /\bSDBM_File\b/) {
1N/A print "1..0 # Skip: no SDBM_File\n";
1N/A exit 0;
1N/A }
1N/A}
1N/A
1N/Ause Test;
1N/Aplan tests => 4;
1N/A
1N/Ause XSLoader;
1N/Aok(1);
1N/Aok( ref XSLoader->can('load') );
1N/A
1N/Aeval { XSLoader::load(); };
1N/Aok( $@ =~ /^XSLoader::load\('Your::Module', \$Your::Module::VERSION\)/ );
1N/A
1N/Apackage SDBM_File;
1N/AXSLoader::load('SDBM_File');
1N/A::ok( ref SDBM_File->can('TIEHASH') );