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