From 9066ea884129957fe899d6d10cba1e17547214b9 Mon Sep 17 00:00:00 2001
From: Calvin Morrison <mutantturkey@gmail.com>
Date: Wed, 13 Nov 2013 13:07:23 -0500
Subject: remove nbc:

---
 src/nbc/test-library.sml | 50 ------------------------------------------------
 1 file changed, 50 deletions(-)
 delete mode 100644 src/nbc/test-library.sml

(limited to 'src/nbc/test-library.sml')

diff --git a/src/nbc/test-library.sml b/src/nbc/test-library.sml
deleted file mode 100644
index 6821e74..0000000
--- a/src/nbc/test-library.sml
+++ /dev/null
@@ -1,50 +0,0 @@
-signature TEST = sig
-	type test =
-		{
-			description: string
-			, expectedResult: string
-			, function: unit -> string
-		}
-	val single: test -> unit
-	val list: test list -> unit
-end
-
-structure Test = struct
-	fun single {description, expectedResult, function} =
-		let
-			val actualResult = function ()
-		in
-			if expectedResult = actualResult then
-				TextIO.output (
-					TextIO.stdErr
-					, (
-						description
-						^ " succeeded.\n"
-					)
-				)
-			else (
-				TextIO.output (
-					TextIO.stdErr
-					, (
-						description
-						^ " was supposed to be "
-						^ expectedResult
-						^ ", but was actually "
-						^ actualResult
-						^ ".\n"
-					)
-				); OS.Process.exit OS.Process.failure
-			)
-		end handle exception' => (
-			TextIO.output (
-				TextIO.stdErr
-				, (
-					description
-					^ " failed with exception "
-					^ exnMessage exception'
-					^ ".\n"
-				)
-			); OS.Process.exit OS.Process.failure
-		)
-	fun list tests = app single tests
-end
-- 
cgit v1.2.3