Skip to content
Permalink
Browse files

fixed regression tests compilation

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Mar 8, 2019
1 parent 51fc1fc commit 01a47556b3aa1110a478621b1d6ce0ef397dea0d
Showing with 4 additions and 4 deletions.
  1. +3 −3 SynSelfTests.pas
  2. +1 −1 SynopseCommit.inc
@@ -10087,7 +10087,7 @@ procedure TTestCompression.GZipFormat;
Check(CompressGZip(s,false)='gzip');
Check(s=Data,'compressGZip');
Check(gzr.Init(M.Memory,M.Position),'TGZRead');
Check(gzr.uncomplen=length(data));
Check(gzr.uncomplen32=Cardinal(length(data)));
Check(gzr.crc32=crc0);
Check(gzr.ToMem=data,'ToMem');
st := TRawByteStringStream.Create;
@@ -10098,7 +10098,7 @@ procedure TTestCompression.GZipFormat;
finally
st.Free;
end;
SetLength(tmp,gzr.uncomplen div 5);
SetLength(tmp,gzr.uncomplen32 div 5);
Check(gzr.ZStreamStart(pointer(tmp),length(tmp)),'ZStreamStart');
s := '';
repeat
@@ -10108,7 +10108,7 @@ procedure TTestCompression.GZipFormat;
s := s+copy(tmp,1,n);
until false;
check(gzr.ZStreamDone,'ZStreamDone');
Check(gzr.uncomplen=length(s));
Check(gzr.uncomplen32=Cardinal(length(s)));
check(s=Data);
s := Data;
Check(CompressDeflate(s,true)='deflate');
@@ -1 +1 @@
'1.18.5090'
'1.18.5091'

0 comments on commit 01a4755

Please sign in to comment.
You can’t perform that action at this time.