Abstract class for a single test case. A node in the test linked list.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=NAME_LENGTH), | public | :: | test_name | Name of the test case. |
Abstract function interface for running a test.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Test), | intent(in) | :: | self | The test itself. The Test object should contain all information needed to run the test. |
Return total number of tests which passed in the linked list up to and including this test.
type, abstract, private :: Test
!! Abstract class for a single test case. A node in the test linked list.
character(len=NAME_LENGTH), public :: test_name
!! Name of the test case.
class(Test), private, pointer :: next
!! Next test case or null() if this is the first test inserted (last
!! test in the linked list).
contains
procedure(runInterface), deferred, pass :: run
end type Test