From 4d58eaf60b6f133fd850675ebb079cd2701993de Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 6 Jul 1999 15:40:35 +0000
Subject: [PATCH]   * moved to succes instead of fail

---
 tests/{tbf0203.pp => tbs0203.pp}   | 6 +++---
 tests/{tbf0203a.pp => tbs0203a.pp} | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)
 rename tests/{tbf0203.pp => tbs0203.pp} (67%)
 rename tests/{tbf0203a.pp => tbs0203a.pp} (86%)

diff --git a/tests/tbf0203.pp b/tests/tbs0203.pp
similarity index 67%
rename from tests/tbf0203.pp
rename to tests/tbs0203.pp
index e339afa201..8c41ae7a8d 100644
--- a/tests/tbf0203.pp
+++ b/tests/tbs0203.pp
@@ -1,10 +1,10 @@
-program tbf0203;
+program tbs0203;
 
-uses 
+uses
 {$ifdef go32v2}
   dpmiexcp,
 {$endif def go32v2}
-  tbf0203a;
+  tbs0203a;
 
 begin
    c;
diff --git a/tests/tbf0203a.pp b/tests/tbs0203a.pp
similarity index 86%
rename from tests/tbf0203a.pp
rename to tests/tbs0203a.pp
index f425eea19a..0b78efca78 100644
--- a/tests/tbf0203a.pp
+++ b/tests/tbs0203a.pp
@@ -1,4 +1,4 @@
-unit tbf0203a;
+unit tbs0203a;
 
 interface
    procedure a;
@@ -15,7 +15,7 @@ implementation
 
    procedure b;[public, alias : '_assembler_a'];
      begin
-        Writeln('b called'); 
+        Writeln('b called');
         Is_called:=true;
      end;