diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

support for space reservation (goal: call gc before trying to insert very large terms).

Browse Source
This commit is contained in:
Vitor Santos Costa
2010-08-02 13:04:30 +01:00
parent 212758d25e
commit 3d6e223dae
13 changed files with 88 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
packages/zlib/test_zlib.pl
View File

@@ -13,10 +13,6 @@
:- use_module(library(socket)).
:- use_module(library(debug)).
:- expects_dialect(swi).
:- assert(system:swi_io).
test_zlib :-
run_tests([ zlib
]).
@@ -31,7 +27,7 @@ test(gunzip,
]) :-
gzopen('plunit-tmp.gz', read, ZIn),
call_cleanup(read_stream_to_codes(ZIn, Codes0), close(ZIn)),
myread_file_to_codes('test_zlib.pl', Codes1),
read_file_to_codes('test_zlib.pl', Codes1),
Codes0 == Codes1.
% gzip: Can gunzip read our compressed file
@@ -39,11 +35,11 @@ test(gunzip,
test(gzip,
[ cleanup(delete_file('plunit-tmp.gz'))
]) :-
myread_file_to_codes('test_zlib.pl', Codes),
read_file_to_codes('test_zlib.pl', Codes),
gzopen('plunit-tmp.gz', write, ZOut),
format(ZOut, '~s', [Codes]),
close(ZOut),
myread_file_to_codes(pipe('gunzip < plunit-tmp.gz'), Codes1),
read_file_to_codes(pipe('gunzip < plunit-tmp.gz'), Codes1),
Codes == Codes1.
% deflate: test read/write of deflate format
@@ -51,7 +47,7 @@ test(gzip,
test(deflate,
[ cleanup(delete_file('plunit-tmp.z'))
]) :-
myread_file_to_codes('test_zlib.pl', Codes),
read_file_to_codes('test_zlib.pl', Codes),
open('plunit-tmp.z', write, Out),
zopen(Out, ZOut, []),
format(ZOut, '~s', [Codes]),
@@ -202,9 +198,7 @@ get_data(ZIn, N) :-
* UTIL *
*******************************/
myread_file_to_codes(File, Codes) :-
read_file_to_codes(File, Codes) :-
open(File, read, In),
call_cleanup(read_stream_to_codes(In, Codes), close(In)).
:- retract(system:swi_io).