#!perl

use ARS;
use strict;
require './t/config.cache';

print "1..2\n";

my $c = ars_Login(&CCACHE::SERVER, 
		  &CCACHE::USERNAME,
                  &CCACHE::PASSWORD);

if (defined($c)) {
	print "ok [1] (login)\n";
} else {
	print "not ok [1] (login $ars_errstr)\n";
	exit(0);
}

my $a = ars_GetFullTextInfo($c);

if (defined($a)) {
	print "ok [2] (GFTI) \n";
} else {
	print "not ok [2] (GFTI $ars_errstr)\n";
	exit(0);
}


ars_Logoff($c);
exit(0);