@@ -34,39 +34,43 @@ program good_test
3434 use unit_test
3535
3636 implicit none
37-
38- type(test_suite_type) specific_suite
39-
40- ! example with default suite
41- call test_case_init()
4237
38+ type(test_suite_type) :: specific_suite
39+
40+ ! example with default suite
41+ call test_suite_init()
4342 call test_case_create('Test 1')
4443
4544 ! By sending macros __FILE__ and __LINE__, report will print the file and line number where assertion fails.
4645 call assert_approximate(1.0, 2.0, __FILE__, __LINE__) ! line 14
4746
47+ ! report the complete suite
4848 call test_suite_report()
49+
50+ ! finalize
4951 call test_case_final()
50-
52+
5153 ! example with specific suite
52- specific_suite%name = 'my specific test suite'
54+ call test_suite_init( 'my specific test suite', specific_suite)
5355 call test_case_create('Specific Test 1', specific_suite)
5456 ! suite = SUITE need in this case (cause optional argument eps, file_name, line_number is missing)
5557 call assert_approximate(1.0, 2.0, suite=specific_suite)
56-
58+
5759 call test_case_create('Specific Test 2', specific_suite)
5860 ! suite = SUITE need in this case (cause optional argument eps is missing)
5961 call assert_equal(1.0, 2.0, __FILE__, __LINE__, suite=specific_suite)
60-
62+
6163 call test_case_create('Specific Test 3', specific_suite)
6264 call assert_approximate(1.0, 2.0, __FILE__, __LINE__, 1E-0, specific_suite)
63-
65+
6466 ! report a test_case
6567 call test_case_report('Specific Test 2', specific_suite)
66-
68+
6769 ! report the complete suite
6870 call test_suite_report(specific_suite)
69- call test_case_final(specific_suite)
71+
72+ ! finalize
73+ call test_suite_final(specific_suite)
7074
7175end program good_test
7276```
0 commit comments