--- /dev/null
+/**
+ * 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();
+ }
+ }
+}
\ No newline at end of file