equal
deleted
inserted
replaced
1 "{ Package: 'exept:regression' }" |
1 "{ Package: 'stx:goodies/regression' }" |
2 |
2 |
3 "{ NameSpace: RegressionTests }" |
3 "{ NameSpace: RegressionTests }" |
4 |
4 |
5 TestCase subclass:#HTTPServerTests |
5 TestCase subclass:#HTTPServerTests |
6 instanceVariableNames:'server' |
6 instanceVariableNames:'server' |
14 |
14 |
15 tearDown |
15 tearDown |
16 "common cleanup - invoked after testing." |
16 "common cleanup - invoked after testing." |
17 |
17 |
18 server notNil ifTrue:[ |
18 server notNil ifTrue:[ |
19 server terminateServer. |
19 server terminateServer. |
20 server := nil. |
20 server := nil. |
21 ]. |
21 ]. |
22 super tearDown |
22 super tearDown |
23 ! ! |
23 ! ! |
24 |
24 |
25 !HTTPServerTests methodsFor:'tests'! |
25 !HTTPServerTests methodsFor:'tests'! |