Merge branch 'master' of gitlab.com:gambas/gambas

app/src/gambas3-selftest/.src/Inform.class

@@ -1,7 +0,0 @@
-' Gambas class file
-
-Fast Static Public Function _call(sMessage As String)
-
-  Print sMessage  
-  
-End

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()
     '

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

app/src/gambas3-selftest/.test

@@ -1,6 +1,6 @@
 [TestSuites]
 Count=4
-TestWith=0
+TestWith=1
 Default="Errorhandling.GeneralError"
 
 [TestSuites/1]