paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test, clean up test file when finished

Browse Source 
git-svn-id: trunk@1419 -
This commit is contained in:
Jonas Maebe 2005-10-16 14:34:07 +00:00
parent 0308048768
commit 29709ba351
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tw3595.pp
View File

@ -44,6 +44,16 @@ begin
fwstr[3]:= widechar(257);
fwstr:= fwstr + #0#1'abcde'#127#128#129;
end;
filestream:= tfilestream.create(textfilename,fmcreate);
memstream:= tmemorystream.create;
memstream.writecomponent(test1);
memstream.position:= 0;
objectbinarytotext(memstream,filestream);
memstream.free;
filestream.free;
try
filestream:= tfilestream.create(textfilename,fmopenread);
memstream:= tmemorystream.create;
@ -62,29 +72,27 @@ begin
writeln(widestringtocharinfo(test1.wstr));
writeln('actual:');
writeln(widestringtocharinfo(test2.wstr));
halt(1);
end;
except
on e: exception do begin
writeln('object reading fails: '+ e.message);
halt(1);
end;
end;
except
on e: exception do begin
writeln('objecttexttobinary fails: '+e.message);
halt(1);
end;
end;
filestream.free;
memstream.free;
except
writeln('file '+textfilename+' not found.');
halt(1);
end;
filestream:= tfilestream.create(textfilename,fmcreate);
memstream:= tmemorystream.create;
memstream.writecomponent(test1);
memstream.position:= 0;
objectbinarytotext(memstream,filestream);
memstream.free;
filestream.free;
test1.free;
test2.free;
deletefile(textfilename);
end.