Exemplo n.º 1
0
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)
}
Exemplo n.º 2
0
func TestParse_SymbolAnnotatingSymbol(t *testing.T) {
	result, _ := Parse("(defproc ^sample init ()  (print 42))", "test")

	testhelp.CheckEqualString(t, "((defproc ^sample init () (print 42)))", result.String())
}
Exemplo n.º 3
0
func TestParse(t *testing.T) {
	result, _ := Parse("(defproc init ()  (print 42))", "test")

	testhelp.CheckEqualString(t, "((defproc init () (print 42)))", result.String())
}