newTestSuite Function

  1. cafut.f90
  2. cafut
  3. newTestSuite

public function newTestSuite(ts_name) result(new_ts)

Construct a new test suite.

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: ts_name

Name of the test suite.

Return Value type(TestSuite)

Return the new test suite.


Contents

Source Code

newTestSuite

Source Code

function newTestSuite(ts_name) result(new_ts)
    !! Construct a new test suite.

    character(len=*), intent(in) :: ts_name
        !! Name of the test suite.
    type(TestSuite) :: new_ts
        !! Return the new test suite.

    new_ts%n_tests = 0
    new_ts%test => null()

    new_ts%test_suite_name = ts_name
end function newTestSuite