From 29709ba3518b40f904f9f3d26341961192a5cd45 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 16 Oct 2005 14:34:07 +0000
Subject: [PATCH]   * fixed test, clean up test file when finished

git-svn-id: trunk@1419 -
---
 tests/webtbs/tw3595.pp | 22 +++++++++++++++-------
 1 file changed, 15 insertions(+), 7 deletions(-)

diff --git a/tests/webtbs/tw3595.pp b/tests/webtbs/tw3595.pp
index 20c036540b..5e4797e4c9 100644
--- a/tests/webtbs/tw3595.pp
+++ b/tests/webtbs/tw3595.pp
@@ -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.