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

#!/usr/bin/perl -w

BEGIN {
    chdir 't';
#    @INC = '../lib';
}

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
9e8c31cc	1	#!/usr/bin/perl -w
	2
	3	BEGIN {
	4	chdir 't';
	5	# @INC = '../lib';
	6	}
	7
	8	use Test;
	9	plan tests => 4;
	10
	11	use XSLoader;
	12	ok(1);
	13	ok( ref XSLoader->can('load') );
	14
	15	eval { XSLoader::load(); };
	16	ok( $@ =~ /^XSLoader::load\('Your::Module', \$Your::Module::VERSION\)/ );
	17
	18	package SDBM_File;
	19	XSLoader::load('SDBM_File');
	20	::ok( ref SDBM_File->can('TIEHASH') );