treerack/scheme_test.go

package treerack

import "testing"

func TestScheme(t *testing.T) {
	runTestsFile(t, "examples/scheme.treerack", []testItem{{
		title: "empty",
	}, {
		title: "a function",
		text: `
			(define (foo a b c)
			  (let ([bar (+ a b c)]
			        [baz (- a b c)])
			    (* bar baz)))
		`,
		nodes: []*Node{{
			Name: "list",
			Nodes: []*Node{{
				Name: "symbol",
			}, {
				Name: "list",
				Nodes: []*Node{{
					Name: "symbol",
				}, {
					Name: "symbol",
				}, {
					Name: "symbol",
				}, {
					Name: "symbol",
				}},
			}, {
				Name: "list",
				Nodes: []*Node{{
					Name: "symbol",
				}, {
					Name: "list",
					Nodes: []*Node{{
						Name: "list",
						Nodes: []*Node{{
							Name: "symbol",
						}, {
							Name: "list",
							Nodes: []*Node{{
								Name: "symbol",
							}, {
								Name: "symbol",
							}, {
								Name: "symbol",
							}, {
								Name: "symbol",
							}},
						}},
					}, {
						Name: "list",
						Nodes: []*Node{{
							Name: "symbol",
						}, {
							Name: "list",
							Nodes: []*Node{{
								Name: "symbol",
							}, {
								Name: "symbol",
							}, {
								Name: "symbol",
							}, {
								Name: "symbol",
							}},
						}},
					}},
				}, {
					Name: "list",
					Nodes: []*Node{{
						Name: "symbol",
					}, {
						Name: "symbol",
					}, {
						Name: "symbol",
					}},
				}},
			}},
		}},
		ignorePosition: true,
	}})
}