...
| Code Block |
|---|
.
├── fruit
│ └── fruit.f90
├── mod
├── src
│ └── main
│ └── <your_module>.f90
└── test
├── <your_module>_test.f90
└── fruit_driver.f90 |
...
This directory will contains built modules. Unlikely GNU make won't will not create it itself.
| Code Block |
|---|
cd <project_dir> mkdir mod |
...
| 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 |
...
Output created with project described above
Output created with different project
...