refinements to the test suite

Author: mrodrig6

toolchain/s_test_suite_compatibility.m

@@ -92,7 +92,6 @@
 
 end
 
-
 % find the last non-empty cell index
 lastNonEmptyIdx = find(failed_tests ~= 0, 1, 'last');
 % truncate the array, keeping empty cells within range
@@ -105,10 +104,10 @@
     % success
     fprintf('✅ All tests PASSED.\n');
     % success
-    % exit(0);
+    exit(0);
 else
     % fail the workflow
     fprintf('❌ Tests FAILED at indices: %s\n', sprintf('%d ', failed_tests));
     % failed
-    % exit(1);
+    exit(1);
 end

toolchain/s_test_suite_gaussian.m

@@ -1,5 +1,6 @@
-% file s_test_suite_equilibrium.m
-% brief contains script to test for equilibrium conditions
+% file s_test_suite_gaussian.m
+% brief contains script to test for equilibrium conditions from a Gaussian
+% pressure impulse
 
 % brief This script runs both the finite difference and spectral codes to
 % test that initial equilibrium conditions are satisfied
@@ -60,7 +61,6 @@
                         'tw',tw,...
                         'pA',pA};
                     [ttest,Rf_test] = f_imr_fd(varin{:},'Nt',50,'Mt',50);
-                    plot(ttest,Rf_test)
                     errors_fd(count) = abs(1-Rf_test(end));
                     fprintf('Test %d: L2 norm error = %.6e\n', count, errors_fd(count));
                     [~,Rs_test] = f_imr_spectral(varin{:},'Nt',12,'Mt',12);