From d79b36dc3cdf447bbb8540082d38cc789768ee78 Mon Sep 17 00:00:00 2001
From: Christof Thalhofer <christof@deganius.de>
Date: Sun, 18 Dec 2022 11:32:11 +0100
Subject: [PATCH] Gambas-Selftest get rid of 'Inform' command

[DEVELOPMENT ENVIRONMENT]
* OPT: Gambas-Selftest get rid of 'Inform' command
---
 app/src/gambas3-selftest/.src/Inform.class               | 7 -------
 app/src/gambas3-selftest/.src/TestSources/mTest.module   | 2 +-
 app/src/gambas3-selftest/.src/Tests/GambasSelftests.test | 8 ++++----
 app/src/gambas3-selftest/.test                           | 2 +-
 4 files changed, 6 insertions(+), 13 deletions(-)
 delete mode 100755 app/src/gambas3-selftest/.src/Inform.class

diff --git a/app/src/gambas3-selftest/.src/Inform.class b/app/src/gambas3-selftest/.src/Inform.class
deleted file mode 100755
index 483dd7b28..000000000
--- a/app/src/gambas3-selftest/.src/Inform.class
+++ /dev/null
@@ -1,7 +0,0 @@
-' Gambas class file
-
-Fast Static Public Function _call(sMessage As String)
-
-  Print sMessage  
-  
-End
diff --git a/app/src/gambas3-selftest/.src/TestSources/mTest.module b/app/src/gambas3-selftest/.src/TestSources/mTest.module
index 80d9139e2..6c609a52d 100644
--- a/app/src/gambas3-selftest/.src/TestSources/mTest.module
+++ b/app/src/gambas3-selftest/.src/TestSources/mTest.module
@@ -401,7 +401,7 @@ End
 
 Fast Public Sub Main()
 
-    Inform(("This is the Gambas Selftest. To run it in the IDE hit F4."))
+    Print ("This is the Gambas Selftest. To run it in the IDE hit F4.")
 
     '  Dim iResult As Integer = GambasSelftests.FastTests()
     '
diff --git a/app/src/gambas3-selftest/.src/Tests/GambasSelftests.test b/app/src/gambas3-selftest/.src/Tests/GambasSelftests.test
index 4733e1b10..a88ffb124 100644
--- a/app/src/gambas3-selftest/.src/Tests/GambasSelftests.test
+++ b/app/src/gambas3-selftest/.src/Tests/GambasSelftests.test
@@ -159,13 +159,13 @@ Fast Public Function FastTests() As Integer
 
     If Exist(Application.Path &/ ".src" &/ "TestSources" &/ "mTest.module") = False Then
         'Message.Error("Cannot open source file for testing! Test must be executed from GambasTest project root folder.")
-        Inform(("Cannot open source file for testing! Test must be executed from GambasTest project root folder."))
-        Return -1
+        Error.Raise(("Cannot open source file for testing! Test must be executed from GambasTest project root folder."))
+        'Return -1
     Endif
 
     If DebuggingEnabled = False Then
-        Inform(("GambasTester cannot be run without debugging information! Recompile debugging information enabled."))
-        Return -1
+        Error.Raise(("GambasTester cannot be run without debugging information! Recompile debugging information enabled."))
+        'Return -1
     Endif
 
     ' ------------------------------------------------- End Prerequisites
diff --git a/app/src/gambas3-selftest/.test b/app/src/gambas3-selftest/.test
index 2ce4ba2b8..431eb86ca 100644
--- a/app/src/gambas3-selftest/.test
+++ b/app/src/gambas3-selftest/.test
@@ -1,6 +1,6 @@
 [TestSuites]
 Count=4
-TestWith=0
+TestWith=1
 Default="Errorhandling.GeneralError"
 
 [TestSuites/1]