各位好,
我试图寻找有关Fortran和Visual Studio中的单元测试的任何现有文档,但没有找到。 你是否有进行Fortran单元测试的经验,可以为该主题推荐一些好的教程或书籍?这些工具需要集成到Visual Studio 19环境中,并且我希望使用内置的Test-Explorer。(我使用英特尔编译器,但是这对于测试不应该有影响,对吧?)
最好的问候,
各位好,
我试图寻找有关Fortran和Visual Studio中的单元测试的任何现有文档,但没有找到。 你是否有进行Fortran单元测试的经验,可以为该主题推荐一些好的教程或书籍?这些工具需要集成到Visual Studio 19环境中,并且我希望使用内置的Test-Explorer。(我使用英特尔编译器,但是这对于测试不应该有影响,对吧?)
最好的问候,
有几个与Fortran相关的单元测试工具: http://fortranwiki.org/fortran/show/Unit+testing+frameworks 我猜你应该先查看它们。
dongli创建了这个易于应用的Fortran单元测试库:
https://github.com/dongli/fortran-unit-test
以下示例展示了此库的用法:program good_test
use unit_test
implicit none
type(test_suite_type) specific_suite
! example with default suite
call test_case_init()
call test_case_create('Test 1')
! By sending macros __FILE__ and __LINE__, report will print the file and line number where assertion fails.
call assert_approximate(1.0, 2.0, __FILE__, __LINE__) ! line 14
call test_suite_report()
call test_case_final()
! example with specific suite
specific_suite%name = 'my specific test suite'
call test_case_create('Specific Test 1', specific_suite)
! suite = SUITE need in this case (cause optional argument eps, file_name, line_number is missing)
call assert_approximate(1.0, 2.0, suite=specific_suite)
call test_case_create('Specific Test 2', specific_suite)
! suite = SUITE need in this case (cause optional argument eps is missing)
call assert_equal(1.0, 2.0, __FILE__, __LINE__, suite=specific_suite)
call test_case_create('Specific Test 3', specific_suite)
call assert_approximate(1.0, 2.0, __FILE__, __LINE__, 1E-0, specific_suite)
! report a test_case
call test_case_report('Specific Test 2', specific_suite)
! report the complete suite
call test_suite_report(specific_suite)
call test_case_final(specific_suite)
end program good_test
输出的样子如下:
///////////////////// Report of Suite: Default test suite ///////////////////////
+-> Details:
| |
| +-> Test 1: 1 of 1 assertions succeed.
| |
|
+-> Summary:
| +-> Default test suite: 1 of 1 assertions succeed.
////////////////////////////////////////////////////////////////////////////////
//////// Report of Suite: my specific test suite, Case: Specific Test 2 /////////
+-> Specific Test 2: 0 of 1 assertions succeed.
| |
| +-> Assertion #1 failed with reason: x ( 1.000) == y ( 2.000)
| +-> Check line: test_assert.F90:29
/////////////////// Report of Suite: my specific test suite /////////////////////
+-> Details:
| |
| +-> Specific Test 1: 1 of 1 assertions succeed.
| |
| +-> Specific Test 2: 0 of 1 assertions succeed.
| | |
| | +-> Assertion #1 failed with reason: x ( 1.000) == y ( 2.000)
| | +-> Check line: test_assert.F90:29
| |
| +-> Specific Test 3: 0 of 1 assertions succeed.
| | |
| | +-> Assertion #1 failed with reason: x ( 1.000) =~ y ( 2.000)
| | +-> Check line: test_assert.F90:32
| |
|
+-> Summary:
| +-> my specific test suite: 1 of 3 assertions succeed.
////////////////////////////////////////////////////////////////////////////////