pFUnit/src/funit/core/FUnit_Core.F90 at 5ae68aecb1a3615baadc6f5b368bf7b6ec0063a6 · Goddard-Fortran-Ecosystem/pFUnit · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
module FUnit_Core
   use PF_SourceLocation
   use PF_Exception
   use PF_ExceptionVector
   use PF_ExceptionList
   use PF_Expectation
   use PF_Test
   use PF_TestSuite
   use PF_TestCase
   use PF_TestMethod
   use PF_AbstractTestParameter
   use PF_ParameterizedTestCase
   use PF_TestResult
   use PF_TestRunner
   use PF_BaseTestRunner

#ifdef Robust
   use PF_RemoteRunner
   use PF_RobustRunner
#endif

   use PF_TestListener
   use PF_TestListenerVector
   use PF_XmlPrinter
   use PF_ResultPrinter
   use PF_DebugListener

   use gFTL_StringVector
   use gFTL_StringUnlimitedMap

   use PF_ParallelContext
   use PF_SerialContext

   use Pf_TestAnnotation
   use pf_StringTestAnnotationMap
   use Pf_DisableAnnotation
   use Pf_TimeoutAnnotation

   use pf_NameFilter

   use fArgParse
   use pf_TapListener

   implicit none
   private

   public :: SourceLocation
   public :: Test
   public :: TestSuite
   public :: TestMethod
   public :: TestResult
   public :: TestRunner
   public :: BaseTestRunner

#ifdef Robust
   public :: RemoteRunner
   public :: RobustRunner
#endif

   public :: TestListener
   public :: TestListenerVector
   public :: ListenerPointer
   public :: ResultPrinter
   public :: XmlPrinter
   public :: DebugListener

   public :: NameFilter

   public :: TestCase
   public :: AbstractTestParameter
   public :: ParameterizedTestCase
   public :: ParallelContext
   public :: SerialContext


   public :: throw, catchNext, catch, anyExceptions

   public :: Expectation, Subject, Predicate
   public :: wasCalled, wasNotCalled, wasCalledOnce

   public :: LoadTests_interface

   abstract interface
      function LoadTests_interface() result(suite)
         import TestSuite
         type (TestSuite) :: suite
      end function LoadTests_interface
   end interface

   public :: TestAnnotation
   public :: StringTestAnnotationMap
   public :: Disable
   public :: TimeoutAnnotation

   public :: TapListener

end module FUnit_Core