|
@@ -683,13 +683,26 @@ Begin
|
|
|
TestSplit;
|
|
TestSplit;
|
|
|
RmDir(TestDir);
|
|
RmDir(TestDir);
|
|
|
PauseScreen;
|
|
PauseScreen;
|
|
|
|
|
+
|
|
|
|
|
+ { Cleanup }
|
|
|
|
|
+ {$I-}
|
|
|
|
|
+ assign(f,TestFName);
|
|
|
|
|
+ erase(f);
|
|
|
|
|
+ assign(f,TestFName1);
|
|
|
|
|
+ erase(f);
|
|
|
|
|
+ {$I+}
|
|
|
|
|
+ if ioresult<>0 then;
|
|
|
|
|
+
|
|
|
if has_errors then
|
|
if has_errors then
|
|
|
halt(1);
|
|
halt(1);
|
|
|
end.
|
|
end.
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.11 2002-12-06 16:36:17 peter
|
|
|
|
|
|
|
+ Revision 1.12 2002-12-06 16:38:15 peter
|
|
|
|
|
+ * cleanup tempfiles
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.11 2002/12/06 16:36:17 peter
|
|
|
* made more tests go32v2 specific because they expect (buggy?) Dos
|
|
* made more tests go32v2 specific because they expect (buggy?) Dos
|
|
|
findfirst behaviour
|
|
findfirst behaviour
|
|
|
|
|
|
peter