%%before starting the test, make sure that the DIG server is on.

:-use_module(library('http/http_client')).


testit:- http_post('http://127.0.0.1:8001', file('kb.xml'), Reply, []),
	    format('~w~n',[Reply]).

testit(File):- http_post('http://127.0.0.1:8001', file(File), Reply, []),
	    format('~w~n',[Reply]).

testit(URL, File):- http_post(URL, file(File), Reply, []),
	    format('~w~n',[Reply]).