evaluator: add simple no-op evaluator and tests
This commit is contained in:
@@ -0,0 +1,4 @@
|
||||
tests
|
||||
testEvalBoolean
|
||||
self assert: (ph parseAndEval: 'true') equals: true.
|
||||
self assert: (ph parseAndEval: 'false') equals: false.
|
@@ -0,0 +1,3 @@
|
||||
tests
|
||||
testEvalEmptyList
|
||||
self assert: (ph parseAndEval: '()') equals: #()
|
@@ -0,0 +1,4 @@
|
||||
tests
|
||||
testEvalNumber
|
||||
self assert: (ph parseAndEval: '12') equals: 12.
|
||||
self assert: (ph parseAndEval: '3.14') equals: 3.14.
|
Reference in New Issue
Block a user