* plugins/test/hg_unittest.ps (initunittest): new proc.

	(unittest): updated the result in dict.
	(unittestresult): new proc.

1 files changed, 14 insertions, 27 deletions

diff --git a/tests/ps/test-abs.ps b/tests/ps/test-abs.ps
index e37f20a..a97cf85 100644
--- a/tests/ps/test-abs.ps
+++ b/tests/ps/test-abs.ps
@@ -1,27 +1,14 @@
-[4.5] null true initunittestdict {4.5 abs} unittest not {
-} if
-
-[3] null true initunittestdict {-3 abs} unittest not {
-} if
-
-[0] null true initunittestdict {0 abs} unittest not {
-} if
-
-[/foo] /typecheck true initunittestdict {/foo abs} unittest not {
-} if
-
-[[]] /typecheck true initunittestdict {[] abs} unittest not {
-} if
-
-[1 dict] /typecheck true initunittestdict {1 dict abs} unittest not {
-} if
-
-%1 array dup 0 mark put /typecheck true initunittestdict {mark abs} unittest not {
-{//mark} cvlit /typecheck true initunittestdict {mark abs} unittest not {
-} if
-
-[null] /typecheck true initunittestdict {null abs} unittest not {
-} if
-
-[] /stackunderflow true initunittestdict {abs} unittest not {
-} if
+initunittest
+
+[4.5] null true initunittestdict {4.5 abs} unittest
+[3] null true initunittestdict {-3 abs} unittest
+[0] null true initunittestdict {0 abs} unittest
+[/foo] /typecheck true initunittestdict {/foo abs} unittest
+[[]] /typecheck true initunittestdict {[] abs} unittest
+[1 dict] /typecheck true initunittestdict {1 dict abs} unittest
+%1 array dup 0 mark put /typecheck true initunittestdict {mark abs} unittest
+{//mark} cvlit /typecheck true initunittestdict {mark abs} unittest
+[null] /typecheck true initunittestdict {null abs} unittest
+[] /stackunderflow true initunittestdict {abs} unittest
+
+unittestresult