23 lines
401 B
Perl
23 lines
401 B
Perl
|
|
||
|
|
:- 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).
|