...
| Code Block |
|---|
!file: <project_dir>/test/fruit_basket.f90
module fruit_basket
use fruit
contains
subroutine calculator_test_all_tests
use calculator_test
call setup
write (*, *) " ..running test: test_calculator"
call set_unit_name('test_calculator')
call run_test_case (test_calculator, "test_calculator")
if (.not. is_case_passed()) then
write(*,*)
write(*,*) ' Un-satisfied spec:'
write(*,*) ' -- calculator'
write(*,*)
call case_failed_xml("test_calculator", &
& "calculator_test")
else
call case_passed_xml("test_calculator", &
& "calculator_test")
end if
call teardown
end subroutine calculator_test_all_tests
subroutine fruit_basketbasket1
call calculator_test_all_tests
end subroutine fruit_basketbasket1
end module fruit_basket |
Pay attention to code lines presented below. They come from code above. You can use them to call tests from desired test module.
...
| Code Block |
|---|
!file: <project_dir>/test/fruit_driver.f90 program fruit_driver use fruit use fruit_basket call init_fruit call fruit_basketbasket1 call fruit_summary end program fruit_driver |
...