error_stop: improve test by using a driver program

Author: scivision

src/tests/CMakeLists.txt

@@ -1,6 +1,6 @@
 macro(ADDTEST name)
     add_executable(test_${name} test_${name}.f90)
-    target_link_libraries(test_${name} ${PROJECT_NAME})
+    target_link_libraries(test_${name} PRIVATE ${PROJECT_NAME})
     add_test(NAME ${name}
              COMMAND $<TARGET_FILE:test_${name}> ${CMAKE_CURRENT_BINARY_DIR}
              WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR})
@@ -19,7 +19,14 @@ add_subdirectory(system)
 add_subdirectory(quadrature)
 add_subdirectory(math)
 
-ADDTEST(always_skip)
-set_tests_properties(always_skip PROPERTIES SKIP_RETURN_CODE 77)
-ADDTEST(always_fail)
-set_tests_properties(always_fail PROPERTIES WILL_FAIL true)
+add_executable(test_error_handling test_error_driver.f90)
+
+add_executable(test_always_77 test_always_77.f90)
+target_link_libraries(test_always_77 PRIVATE ${PROJECT_NAME})
+add_test(NAME test_error_77
+    COMMAND $<TARGET_FILE:test_error_handling> $<TARGET_FILE:test_always_77> 77)
+
+add_executable(test_always_1 test_always_fail.f90)
+target_link_libraries(test_always_1 PRIVATE ${PROJECT_NAME})
+add_test(NAME test_error_1
+    COMMAND $<TARGET_FILE:test_error_handling> $<TARGET_FILE:test_always_1> 1)

src/tests/test_always_skip.f90 renamed to src/tests/test_always_77.f90

@@ -1,4 +1,4 @@
-program test_always_skip
+program test_always_77
 
 use stdlib_error, only: check
 implicit none

src/tests/test_error_driver.f90

@@ -0,0 +1,28 @@
+program test_driver
+!! tests return codes from programs.
+!! useful for checking "error stop" return codes.
+!!
+!! Arguments:
+!!  prog: program to run and catch return code
+
+implicit none
+
+integer :: ierr, ok_code, cmderr
+character(1024) :: prog
+character(3) :: ok, actual
+
+call get_command_argument(1, prog, status=ierr)
+if(ierr/=0) error stop "please specify a program to catch return codes from"
+
+call get_command_argument(2, ok, status=ierr)
+if(ierr/=0) error stop "please specify the expected return code"
+
+read(ok, '(i3)') ok_code
+
+call execute_command_line(trim(prog), exitstat=ierr, cmdstat=cmderr)
+if(cmderr/=0) error stop "test_driver had problem running always-fail program"
+
+write(actual, '(i3)') ierr
+if(ierr /= ok_code) error stop "expected return code "//ok//", got "//actual//" instead"
+
+end program