:- use_module(library(plunit)).

:- begin_tests(read).

:- use_module(library(system)).

:- use_module(library(readutil)).

create_file(Tmp) :-
	tmp_file(plunit, Tmp),
	open(Tmp, write, Out),
	write(Out, 'hello(World).\n'),
	close(Out).

test(read, [ setup(create_file(Tmp)),
	     cleanup(delete_file(Tmp))
	   ]) :-
	read_file_to_terms(Tmp, Terms, []),
	Terms =@= [hello(_)].

:- end_tests(read).

:- trace,run_tests.