#!perl
use
ARS;
use
strict;
require
'./t/config.cache'
;
"1..2\n"
;
my
$c
= ars_Login(
&CCACHE::SERVER
,
&CCACHE::USERNAME
,
&CCACHE::PASSWORD
);
if
(
defined
(
$c
)) {
"ok [1] (login)\n"
;
}
else
{
"not ok [1] (login $ars_errstr)\n"
;
exit
(0);
}
my
$a
= ars_GetFullTextInfo(
$c
);
if
(
defined
(
$a
)) {
"ok [2] (GFTI) \n"
;
}
else
{
"not ok [2] (GFTI $ars_errstr)\n"
;
exit
(0);
}
ars_Logoff(
$c
);
exit
(0);