new_testsuite Function

public function new_testsuite(name, collect) result(self)

Register a new testsuite

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

Name of the testsuite
procedure(collect_interface) :: collect

Entry point to collect tests

Return Value type(testsuite_type)

Newly registered testsuite


Source Code

function new_testsuite(name, collect) result(self)

   !> Name of the testsuite
   character(len=*), intent(in) :: name

   !> Entry point to collect tests
   procedure(collect_interface) :: collect

   !> Newly registered testsuite
   type(testsuite_type) :: self

   self%name = name
   self%collect => collect

end function new_testsuite