runTests Subroutine

  1. cafut.f90
  2. cafut
  3. runTests

public subroutine runTests(self)

Run all tests contained in a test suite.

Arguments

Type IntentOptional AttributesName
class(TestSuite), intent(in) :: self

Contents

Variables

Source Code

runTests

Variables

TypeVisibility AttributesNameInitial
integer, public :: tot_passed

Source Code

subroutine runTests(self)
    !! Run all tests contained in a test suite.

    class(TestSuite), intent(in) :: self

    integer :: tot_passed

    if (this_image() == 1) then
        print TEST_START, trim(self%test_suite_name)
    end if

    tot_passed = 0
    if (associated(self%test)) tot_passed = self%test%run()

    if (this_image() == 1) then
        print TEST_END, trim(self%test_suite_name), tot_passed, self%n_tests
    end if
end subroutine runTests