func TestParseAtom(t *testing.T) {
errors := NewParserErrorList()
result1 := parseSymbol(Token{Value: "fred"}, &errors)
testhelp.CheckEqualString(t, "fred", result1.String())
result2 := parseNumber(Token{Value: "1"}, &errors)
testhelp.CheckEqualFloat(t, 1, result2.Value)
result3 := parseNumber(Token{Value: "2.4"}, &errors)
testhelp.CheckEqualFloat(t, 2.4, result3.Value)
}
func TestParse_SymbolAnnotatingSymbol(t *testing.T) {
result, _ := Parse("(defproc ^sample init () (print 42))", "test")
testhelp.CheckEqualString(t, "((defproc ^sample init () (print 42)))", result.String())
}
func TestParse(t *testing.T) {
result, _ := Parse("(defproc init () (print 42))", "test")
testhelp.CheckEqualString(t, "((defproc init () (print 42)))", result.String())
}