parser: add simple parser and tests

src/Phsyche.package/PhsycheTest.class/instance/setUp.st

@@ -0,0 +1,3 @@
+tests
+setUp
+	ph := Phsyche new

src/Phsyche.package/PhsycheTest.class/instance/testParseEmptyList.st

@@ -0,0 +1,3 @@
+tests
+testParseEmptyList
+	self assert: (ph parse: '()') equals: #()

src/Phsyche.package/PhsycheTest.class/instance/testParseFloat.st

@@ -0,0 +1,3 @@
+tests
+testParseFloat
+	self assert: (ph parse: '12.33') equals: 12.33

src/Phsyche.package/PhsycheTest.class/instance/testParseIsNull.st

@@ -0,0 +1,8 @@
+tests
+testParseIsNull
+	self
+		assert: (ph parse: '(isNull (cons (quote a) #()))')
+		equals: #(#isNull #(#cons #(#quote #a) #())).
+	self
+		assert: (ph parse: '(isNull (cons (quote a) ()))')
+		equals: #(#isNull #(#cons #(#quote #a) #()))

src/Phsyche.package/PhsycheTest.class/instance/testParseLambda.st

@@ -0,0 +1,5 @@
+tests
+testParseLambda
+	self
+		assert: (ph parse: '(define squared (lambda (x) (* x x)))')
+		equals: #(#define #squared #(#lambda #(#x) #(* x x)))

src/Phsyche.package/PhsycheTest.class/instance/testParseSymbol.st

@@ -0,0 +1,3 @@
+tests
+testParseSymbol
+self assert: (ph parse: 'r') equals: #r