diff --git a/src/test/scala/com/saladwithsteve/lisp/LispSpec.scala b/src/test/scala/com/saladwithsteve/lisp/LispSpec.scala new file mode 100644 index 0000000..7cc1b73 --- /dev/null +++ b/src/test/scala/com/saladwithsteve/lisp/LispSpec.scala @@ -0,0 +1,27 @@ +/** Copyright 2008 Steve Jenson, Inc. */ +package com.saladwithsteve.lisp + +import scala.util.Sorting +import java.io.{File, FileInputStream} +import net.lag.configgy.Config +import org.specs._ + +object LispSpec extends Specification { + + private def sorted[T <% Ordered[T]](list: List[T]): List[T] = { + val dest = list.toArray + Sorting.quickSort(dest) + dest.toList + } + + "Lisp" should { + doAfter { + } + + "Simple unsugared syntax" in { + "Car should return first element" in { + Lisp.eval(List(Car(List('a, 'b)))) mustEqual 'a + } + } + } +}