equal
deleted
inserted
replaced
13 " |
13 " |
14 Smalltalk loadPackage:'stx:goodies/sunit'. |
14 Smalltalk loadPackage:'stx:goodies/sunit'. |
15 (TestCase notNil and:[TestCase isLoaded]) ifFalse:[ |
15 (TestCase notNil and:[TestCase isLoaded]) ifFalse:[ |
16 Stdout showCR:'error: missing #TestCase class after sunit package load'. |
16 Stdout showCR:'error: missing #TestCase class after sunit package load'. |
17 Smalltalk exit:1. |
17 Smalltalk exit:1. |
|
18 ]. |
|
19 |
|
20 Smalltalk loadPackage:'stx:goodies/xml/xpath'. |
|
21 (XPathParser notNil and:[XPathParser isLoaded]) ifFalse:[ |
|
22 Stdout showCR:'error: missing #XPathParser class after goodies/xml/xpath package load'. |
|
23 Smalltalk exit:1. |
18 ]. |
24 ]. |
19 |
25 |
20 Smalltalk |
26 Smalltalk |
21 fileInClass:#'stx_goodies_regression' |
27 fileInClass:#'stx_goodies_regression' |
22 package:'stx:goodies/regression'. |
28 package:'stx:goodies/regression'. |