Merge pull request AdaCore#25 from AdaCore/topic/avoid_misleading_msg

Topic/avoid misleading msg

Author: raja-s

Makefile

@@ -19,7 +19,7 @@ vscode:
 	@echo code --extensionDevelopmentPath=`pwd`/integration/vscode/ada/ `pwd`
 
 check: all
-	$(TESTER) $(TD)/0001-start_stop.json
+	$(TESTER) $(TD)/0001-start_stop.json > 0001.err || (cat 0001.err ; false )
 	$(TESTER) $(TD)/0002-shutdown.json
 	$(TESTER) $(TD)/0003-get_symbols.json
 	@echo All test passed!

source/tester/tester-tests.adb

@@ -16,6 +16,7 @@
 ------------------------------------------------------------------------------
 
 with Ada.Characters.Latin_1;
+with Ada.Command_Line;
 with Ada.Streams;
 with Ada.Strings.Fixed;
 with Ada.Text_IO;
@@ -57,6 +58,7 @@ package body Tester.Tests is
       pragma Unreferenced (Self);
    begin
       Ada.Text_IO.Put_Line ("Test failed:" & Message);
+      Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
    end Do_Fail;
 
    -------------