[p5sagit/p5-mst-13.2.git] / ext / DynaLoader / t / XSLoader.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require Config; import Config;
    if ($Config{'extensions'} !~ /\bSDBM_File\b/) {
	print "1..0 # Skip: no SDBM_File\n";
	exit 0;
    }
}

use Test;
plan tests => 4;

use XSLoader;
ok(1);
ok( ref XSLoader->can('load') );

eval { XSLoader::load(); };
ok( $@ =~ /^XSLoader::load\('Your::Module', \$Your::Module::VERSION\)/ );

package SDBM_File;
XSLoader::load('SDBM_File');
::ok( ref SDBM_File->can('TIEHASH') );
Commit	Line	Data
dcccfb9b	1	#!./perl -w
9e8c31cc	2
9e8c31cc	3	BEGIN {
dcccfb9b	4	chdir 't' if -d 't';
dbb032c1	5	@INC = '../lib';
dbb032c1	6	require Config; import Config;
0468c23b	7	if ($Config{'extensions'} !~ /\bSDBM_File\b/) {
dbb032c1	8	print "1..0 # Skip: no SDBM_File\n";
	9	exit 0;
	10	}
9e8c31cc	11	}
	12
	13	use Test;
	14	plan tests => 4;
	15
	16	use XSLoader;
	17	ok(1);
	18	ok( ref XSLoader->can('load') );
	19
	20	eval { XSLoader::load(); };
	21	ok( $@ =~ /^XSLoader::load\('Your::Module', \$Your::Module::VERSION\)/ );
	22
	23	package SDBM_File;
	24	XSLoader::load('SDBM_File');
	25	::ok( ref SDBM_File->can('TIEHASH') );