// Copyright 2014 SteelSeries ApS.  All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

// This package implements a basic LISP interpretor for embedding in a go program for scripting.
// This file runs lisp based tests.

package golisp

import (
	. "gopkg.in/check.v1"
)

type LispSuite struct {
}

var _ = Suite(&LispSuite{})

func (s *LispSuite) TestLisp(c *C) {
	testCommand := "(run-all-tests \"tests\")"
	ProcessFile("testing.lsp")
	ParseAndEval(testCommand)
}

// Copyright 2014 SteelSeries ApS.  All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

// This package implements a basic LISP interpretor for embedding in a go program for scripting.
// This file runs lisp based tests.

package golisp

import (
	. "gopkg.in/check.v1"
	"path/filepath"
	"time"
)

type LispSuite struct {
}

var _ = Suite(&LispSuite{})

func (s *LispSuite) TestLisp(c *C) {
	files, err := filepath.Glob("tests/*.lsp")
	if err != nil {
		c.Fail()
	}
	VerboseTests = false
	startTime := time.Now()
	for _, f := range files {
		c.Logf("Loading %s\n", f)
		_, err := ProcessFile(f)
		if err != nil {
			c.Logf("Error: %s\n", err)
		}
	}
	PrintTestResults(time.Since(startTime))
}

--- 
+++ 
@@ -9,8 +9,6 @@
 
 import (
 	. "gopkg.in/check.v1"
-	"path/filepath"
-	"time"
 )
 
 type LispSuite struct {
@@ -19,18 +17,7 @@
 var _ = Suite(&LispSuite{})
 
 func (s *LispSuite) TestLisp(c *C) {
-	files, err := filepath.Glob("tests/*.lsp")
-	if err != nil {
-		c.Fail()
-	}
-	VerboseTests = false
-	startTime := time.Now()
-	for _, f := range files {
-		c.Logf("Loading %s\n", f)
-		_, err := ProcessFile(f)
-		if err != nil {
-			c.Logf("Error: %s\n", err)
-		}
-	}
-	PrintTestResults(time.Since(startTime))
+	testCommand := "(run-all-tests \"tests\")"
+	ProcessFile("testing.lsp")
+	ParseAndEval(testCommand)
 }
Fix for new lisp test runner
