7 lines
219 B
Smalltalk
7 lines
219 B
Smalltalk
tests
|
|
testProcedureDefinition
|
|
| proc |
|
|
ph parseAndEval: '(define squared (lambda (x) (* x x)))'.
|
|
proc := ph parseAndEval: #squared.
|
|
self assert: proc params equals: #(#x).
|
|
self assert: proc body equals: #(#* #x #x) |