23 lines
506 B
Smalltalk
23 lines
506 B
Smalltalk
TestCase subclass: GRObjectTest [
|
|
|
|
<comment: nil>
|
|
<category: 'Grease-Tests-Core'>
|
|
|
|
testError [
|
|
"Make sure #error: signals a subclass of WAPlatformError."
|
|
|
|
<category: 'testing'>
|
|
self should: [GRObject new error: 'oh dear'] raise: GRError.
|
|
self should: [GRObject error: 'oh dear'] raise: GRError
|
|
]
|
|
|
|
testInitialize [
|
|
"Make sure #initialize is called on #new and that calling
|
|
'super initialize' doesn't error."
|
|
|
|
<category: 'testing'>
|
|
self assert: GRObjectStub new foo
|
|
]
|
|
]
|
|
|