diff --git a/AGENTS.md b/AGENTS.md index 576538c..a17f1cd 100644 --- a/AGENTS.md +++ b/AGENTS.md @@ -61,13 +61,17 @@ Each backend implements `PrintComponentInitialization` and `PrintComponentEquati ```bash # Run all tests (recommended - runs unit tests + regression tests) -wolframscript -f test/AllTests.wl - -# Alternative: Run via bash script ./test/run_tests.sh +# Quiet mode - shows only checkmark on success or failures on error +./test/run_tests.sh --quiet + # Update golden files with new outputs ./test/run_tests.sh --generate + +# Alternative: Run via wolframscript directly +wolframscript -script test/AllTests.wl # verbose +wolframscript -script test/AllTests.wl -quiet # quiet mode ``` The test suite includes: diff --git a/CLAUDE.md b/CLAUDE.md index 576538c..a17f1cd 100644 --- a/CLAUDE.md +++ b/CLAUDE.md @@ -61,13 +61,17 @@ Each backend implements `PrintComponentInitialization` and `PrintComponentEquati ```bash # Run all tests (recommended - runs unit tests + regression tests) -wolframscript -f test/AllTests.wl - -# Alternative: Run via bash script ./test/run_tests.sh +# Quiet mode - shows only checkmark on success or failures on error +./test/run_tests.sh --quiet + # Update golden files with new outputs ./test/run_tests.sh --generate + +# Alternative: Run via wolframscript directly +wolframscript -script test/AllTests.wl # verbose +wolframscript -script test/AllTests.wl -quiet # quiet mode ``` The test suite includes: diff --git a/README.md b/README.md index 2deff90..f4c0b20 100644 --- a/README.md +++ b/README.md @@ -49,11 +49,15 @@ Generato GHG_rhs.wl ```bash # Run all tests (recommended - runs unit tests + regression tests) -wolframscript -f test/AllTests.wl - -# Alternative: Run via bash script ./test/run_tests.sh +# Quiet mode - shows only checkmark on success or failures on error +./test/run_tests.sh --quiet + # Update golden files with new outputs ./test/run_tests.sh --generate + +# Alternative: Run via wolframscript directly +wolframscript -script test/AllTests.wl # verbose +wolframscript -script test/AllTests.wl -quiet # quiet mode ``` diff --git a/src/Basic.wl b/src/Basic.wl index f5740c9..b37ba13 100644 --- a/src/Basic.wl +++ b/src/Basic.wl @@ -6,12 +6,6 @@ BeginPackage["Generato`Basic`", {"xAct`xTensor`", "xAct`xCoba`"}]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`Basic`, {2024, 1, 11}"]; - -System`Print["------------------------------------------------------------"]; - GetCheckInputEquations::usage = "GetCheckInputEquations[] returns True if input equation checking is enabled."; SetCheckInputEquations::usage = "SetCheckInputEquations[bool] enables or disables checking of input equations."; diff --git a/src/Component.wl b/src/Component.wl index a410e3d..b3bf537 100644 --- a/src/Component.wl +++ b/src/Component.wl @@ -8,12 +8,6 @@ Needs["Generato`Basic`"]; Needs["Generato`ParseMode`"]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`Component`, {2024, 1, 11}"]; - -System`Print["------------------------------------------------------------"]; - GetMapComponentToVarlist::usage = "GetMapComponentToVarlist[] returns the Association mapping tensor components to varlist indices."; SetProcessNewVarlist::usage = "SetProcessNewVarlist[bool] sets whether the next varlist is treated as a new varlist for index numbering."; diff --git a/src/Derivation.wl b/src/Derivation.wl index 8457b9a..12744bf 100644 --- a/src/Derivation.wl +++ b/src/Derivation.wl @@ -4,12 +4,6 @@ BeginPackage["Generato`Derivation`"]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`Derivation`, {2024, 1, 18}"]; - -System`Print["------------------------------------------------------------"]; - TestEQN::usage = "TestEQN[bool, label] prints 'SUCCEED' if bool is True, otherwise prints 'FAILED' and aborts."; Begin["`Private`"]; diff --git a/src/Interface.wl b/src/Interface.wl index aae5691..8812d1e 100644 --- a/src/Interface.wl +++ b/src/Interface.wl @@ -12,12 +12,6 @@ Needs["Generato`Component`"]; Needs["Generato`Varlist`"]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`Interface`, {2024, 1, 11}"]; - -System`Print["------------------------------------------------------------"]; - DefTensors::usage = "DefTensors[var1, var2, ...] defines tensors without setting their components."; GridTensors::usage = "GridTensors[var1, var2, ...] defines tensors with grid point indices, sets their components, and returns the varlist."; diff --git a/src/ParseMode.wl b/src/ParseMode.wl index ebab09f..7a15889 100644 --- a/src/ParseMode.wl +++ b/src/ParseMode.wl @@ -4,12 +4,6 @@ BeginPackage["Generato`ParseMode`"]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`ParseMode`, {2024, 7, 06}"]; - -System`Print["------------------------------------------------------------"]; - GetParseMode::usage = "GetParseMode[key] returns True if the specified parsing mode is active, False otherwise."; SetParseMode::usage = "SetParseMode[key->value] sets the specified parsing mode."; diff --git a/src/Varlist.wl b/src/Varlist.wl index 0c18242..0999475 100644 --- a/src/Varlist.wl +++ b/src/Varlist.wl @@ -10,12 +10,6 @@ Needs["Generato`ParseMode`"]; Needs["Generato`Component`"]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`Varlist`, {2024, 1, 11}"]; - -System`Print["------------------------------------------------------------"]; - ParseVarlist::usage = "ParseVarlist[varlist, chartname] processes a varlist, setting or printing components for each tensor.\nParseVarlist[{ExtraReplaceRules->rules}, varlist, chartname] processes with additional replacement rules."; ParseVar::usage = "ParseVar[var] parses a variable specification and returns {varname, symmetry, printname}."; diff --git a/src/Writefile.wl b/src/Writefile.wl index e02c2ca..653d4a6 100644 --- a/src/Writefile.wl +++ b/src/Writefile.wl @@ -10,12 +10,6 @@ Needs["Generato`Basic`"]; Needs["Generato`Component`"]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`Writefile`, {2025, 1, 23}"]; - -System`Print["------------------------------------------------------------"]; - SetMainPrint::usage = "SetMainPrint[content] sets the content to be written as the main body of the output file."; GetMainPrint::usage = "GetMainPrint[] returns and evaluates the content set by SetMainPrint."; diff --git a/src/stencils/FiniteDifferenceStencils.wl b/src/stencils/FiniteDifferenceStencils.wl index aeda271..b932c60 100644 --- a/src/stencils/FiniteDifferenceStencils.wl +++ b/src/stencils/FiniteDifferenceStencils.wl @@ -6,12 +6,6 @@ BeginPackage["Generato`FiniteDifferenceStencils`"]; -System`Print["------------------------------------------------------------"]; - -System`Print["Package Generato`FiniteDifferenceStencils`, {2025, 1, 21}"]; - -System`Print["------------------------------------------------------------"]; - GetFiniteDifferenceCoefficients::usage = "GetFiniteDifferenceCoefficients[sample, order] returns the finite difference coefficients for the given sample points and derivative order."; GetCenteringStencils::usage = "GetCenteringStencils[order] returns the centering stencil points for the given accuracy order."; diff --git a/test/AllTests.wl b/test/AllTests.wl index 0431e41..ce14e1d 100644 --- a/test/AllTests.wl +++ b/test/AllTests.wl @@ -2,15 +2,25 @@ (* AllTests.wl *) (* Master test runner for Generato *) -(* Usage: wolframscript -f test/AllTests.wl *) +(* Usage: wolframscript -script test/AllTests.wl [-quiet] *) $TestDir = DirectoryName[$InputFileName]; -Print[""]; -Print["========================================"]; -Print[" Generato Test Suite"]; -Print["========================================"]; -Print[""]; +(* Parse command line for quiet mode *) +$QuietMode = MemberQ[$ScriptCommandLine, "-quiet"]; + +(* Conditional print - only prints when not in quiet mode *) +QPrint[args___] := If[!$QuietMode, Print[args]]; + +(* Failure message collection for quiet mode output *) +$FailureMessages = {}; +AppendFailure[msg_String] := AppendTo[$FailureMessages, msg]; + +QPrint[""]; +QPrint["========================================"]; +QPrint[" Generato Test Suite"]; +QPrint["========================================"]; +QPrint[""]; (* Collect all verification tests *) $AllTests = {}; @@ -19,36 +29,40 @@ $AllTests = {}; (* PHASE 1: Unit Tests *) (* ========================================= *) -Print["--- Unit Tests ---"]; -Print[""]; +QPrint["--- Unit Tests ---"]; +QPrint[""]; unitTestFiles = FileNames["*.wl", FileNameJoin[{$TestDir, "unit"}]]; If[Length[unitTestFiles] > 0, Do[ - Print["Running: ", FileNameTake[file]]; - Get[file], + QPrint["Running: ", FileNameTake[file]]; + (* In quiet mode, suppress Print output from unit tests *) + If[$QuietMode, + Block[{Print = Null &}, Get[file]], + Get[file] + ], {file, unitTestFiles} ], - Print["No unit test files found in test/unit/"] + QPrint["No unit test files found in test/unit/"] ]; -Print[""]; +QPrint[""]; (* Generate test report if VerificationTests were run *) If[Length[$AllTests] > 0, - Print["Generating TestReport..."]; + QPrint["Generating TestReport..."]; report = TestReport[$AllTests]; - Print["Tests Passed: ", report["TestsSucceededCount"], "/", report["TestsSucceededCount"] + report["TestsFailedCount"]]; - Print[""]; + QPrint["Tests Passed: ", report["TestsSucceededCount"], "/", report["TestsSucceededCount"] + report["TestsFailedCount"]]; + QPrint[""]; ]; (* ========================================= *) (* PHASE 2: Golden File Regression Tests *) (* ========================================= *) -Print["--- Regression Tests (Golden Files) ---"]; -Print[""]; +QPrint["--- Regression Tests (Golden Files) ---"]; +QPrint[""]; (* Load test cases from config file *) $ConfigFile = FileNameJoin[{$TestDir, "test_cases.txt"}]; @@ -61,8 +75,8 @@ $TestCases = Select[ ValidShellInput[str_String] := StringMatchQ[str, RegularExpression["^[a-zA-Z0-9_./\\-]+$"]]; (* Generate outputs for each test case *) -Print["Generating test outputs..."]; -Print[""]; +QPrint["Generating test outputs..."]; +QPrint[""]; $GenerationFailed = False; Do[ @@ -72,27 +86,37 @@ Do[ If[FileExistsQ[testFile], (* Validate inputs before shell execution *) If[!ValidShellInput[backend] || !ValidShellInput[testName], - Print[" ERROR: Invalid characters in backend or testName"]; + QPrint[" ERROR: Invalid characters in backend or testName"]; + AppendFailure["FAILED: Invalid characters in " <> backend <> "/" <> testName]; $GenerationFailed = True; Continue[]; ]; - Print[" Generating: ", backend, "/", testName, ".wl"]; + QPrint[" Generating: ", backend, "/", testName, ".wl"]; (* Run Generato from the test directory *) - result = Run["cd " <> FileNameJoin[{$TestDir, backend}] <> " && \"$GENERATO/Generato\" " <> testName <> ".wl 2>&1"]; + (* In quiet mode, suppress subprocess output *) + result = If[$QuietMode, + Run["cd " <> FileNameJoin[{$TestDir, backend}] <> " && \"$GENERATO/Generato\" " <> testName <> ".wl > /dev/null 2>&1"], + Run["cd " <> FileNameJoin[{$TestDir, backend}] <> " && \"$GENERATO/Generato\" " <> testName <> ".wl 2>&1"] + ]; If[result != 0, - Print[" FAILED to generate ", testName, ext]; + QPrint[" FAILED to generate ", testName, ext]; + AppendFailure["FAILED to generate " <> testName <> ext]; $GenerationFailed = True; ], - Print[" SKIP: ", testFile, " not found"]; + QPrint[" SKIP: ", testFile, " not found"]; ], {testCase, $TestCases} ]; -Print[""]; +QPrint[""]; If[$GenerationFailed, - Print["ERROR: Some outputs failed to generate"]; + QPrint["ERROR: Some outputs failed to generate"]; + If[$QuietMode, + Print["✗ tests"]; + Print /@ $FailureMessages; + ]; Exit[1] ]; @@ -103,15 +127,15 @@ Get[FileNameJoin[{$TestDir, "regression", "compare_golden.wl"}]]; $RegressionResult = GoldenTest`RunGoldenTests[]; (* Cleanup generated output files *) -Print[""]; -Print["Cleaning up generated files..."]; +QPrint[""]; +QPrint["Cleaning up generated files..."]; Do[ {backend, testName, ext} = testCase; outputFile = FileNameJoin[{$TestDir, backend, testName <> ext}]; If[FileExistsQ[outputFile], Check[ DeleteFile[outputFile], - Print[" Warning: Failed to delete ", outputFile] + QPrint[" Warning: Failed to delete ", outputFile] ]; ], {testCase, $TestCases} @@ -119,6 +143,13 @@ Do[ (* Exit with appropriate status *) If[$RegressionResult === $Failed, + If[$QuietMode, + Print["✗ tests"]; + Print /@ $FailureMessages; + ]; Exit[1], + If[$QuietMode, + Print["✓ tests"]; + ]; Exit[0] ]; diff --git a/test/regression/compare_golden.wl b/test/regression/compare_golden.wl index 2eb368d..33199da 100644 --- a/test/regression/compare_golden.wl +++ b/test/regression/compare_golden.wl @@ -14,17 +14,32 @@ Begin["`Private`"]; $TestDir = DirectoryName[$InputFileName]; $GoldenDir = FileNameJoin[{$TestDir, "..", "golden"}]; +(* Check if quiet mode is set by parent (AllTests.wl) *) +$LocalQuietMode = If[ValueQ[Global`$QuietMode], Global`$QuietMode, False]; + +(* Conditional print - only prints when not in quiet mode *) +QPrint[args___] := If[!$LocalQuietMode, Print[args]]; + +(* Add failure to parent's failure list if available *) +AddFailure[msg_String] := If[ValueQ[Global`$FailureMessages], + AppendTo[Global`$FailureMessages, msg] +]; + (* Compare two files, return True if identical *) CompareGoldenFile[currentFile_String, goldenFile_String] := Module[ - {current, golden, result}, + {current, golden, result, failMsg}, If[!FileExistsQ[currentFile], - Print["FAIL: Current file not found: ", currentFile]; + failMsg = "FAIL: Current file not found: " <> currentFile; + QPrint[failMsg]; + AddFailure[failMsg]; Return[$Failed] ]; If[!FileExistsQ[goldenFile], - Print["FAIL: Golden file not found: ", goldenFile]; + failMsg = "FAIL: Golden file not found: " <> goldenFile; + QPrint[failMsg]; + AddFailure[failMsg]; Return[$Failed] ]; @@ -32,11 +47,13 @@ CompareGoldenFile[currentFile_String, goldenFile_String] := Module[ golden = Import[goldenFile, "Text"]; If[current === golden, - Print["PASS: ", FileNameTake[currentFile]]; + QPrint["PASS: ", FileNameTake[currentFile]]; True, - Print["FAIL: ", FileNameTake[currentFile], " differs from golden"]; - Print[" Current: ", StringLength[current], " chars"]; - Print[" Golden: ", StringLength[golden], " chars"]; + failMsg = "FAIL: " <> FileNameTake[currentFile] <> " differs from golden"; + QPrint[failMsg]; + QPrint[" Current: ", StringLength[current], " chars"]; + QPrint[" Golden: ", StringLength[golden], " chars"]; + AddFailure[failMsg]; $Failed ] ]; @@ -52,8 +69,8 @@ $TestCases = Select[ RunGoldenTests[] := Module[ {results, passed, failed, backend, testName, ext, currentFile, goldenFile}, - Print["=== Golden File Regression Tests ==="]; - Print[""]; + QPrint["=== Golden File Regression Tests ==="]; + QPrint[""]; results = Table[ {backend, testName, ext} = testCase; @@ -66,20 +83,20 @@ RunGoldenTests[] := Module[ passed = Count[results, True]; failed = Count[results, $Failed]; - Print[""]; - Print["=== Summary ==="]; - Print["Passed: ", passed, "/", Length[results]]; - Print["Failed: ", failed, "/", Length[results]]; + QPrint[""]; + QPrint["=== Summary ==="]; + QPrint["Passed: ", passed, "/", Length[results]]; + QPrint["Failed: ", failed, "/", Length[results]]; If[failed > 0, - Print[""]; - Print["REGRESSION DETECTED"]; + QPrint[""]; + QPrint["REGRESSION DETECTED"]; If[Length[$ScriptCommandLine] > 0 && MemberQ[StringContainsQ[#, "compare_golden.wl"] & /@ $ScriptCommandLine, True], Exit[1], $Failed ], - Print[""]; - Print["ALL TESTS PASSED"]; + QPrint[""]; + QPrint["ALL TESTS PASSED"]; If[Length[$ScriptCommandLine] > 0 && MemberQ[StringContainsQ[#, "compare_golden.wl"] & /@ $ScriptCommandLine, True], Exit[0], True diff --git a/test/run_tests.sh b/test/run_tests.sh index a76cc9a..eba4f55 100755 --- a/test/run_tests.sh +++ b/test/run_tests.sh @@ -22,6 +22,7 @@ NC='\033[0m' # No Color # Parse arguments GENERATE=false +QUIET_MODE=false for arg in "$@"; do case $arg in @@ -29,15 +30,22 @@ for arg in "$@"; do GENERATE=true shift ;; + --quiet|-q) + QUIET_MODE=true + shift + ;; --help) echo "Usage: $0 [options]" echo " --generate Update golden files with new outputs" + echo " --quiet, -q Show only checkmark on success or failures on error" echo " --help Show this help message" exit 0 ;; esac done +# Main test execution function +run_all_tests() { echo "" echo "========================================" echo " Generato Test Suite" @@ -192,8 +200,32 @@ echo "Integration: Passed: $PASSED, Failed: $FAILED" if [ "$FAILED" -gt 0 ]; then echo -e "${RED}TESTS FAILED${NC}" - exit 1 + return 1 else echo -e "${GREEN}ALL TESTS PASSED${NC}" - exit 0 + return 0 +fi +} + +# Execute tests with quiet mode handling +if [ "$QUIET_MODE" = true ]; then + TEMP_OUTPUT=$(mktemp) + trap "rm -f $TEMP_OUTPUT" EXIT + + # Run tests with output captured + set +e + run_all_tests > "$TEMP_OUTPUT" 2>&1 + EXIT_CODE=$? + set -e + + if [ $EXIT_CODE -eq 0 ]; then + echo "✓ tests" + else + echo "✗ tests" + grep -E "(FAIL|FAILED)" "$TEMP_OUTPUT" || true + fi + exit $EXIT_CODE +else + run_all_tests + exit $? fi diff --git a/test/unit/BasicTests.wl b/test/unit/BasicTests.wl index 7954087..14c8238 100644 --- a/test/unit/BasicTests.wl +++ b/test/unit/BasicTests.wl @@ -3,8 +3,6 @@ (* BasicTests.wl *) (* Unit tests for Generato`Basic module *) -Print["Loading BasicTests.wl..."]; - (* Load Generato *) Needs["xAct`xCoba`", FileNameJoin[{Environment["GENERATO"], "src/Generato.wl"}]]; @@ -173,5 +171,3 @@ VerificationTest[ SetPVerbose[False]; SetGridPointIndex[""]; SetTilePointIndex[""]; - -Print["BasicTests.wl completed."]; diff --git a/test/unit/ComponentTests.wl b/test/unit/ComponentTests.wl index 9d5486f..3e405f8 100644 --- a/test/unit/ComponentTests.wl +++ b/test/unit/ComponentTests.wl @@ -3,8 +3,6 @@ (* ComponentTests.wl *) (* Unit tests for Generato`Component module *) -Print["Loading ComponentTests.wl..."]; - (* Load Generato *) Needs["xAct`xCoba`", FileNameJoin[{Environment["GENERATO"], "src/Generato.wl"}]]; @@ -145,5 +143,3 @@ SetUseLetterForTensorComponent[False]; SetTempVariableType["double"]; SetInterfaceWithNonCoordBasis[False]; SetSuffixName[""]; - -Print["ComponentTests.wl completed."]; diff --git a/test/unit/DerivationTests.wl b/test/unit/DerivationTests.wl index 8ad6a36..eb825ad 100644 --- a/test/unit/DerivationTests.wl +++ b/test/unit/DerivationTests.wl @@ -3,8 +3,6 @@ (* DerivationTests.wl *) (* Unit tests for Generato`Derivation module *) -Print["Loading DerivationTests.wl..."]; - (* Load the Derivation package *) Needs["Generato`Derivation`", FileNameJoin[{Environment["GENERATO"], "src/Derivation.wl"}]]; @@ -53,5 +51,3 @@ VerificationTest[ True, TestID -> "TestEQN-RecoveryAfterAbort" ]; - -Print["DerivationTests.wl completed."]; diff --git a/test/unit/FiniteDifferenceStencilsTests.wl b/test/unit/FiniteDifferenceStencilsTests.wl index e0a3a9c..04cc7ad 100644 --- a/test/unit/FiniteDifferenceStencilsTests.wl +++ b/test/unit/FiniteDifferenceStencilsTests.wl @@ -3,8 +3,6 @@ (* FiniteDifferenceStencilsTests.wl *) (* Unit tests for Generato`FiniteDifferenceStencils module *) -Print["Loading FiniteDifferenceStencilsTests.wl..."]; - (* Load the stencils package *) Needs["Generato`FiniteDifferenceStencils`", FileNameJoin[{Environment["GENERATO"], "src/stencils/FiniteDifferenceStencils.wl"}]]; @@ -123,5 +121,3 @@ VerificationTest[ True, TestID -> "GetUpwindCoefficients-HasSymmetricAndAntisymmetric" ]; - -Print["FiniteDifferenceStencilsTests.wl completed."]; diff --git a/test/unit/InterfaceTests.wl b/test/unit/InterfaceTests.wl index ffc9b3b..0bca537 100644 --- a/test/unit/InterfaceTests.wl +++ b/test/unit/InterfaceTests.wl @@ -4,8 +4,6 @@ (* Unit tests for Generato`Interface module *) (* Tests: GridTensors, TileTensors, TempTensors *) -Print["Loading InterfaceTests.wl..."]; - (* Load Generato if not already loaded *) If[!MemberQ[$Packages, "Generato`Interface`"], Needs["xAct`xCoba`", FileNameJoin[{Environment["GENERATO"], "src/Generato.wl"}]] @@ -122,5 +120,3 @@ VerificationTest[ True, TestID -> "SetComponents-UseTilePointIndex" ]; - -Print["InterfaceTests.wl completed."]; diff --git a/test/unit/ParseModeTests.wl b/test/unit/ParseModeTests.wl index 97bf8ae..f94ea59 100644 --- a/test/unit/ParseModeTests.wl +++ b/test/unit/ParseModeTests.wl @@ -3,8 +3,6 @@ (* ParseModeTests.wl *) (* Unit tests for Generato`ParseMode module *) -Print["Loading ParseModeTests.wl..."]; - (* Load Generato *) Needs["xAct`xCoba`", FileNameJoin[{Environment["GENERATO"], "src/Generato.wl"}]]; @@ -214,5 +212,3 @@ CleanParsePrintCompInitMode[]; CleanParsePrintCompEQNMode[]; CleanParsePrintCompInitTensorType[]; CleanParsePrintCompInitStorageType[]; - -Print["ParseModeTests.wl completed."]; diff --git a/test/unit/VarlistTests.wl b/test/unit/VarlistTests.wl index 701ad85..7e252b5 100644 --- a/test/unit/VarlistTests.wl +++ b/test/unit/VarlistTests.wl @@ -4,8 +4,6 @@ (* Unit tests for Generato`Varlist module *) (* Tests: ParseVar, DefineTensor *) -Print["Loading VarlistTests.wl..."]; - (* Load Generato *) Needs["xAct`xCoba`", FileNameJoin[{Environment["GENERATO"], "src/Generato.wl"}]]; @@ -157,5 +155,3 @@ VerificationTest[ True, TestID -> "ParseVarlist-BasicSmoke" ]; - -Print["VarlistTests.wl completed."]; diff --git a/test/unit/WritefileTests.wl b/test/unit/WritefileTests.wl index 2a339c9..f37e3ed 100644 --- a/test/unit/WritefileTests.wl +++ b/test/unit/WritefileTests.wl @@ -3,8 +3,6 @@ (* WritefileTests.wl *) (* Unit tests for Generato`Writefile module *) -Print["Loading WritefileTests.wl..."]; - (* Load Generato which includes Writefile *) If[!MemberQ[$Packages, "Generato`Writefile`"], Needs["xAct`xCoba`", FileNameJoin[{Environment["GENERATO"], "src/Generato.wl"}]] @@ -99,5 +97,3 @@ VerificationTest[ True, TestID -> "WriteToFile-NoHeaderMacro" ]; - -Print["WritefileTests.wl completed."];