use wktm::xindice;

print "\nStart testrpc.pl!\n";
# initialise the xindice perl object
my $testxin = new wktm::xindice('http://localhost:4080');
# get the collections from /db
print "===============listCollections============\n";
my $result = $testxin->listCollections;

foreach my $elem (@$result)
{
	print $elem . "\n";
}

print "===============setCollection============\n";
# set the collection to be used for further commands
$testxin->setCollection("/db/test");
# get the collections from /db/test
my $result = $testxin->listCollections;

foreach my $elem (@$result)
{
	print $elem . "\n";
}

print "==============listAllCollections=============\n";
# get the all collections from /db/test including all the sub collections !
$testxin->setCollection("/db");
my $result = $testxin->listAllCollections;
print "---------------------------\n";
foreach my $elem (sort @$result)
{
	print $elem . "\n";
}


print "==============listIndexers=============\n";
# get the indexers from /db/test/ali
$testxin->setCollection("/db/test/ali");
my $result = $testxin->listIndexers;

foreach my $elem (@$result)
{
	print $elem . "\n";
}

print "==============insertDocument=============\n";
# insert a document into /db/test
$testxin->setCollection("/db/test");
my $content = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?><bla><test>Nix is hier</test></bla>";
my $result = $testxin->insertDocument("mysmallxml", $content);
print "insertDocument=$result\n";
print "==============listDocuments /db/test =============\n";
# get a list of the  documents from /db/test
my $result = $testxin->listDocuments;
print "==============listDocuments /db/test/ali=============\n";
# get a list of the documents from /db/test/ali
$testxin->setCollection("/db/test/ali");
my $result = $testxin->listDocuments;

my $i = 0;
foreach my $elem (@$result)
{
	print $elem . "\n";
}


my @li = @$result;
print "==============getDocument $li[0] =============\n";
# get a first document from /db/test/ali
my $docresult = $testxin->getDocument($li[0]);
print $docresult; print "\n";

print "==============getDocumentCount=============\n";
# get document count from /db/test/ali
print  $testxin->getDocumentCount . "\n";

$testxin->setCollection("/db/test/ali");

print "==============queryCollection=============\n";
# run a query on /db/test/ali
$testxin->setCollection("/db/test/ali");
my $result = $testxin->queryCollection("/tmx/body/tu[\@creationid='20020730T073316Z#2#836791078']");
print $result . "\n";

print "==============queryAllCollections=============\n";
$testxin->setCollection("/db");
# run a query on /db and all its sub-collections (recursively)
my $result = $testxin->queryAllCollections("/tmx/body/tu[\@creationid='20020730T073316Z#2#836791078']");
foreach my $elem (@$result)
{
	print $elem . "\n";
}

# create a collection in /db/test called neu
print "==============createCollection=============\n";
$testxin->setCollection("/db/test");
print  $testxin->createCollection("neu");
my $result = $testxin->listAllCollections;
print "---------------------------\n";
foreach my $elem (@$result)
{
	print $elem . "\n";
}

print "==============listIndexers=============\n";
$testxin->setCollection("/db/test/ali");
my $result = $testxin->listIndexers;
foreach my $elem (@$result)
{
	print $elem . "\n";
}
print "==============createIndexer=============\n";
# create an indexer in /db/test/neu
$testxin->setCollection("/db/test/neu");
print  $testxin->createIndexer("mytest", "/short");
my $result = $testxin->listIndexers;
print "---------------------------\n";
foreach my $elem (@$result)
{
	print $elem . "\n";
}

print "==============dropIndexer=============\n";
$testxin->setCollection("/db/test/neu");
# delete (drop) an indexer in /db/test/neu
print  $testxin->dropIndexer("mytest");
my $result = $testxin->listIndexers;
print "---------------------------\n";
foreach my $elem (@$result)
{
	print $elem . "\n";
}

print "==============listAllIndexers=============\n";
$testxin->setCollection("/db");
my $result = $testxin->listAllIndexers;
print "---------------------------\n";
foreach my $elem (@$result)
{
	print $elem . "\n";
}
$testxin->setCollection("/db/test/neu");
print "==============dropCollection=============\n";
$testxin->setCollection("/db/test/neu");
# delete (drop) collection /db/test/neu
$testxin->dropCollection();
print "==============test listCollection=============\n";#
$testxin->setCollection("/db/test/neu");
my $result = $testxin->listAllCollections;
print "With error " . $result . "   " . scalar @$result . "\n";
$testxin->setCollection("/db/test");
my $result = $testxin->listAllCollections;
print "---------------------------\n";

if (scalar @$result > 0)
{
	foreach my $elem (@$result)
	{
		print $elem . "\n";
	}
}
print "\nEnd testrpc.pl!\n";