Commit | Line | Data |
dcccfb9b |
1 | #!./perl -w |
9e8c31cc |
2 | |
3 | BEGIN { |
dcccfb9b |
4 | chdir 't' if -d 't'; |
dbb032c1 |
5 | @INC = '../lib'; |
dbb032c1 |
6 | require Config; import Config; |
7 | if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){ |
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') ); |