equal
deleted
inserted
replaced
|
1 " |
|
2 install a global handler, |
|
3 which suppresses the updating of the change file |
|
4 " |
|
5 Processor activeProcess exceptionHandlerSet |
|
6 on:(Class updateChangeFileQuerySignal) |
|
7 do:[:ex | ex proceedWith:false ]. |
|
8 |
|
9 |
|
10 " |
|
11 ensure that required packages are present |
|
12 " |
|
13 Smalltalk loadPackage:'stx:goodies/sunit'. |
|
14 (TestCase notNil and:[TestCase isLoaded]) ifFalse:[ |
|
15 Stdout showCR:'error: missing #TestCase class after sunit package load'. |
|
16 Smalltalk exit:1. |
|
17 ]. |
|
18 |
|
19 Smalltalk |
|
20 fileInClass:#'stx_goodies_regression' |
|
21 package:'stx:goodies/regression'. |
|
22 (Smalltalk at:#'stx_goodies_regression') isNil ifTrue:[ |
|
23 Stdout showCR:'error: missing #stx_goodies_regression'. |
|
24 Smalltalk exit:1. |
|
25 ]. |
|
26 |
|
27 'RunUnitTests.st' asFilename fileIn. |
|
28 (Smalltalk at:#'RunUnitTests') isNil ifTrue:[ |
|
29 Stdout showCR:'error: missing #RunUnitTests'. |
|
30 Smalltalk exit:1. |
|
31 ]. |
|
32 |
|
33 Smalltalk loadPackage:'stx:libcompat'. |
|
34 Smalltalk loadPackage:'stx:libjavascript'. |
|
35 |
|
36 |
|
37 " |
|
38 run the unit tests |
|
39 " |
|
40 RunUnitTests run. |