/
cclut_test_runner_end.inc
68 lines (59 loc) · 2.91 KB
/
cclut_test_runner_end.inc
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
;**********************************************************************************************************************************
;
; The final portion of the code for the manual test runner.
;
;**********************************************************************************************************************************
#exit_script
;check for dangling errors missed because of a failed assert
declare errorSource = vc with protect, noconstant("")
if (cclut_test_runner::setupOnceFinished = FALSE)
set errorSource = "setupOnce"
elseif (cclut_test_runner::setupFinished = FALSE)
set errorSource = "setup"
else
set errorSource = cclut_test_runner::lastTestName
endif
call cclut_test_runner::checkForCclErrors(errorSource, FALSE)
;complete teardown execution if missed because of a failed assert
if (checkfun("TEARDOWN") = cclut_test_runner::FUN_TYPE_SUBROUTINE)
if (cclut_test_runner::teardownStarted = FALSE)
call cclut::doOutput("Executing teardown...")
set cclut_test_runner::teardownStarted = TRUE
call teardown(null)
set cclut_test_runner::teardownFinished = TRUE
call cclut_test_runner::checkForCclErrors("teardown", FALSE)
elseif (cclut_test_runner::teardownFinished = FALSE)
set cclut_test_runner::teardownFinished = TRUE
call cclut_test_runner::checkForCclErrors("teardown", FALSE)
endif
endif
;complete teardownOnce execution if missed because of a failed assert
call cclut_test_runner::checkForCclErrors(cclut_test_runner::lastTestName, FALSE)
if (checkfun("TEARDOWNONCE") = cclut_test_runner::FUN_TYPE_SUBROUTINE)
if (cclut_test_runner::teardownOnceStarted = FALSE)
set cclut_test_runner::teardownOnceStarted = TRUE
call cclut::doOutput("Executing teardownOnce...")
call teardownOnce(null)
set cclut_test_runner::teardownOnceFinished = TRUE
call cclut_test_runner::checkForCclErrors("teardownOnce", FALSE)
elseif (cclut_test_runner::teardownOnceFinished = FALSE)
set cclut_test_runner::teardownOnceFinished = TRUE
call cclut_test_runner::checkForCclErrors("teardownOnce", FALSE)
endif
endif
;Clean up any mocks that were not cleaned up by the tests.
call cclutRemoveAllMocks(null)
call parser(concat("drop program ", cclut_ff::testProgramName, " go"))
if (cclut_test_runner::assertSuccess = TRUE AND cclut_test_runner::testRunnerSuccessInd = TRUE)
call cclut::doOutput("**********************************")
call cclut::doOutput("* *")
call cclut::doOutput("* cclut_ff: SUCCESS *")
call cclut::doOutput("* *")
call cclut::doOutput("**********************************")
else
call cclut::doOutput("**********************************")
call cclut::doOutput("* *")
call cclut::doOutput("* cclut_ff: FAILURE *")
call cclut::doOutput("* *")
call cclut::doOutput("**********************************")
endif