6 lines
107 B
Smalltalk
6 lines
107 B
Smalltalk
#
|
|
# Common definitions for testing
|
|
#
|
|
: success "Success" >s CR 0 EXIT ;
|
|
: failure "Failure" >s CR 1 EXIT ;
|