[SOLVED] CS package sexpr

package sexpr

import (
math/big
testing
)

func TestSExprNil(t *testing.T) {
se := mkNil()
if !se.isNil() {
t.Errorf(expected isNil() to return true)
}
if !se.isAtom() {
t.Errorf(expected isAtom() to return true)
}
if !se.isConsCell() {
t.Errorf(expected isConsCell() to return true)
}
if se.isNumber() {
t.Errorf(expected isNumber() to return false)
}
if se.isSymbol() {
t.Errorf(expected isSymbol() to return false)
}
if se.SExprString() != NIL {
t.Errorf(incorrect SExprString())
}
}

func TestSExprAtom(t *testing.T) {
se := mkAtom(mkTokenSymbol(A))
if se.isNil() {
t.Errorf(expected isNil() to return false)
}
if !se.isAtom() {
t.Errorf(expected isAtom() to return true)
}
if se.isConsCell() {
t.Errorf(expected isConsCell() to return false)
}
if se.SExprString() != A {
t.Errorf(incorrect SExprString())
}
}

func TestSExprNumber(t *testing.T) {
se := mkNumber(big.NewInt(100))
if se.isNil() {
t.Errorf(expected isNil() to return false)
}
if !se.isAtom() {
t.Errorf(expected isAtom() to return true)
}
if se.isConsCell() {
t.Errorf(expected isConsCell() to return false)
}
if !se.isNumber() {
t.Errorf(expected isNumber() to return true)
}
if se.isSymbol() {
t.Errorf(expected isSymbol() to return false)
}
if se.SExprString() != 100 {
t.Errorf(incorrect SExprString())
}
}

func TestSExprSymbol(t *testing.T) {
se := mkSymbol(+)
if se.isNil() {
t.Errorf(expected isNil() to return false)
}
if !se.isAtom() {
t.Errorf(expected isAtom() to return true)
}
if se.isConsCell() {
t.Errorf(expected isConsCell() to return false)
}
if se.isNumber() {
t.Errorf(expected isNumber() to return false)
}
if !se.isSymbol() {
t.Errorf(expected isSymbol() to return true)
}
if se.SExprString() != + {
t.Errorf(incorrect SExprString())
}
}

func TestSExprSymbolTrue(t *testing.T) {
se := mkSymbolTrue()
if se.isNil() {
t.Errorf(expected isNil() to return false)
}
if !se.isAtom() {
t.Errorf(expected isAtom() to return true)
}
if se.isConsCell() {
t.Errorf(expected isConsCell() to return false)
}
if se.isNumber() {
t.Errorf(expected isNumber() to return false)
}
if !se.isSymbol() {
t.Errorf(expected isSymbol() to return true)
}
if se.SExprString() != T {
t.Errorf(incorrect SExprString())
}
}

func TestSExprConsCell(t *testing.T) {
se := mkConsCell(mkSymbol(A), mkSymbol(B))
if se.isNil() {
t.Errorf(expected isNil() to return false)
}
if se.isAtom() {
t.Errorf(expected isAtom() to return false)
}
if !se.isConsCell() {
t.Errorf(expected isConsCell() to return true)
}
if se.isNumber() {
t.Errorf(expected isNumber() to return false)
}
if se.isSymbol() {
t.Errorf(expected isSymbol() to return false)
}
if se.SExprString() != (A . B) {
t.Errorf(incorrect SExprString())
}
}