Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql	2 Sep 2001 17:35:44 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql	3 Sep 2001 05:28:28 -0000	1.4
@@ -6,8 +6,56 @@
 -- 
 -- exec utplsql.setdir('/web/lars-dev2/packages/acs-kernel/sql');
 
-exec utplsql.autocompile (false);
+-- exec utplsql.autocompile (false);
+create or replace package utassert
+as
+        procedure eq (
+                  msg_in                in varchar2,
+                  check_this_in         in integer,
+                  against_this_in       in integer
+                  );
 
+        procedure eq (
+                  msg_in                in varchar2,
+                  check_this_in         in varchar2,
+                  against_this_in       in varchar2
+                  );
+end utassert;
+/
+show errors;
+
+create or replace package body utassert
+as
+
+        procedure eq (
+                  msg_in                in varchar2,
+                  check_this_in         in integer,
+                  against_this_in       in integer
+        )
+        is
+        begin           
+           if check_this_in <> against_this_in then 
+              dbms_output.put_line('ERROR ' || msg_in || ' failed');
+           end if;
+        end eq;
+
+        procedure eq (
+                  msg_in                in varchar2,
+                  check_this_in         in varchar2,
+                  against_this_in       in varchar2
+        )
+        is
+        begin           
+           if check_this_in <> against_this_in then 
+              dbms_output.put_line('ERROR ' || msg_in || ' failed');
+           end if;
+        end eq;
+
+end utassert;
+/
+show errors;
+
+
 create or replace package ut#workflow_case
 as
 
@@ -39,8 +87,8 @@
 	
 	
 
-        utplsql.setpkg('workflow_case');
-	utplsql.addtest('run');
+        -- utplsql.setpkg('workflow_case');
+	-- utplsql.addtest('run');
     end;
 
     procedure teardown
@@ -506,11 +554,18 @@
 	    against_this_in => v_state
 	);
 
-	utresult.show;
+	-- utresult.show;
     end;
 
 end ut#workflow_case;
 /
 show errors
 
-exec utplsql.test('workflow_case');
\ No newline at end of file
+-- exec utplsql.test('workflow_case');
+
+begin
+        ut#workflow_case.setup;
+        ut#workflow_case.run;
+end;
+/
+show errors