fix: Update bash file for exit code

Author: GerryFerdinandus

scripts/travis_unit_test.sh

@@ -14,11 +14,17 @@ then
   #windows
   enduser/tracker_editor_test.exe -a --format=plain
 
+  # Will exit with status of last command.
+  exit
+
   else
 
   #linux
   enduser/tracker_editor_test -a --format=plain
 
+  # Will exit with status of last command.
+  exit
+
   fi
 
 elif [ "$TRAVIS_OS_NAME" = "osx" ]
@@ -29,7 +35,8 @@ then
   #start the unit test
   tracker_editor_test -a --format=plain
 
-  cd ..
+  # Will exit with status of last command.
+  exit
 
 fi
 

source/project/unit_test/tracker_editor_test.lpr

@@ -1 +1 @@
-program tracker_editor_test;{$mode objfpc}{$H+}uses  Classes,  consoletestrunner,  fpcunit,  fpcunitreport,  TestCase1;type  { TLazTestRunner }  { TMyTestRunner }  TMyTestRunner = class(TTestRunner)  protected    // override the protected methods of TTestRunner to customize its behavior    procedure DoTestRun(ATest: TTest); override;  end;var  Application: TMyTestRunner;  { TMyTestRunner }  procedure TMyTestRunner.DoTestRun(ATest: TTest);  var    ResultsWriter: TCustomResultsWriter;    TestResult: TTestResult;  begin    ResultsWriter := GetResultsWriter;    ResultsWriter.Filename := FileName;    TestResult := TTestResult.Create;    try      TestResult.AddListener(ResultsWriter);      ATest.Run(TestResult);      ResultsWriter.WriteResult(TestResult);      //if something failed then exit with error: -1      if (TestResult.NumberOfErrors > 0) or (TestResult.NumberOfFailures > 0) then      begin        System.ExitCode := -1;      end;    finally      TestResult.Free;      ResultsWriter.Free;    end;  end;begin  Application := TMyTestRunner.Create(nil);  Application.Initialize;  Application.Run;  Application.Free;end.
+program tracker_editor_test;{$mode objfpc}{$H+}uses  Classes,  consoletestrunner,  fpcunit,  fpcunitreport,  TestCase1;type  { TLazTestRunner }  { TMyTestRunner }  TMyTestRunner = class(TTestRunner)  protected    // override the protected methods of TTestRunner to customize its behavior    procedure DoTestRun(ATest: TTest); override;  end;var  Application: TMyTestRunner;  { TMyTestRunner }  procedure TMyTestRunner.DoTestRun(ATest: TTest);  var    ResultsWriter: TCustomResultsWriter;    TestResult: TTestResult;  begin    ResultsWriter := GetResultsWriter;    ResultsWriter.Filename := FileName;    TestResult := TTestResult.Create;    try      TestResult.AddListener(ResultsWriter);      ATest.Run(TestResult);      ResultsWriter.WriteResult(TestResult);      //if something failed then exit with error: 1      if (TestResult.NumberOfErrors > 0) or (TestResult.NumberOfFailures > 0) then      begin        System.ExitCode := 1;      end;    finally      TestResult.Free;      ResultsWriter.Free;    end;  end;begin  Application := TMyTestRunner.Create(nil);  Application.Initialize;  Application.Run;  Application.Free;end.