Cross Reference: XSLoader.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
DynaLoader
/
t
/
XSLoader.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl -w
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
require
Config
;
import
Config
;
1
N/A
if
(
$Config
{
'extensions'
} !~ /\
bSDBM_File
\b/)
{
1
N/A
print
"1..0 # Skip: no SDBM_File\n"
;
1
N/A
exit
0
;
1
N/A
}
1
N/A
}
1
N/A
1
N/A
use
Test
;
1
N/A
plan
tests
=>
4
;
1
N/A
1
N/A
use
XSLoader
;
1
N/A
ok
(
1
)
;
1
N/A
ok
(
ref
XSLoader
->
can
(
'load'
)
)
;
1
N/A
1
N/A
eval
{
XSLoader
::
load
()
; }
;
1
N/A
ok
( $@ =~ /^
XSLoader
::
load
\(
'Your::Module'
, \$
Your
::
Module
::
VERSION
\)/ )
;
1
N/A
1
N/A
package
SDBM_File
;
1
N/A
XSLoader
::
load
(
'SDBM_File'
)
;
1
N/A
::
ok
(
ref
SDBM_File
->
can
(
'TIEHASH'
)
)
;