no commit message

source/com/hurlant/crypto/tests/TestCase.as

@@ -0,0 +1,42 @@
+/**
+ * TestCase
+ * 
+ * Embryonic unit test support class.
+ * Copyright (c) 2007 Henri Torgemane
+ * 
+ * See LICENSE.txt for full license information.
+ */
+package com.hurlant.crypto.tests
+{
+	public class TestCase 
+	{
+		public var harness:ITestHarness;
+		
+		public function TestCase(h:ITestHarness, title:String) {
+			harness = h;
+			harness.beginTestCase(title);
+		}
+		
+		
+		public function assert(msg:String, value:Boolean):void {
+			if (value) {
+//				TestHarness.print("+ ",msg);
+				return;
+			}
+			throw new Error("Test Failure:"+msg);
+		}
+		
+		public function runTest(f:Function, title:String):void {
+			harness.beginTest(title);
+			try {
+				f();
+			} catch (e:Error) {
+				trace("EXCEPTION THROWN: "+e);
+				trace(e.getStackTrace());
+				harness.failTest(e.toString());
+				return;
+			}
+			harness.passTest();
+		}
+	}
+}