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.2 -r1.3
--- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql	12 Apr 2001 04:38:52 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql	2 Sep 2001 17:35:44 -0000	1.3
@@ -1,543 +1,516 @@
--- set serveroutput on size 1000000 format wrapped
+set serveroutput on size 1000000 format wrapped
 
 -- requires the utPLSQL system
 -- 
 -- modify this line to suit your needs
 -- 
 -- exec utplsql.setdir('/web/lars-dev2/packages/acs-kernel/sql');
 
--- exec utplsql.autocompile (false);
+exec utplsql.autocompile (false);
 
--- create or replace package ut#workflow_case
--- as
--- 
---     procedure setup;
--- 
---     procedure teardown;
--- 
---     procedure run;
--- 
--- end ut#workflow_case;
--- /
--- show errors
+create or replace package ut#workflow_case
+as
 
--- create or replace package body ut#workflow_case
+    procedure setup;
 
-create function ut_assert__eq(varchar,integer,integer) returns integer as '
-declare
-        msg     alias for $1;
-        v_in    alias for $2;
-        v_chk   alias for $3;
-begin
-        if v_in != v_chk then 
-           raise NOTICE ''%'', v_msg;
-        end if;
+    procedure teardown;
 
-        return null;
+    procedure run;
 
-end;' language 'plpgsql';
+end ut#workflow_case;
+/
+show errors
 
-create function setup() returns integer as '
-declare
+create or replace package body ut#workflow_case
+as
+
+    procedure setup
+    is
 	wf_count number;
-begin
-	PERFORM teardown();
-        raise NOTICE ''Setting up...'';
+    begin
+	teardown;
+        dbms_output.put_line('Setting up...');
 
-	/* We assume that the sample-expenses workflow is loaded and 
-        unchanged from the original */
-
-	select case when count(*) = 0 then 0 else 1 end  
-        into wf_count 
-        from wf_workflows 
-        where workflow_key = ''expenses_wf'';
-
+	/* We assume that the sample-expenses workflow is loaded and unchanged from the original */
+	select decode(count(*),0,0,1) into wf_count from wf_workflows where workflow_key = 'expenses_wf';
 	if wf_count = 0 then
-	    raise EXCEPTION ''-20000: The sample-expenses workflow must be loaded (and unchanged from the original)'';
+	    raise_application_error(-20000, 'The sample-expenses workflow must be loaded (and unchanged from the original)');
 	end if;
+	
+	
 
-        return null;
+        utplsql.setpkg('workflow_case');
+	utplsql.addtest('run');
+    end;
 
-end;' language 'plpgsql';
-
-create functin teardown() returns integer as '
-begin
-        raise NOTICE ''Tearing down...'';
+    procedure teardown
+    is
+    begin
+        dbms_output.put_line('Tearing down...');
 	
-end;' language 'plpgsql';
+    end;
 
-create function run() returns integer as '
-declare
-	v_workflow_key  wf_workflows.workflow_key%TYPE;
-	v_object_id     acs_objects.object_id%TYPE;
-	v_case_id       wf_cases.case_id%TYPE;
-	v_count         number;
-	v_task_id       number;
-	v_journal_id    number;
-	v_user_id       number;
-	v_state         varchar(100);
-begin
-	v_workflow_key := ''expenses_wf'';
+    procedure run
+    is
+	v_workflow_key wf_workflows.workflow_key%TYPE;
+	v_object_id acs_objects.object_id%TYPE;
+	v_case_id wf_cases.case_id%TYPE;
+	v_count number;
+	v_task_id number;
+	v_journal_id number;
+	v_user_id number;
+	v_state varchar2(100);
+    begin
+	v_workflow_key := 'expenses_wf';
 	
-        raise NOTICE ''Running test...'';
+        dbms_output.put_line('Running test...');
 
 	/* Pick out a random object ... we just hope there is one somewhere */
-	select object_id into v_object_id 
-        from acs_objects
-        limit 1;
+	select object_id into v_object_id from acs_objects where rownum = 1;
 	
-        raise NOTICE ''. new case'';
+        dbms_output.put_line('. new case');
 
-	v_case_id := workflow_case__new(
-            null,
-            v_workflow_key,
-            ''default'',
-            v_object_id,
-            now(),
-            null,
-            null
+	v_case_id := workflow_case.new(
+            workflow_key => v_workflow_key,
+            context_key => 'default',
+            object_id => v_object_id
         );
 	
-	raise NOTICE ''. manual assignments'';
+	dbms_output.put_line('. manual assignments');
 
 	/* we need a random user_id */
 	select user_id into v_user_id
 	from   users
-	limit 1;
+	where  rownum = 1;
 
-	PERFORM workflow_case__add_manual_assignment (
-	    v_case_id,
-	    ''assign'',
-	    v_user_id
+	workflow_case.add_manual_assignment (
+	    case_id => v_case_id,
+	    transition_key => 'assign',
+	    party_id => v_user_id
 	);
 
-	PERFORM workflow_case__add_manual_assignment (
-	    v_case_id,
-	    ''supervisor_approval'',
-	    v_user_id
+	workflow_case.add_manual_assignment (
+	    case_id => v_case_id,
+	    transition_key => 'supervisor_approval',
+	    party_id => v_user_id
 	);
 
-	PERFORM workflow_case__add_manual_assignment (
-	    v_case_id,
-	    ''other_approval'',
-	    v_user_id
+	workflow_case.add_manual_assignment (
+	    case_id => v_case_id,
+	    transition_key => 'other_approval',
+	    party_id => v_user_id
 	);
 
-	PERFORM workflow_case__add_manual_assignment (
-	    v_case_id,
-	    ''buy'',
-	    v_user_id
+	workflow_case.add_manual_assignment (
+	    case_id => v_case_id,
+	    transition_key => 'buy',
+	    party_id => v_user_id
 	);
 
 
 
-	raise NOTICE ''. start case'';
+	dbms_output.put_line('. start case');
 
-	PERFORM workflow_case__start_case(
-	    v_case_id,
-            null,
-            null,
-            null
+	workflow_case.start_case(
+	    case_id => v_case_id
         );
 	
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    transition_key = ''assign''
-	and    state = ''enabled'';
+	and    transition_key = 'assign'
+	and    state = 'enabled';
 
-	PERFORM utassert__eq(
-	    ''We should have exactly one \\\'assign\\\' task enabled'',
-	    1, 
-            v_count
+	utassert.eq(
+	    msg_in => 'We should have exactly one ''assign'' task enabled',
+	    check_this_in => 1, 
+            against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id;
 
-	PERFORM utassert__eq(
-	    ''The \\\'assign\\\' task should be the only task there is for this case yet.'',
-	    1,
-	    v_count
+	utassert.eq(
+	    msg_in => 'The ''assign'' task should be the only task there is for this case yet.',
+	    check_this_in => 1,
+	    against_this_in => v_count
         );
 
 	/* Get that task_id */
 	select task_id into v_task_id
 	from wf_tasks
 	where case_id = v_case_id
-	and   transition_key = ''assign''
-	and   state = ''enabled'';
+	and   transition_key = 'assign'
+	and   state = 'enabled';
 
 
 
 
-	raise NOTICE ''. start task \\\'assign\\\''';
+	dbms_output.put_line('. start task ''assign''');
 
-	v_journal_id := workflow_case__begin_task_action(
-	    v_task_id,
-	    ''start'',
-	    ''0.0.0.0'',
-	    v_user_id,
-	    ''regression-test: started task \\\'assign\\\'''
+	v_journal_id := workflow_case.begin_task_action(
+	    task_id => v_task_id,
+	    action => 'start',
+	    action_ip => '0.0.0.0',
+	    user_id => v_user_id,
+	    msg => 'regression-test: started task ''assign'''
 	);
 
-	PERFORM workflow_case__end_task_action(
-	    v_journal_id,
-	    ''start'',
-	    v_task_id
+	workflow_case.end_task_action(
+	    journal_id => v_journal_id,
+	    action => 'start',
+	    task_id => v_task_id
         );
 
 	select state into v_state
 	from   wf_tasks
 	where  task_id = v_task_id;
 	
-	PERFORM utassert__eq(
-	    ''The \\\'assign\\\' task should be in state \\\'started\\\'.'',
-	    ''started'',
-	    v_state
+	utassert.eq(
+	    msg_in => 'The ''assign'' task should be in state ''started''.',
+	    check_this_in => 'started',
+	    against_this_in => v_state
         );
 
 
 
 
-	raise NOTICE ''. cancel task \\\'assign\\\''';
+	dbms_output.put_line('. cancel task ''assign''');
 
-	v_journal_id := workflow_case__begin_task_action(
-	    v_task_id,
-	    ''cancel'',
-	    ''0.0.0.0'',
-	    v_user_id,
-	    ''regression-test: canceled task \\\'assign\\\'''
+	v_journal_id := workflow_case.begin_task_action(
+	    task_id => v_task_id,
+	    action => 'cancel',
+	    action_ip => '0.0.0.0',
+	    user_id => v_user_id,
+	    msg => 'regression-test: canceled task ''assign'''
 	);
 
-	PERFORM workflow_case__end_task_action(
-	    v_journal_id,
-	    ''cancel'',
-	    v_task_id
+	workflow_case.end_task_action(
+	    journal_id => v_journal_id,
+	    action => 'cancel',
+	    task_id => v_task_id
         );
 
 	select state into v_state
 	from   wf_tasks
 	where  task_id = v_task_id;
 	
-	PERFORM utassert__eq(
-	    ''The \\\'assign\\\' task should be in state \\\'canceled\\\'.'',
-	    ''canceled'',
-	    v_state
+	utassert.eq(
+	    msg_in => 'The ''assign'' task should be in state ''canceled''.',
+	    check_this_in => 'canceled',
+	    against_this_in => v_state
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    transition_key = ''assign''
-	and    state = ''enabled'';
+	and    transition_key = 'assign'
+	and    state = 'enabled';
 
-	PERFORM utassert__eq(
-	    ''We should have exactly one \\\'assign\\\' task enabled'',
-	    1,
-            v_count
+	utassert.eq(
+	    msg_in => 'We should have exactly one ''assign'' task enabled',
+	    check_this_in => 1,
+            against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id;
 
-	PERFORM utassert__eq(
-	    ''There should be exactly two tasks for this case, one enabled and one canceled.'',
-	    2,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly two tasks for this case, one enabled and one canceled.',
+	    check_this_in => 2,
+	    against_this_in => v_count
         );
 
 
-	raise NOTICE ''. finish task \\\'assign\\\''';
 
-	/* Get that task_id for the assign task */
+
+	dbms_output.put_line('. finish task ''assign''');
+
+	/* Get that task_id for the 'assign' task */
 	select task_id into v_task_id
 	from wf_tasks
 	where case_id = v_case_id
-	and   transition_key = ''assign''
-	and   state = ''enabled'';
+	and   transition_key = 'assign'
+	and   state = 'enabled';
 	
-	v_journal_id := workflow_case__begin_task_action(
-	    v_task_id,
-	    ''finish'',
-	    ''0.0.0.0'',
-	    v_user_id,
-	    ''regression-test: finished task \\\'assign\\\'''
+	v_journal_id := workflow_case.begin_task_action(
+	    task_id => v_task_id,
+	    action => 'finish',
+	    action_ip => '0.0.0.0',
+	    user_id => v_user_id,
+	    msg => 'regression-test: finished task ''assign'''
 	);
 
-	PERFORM workflow_case__end_task_action(
-	    v_journal_id,
-	    ''finish'',
-	    v_task_id
+	workflow_case.end_task_action(
+	    journal_id => v_journal_id,
+	    action => 'finish',
+	    task_id => v_task_id
         );
 	
 	select state into v_state
 	from   wf_tasks
 	where  task_id = v_task_id;
 
-	PERFORM utassert__eq(
-	    ''The \\\'assign\\\' task should be in state \\\'finished\\\'.'',
-	    ''finished'',
-	    v_state
+	utassert.eq(
+	    msg_in => 'The ''assign'' task should be in state ''finished''.',
+	    check_this_in => 'finished',
+	    against_this_in => v_state
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    transition_key = ''supervisor_approval''
-	and    state = ''enabled'';
+	and    transition_key = 'supervisor_approval'
+	and    state = 'enabled';
 
-	PERFORM utassert__eq(
-	    ''We should have exactly one \\\'supervisor_approval\\\' task enabled'',
-	    1,
-            v_count
+	utassert.eq(
+	    msg_in => 'We should have exactly one ''supervisor_approval'' task enabled',
+	    check_this_in => 1,
+            against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    transition_key = ''other_approval''
-	and    state = ''enabled'';
+	and    transition_key = 'other_approval'
+	and    state = 'enabled';
 
-	PERFORM utassert__eq(
-	    ''We should have exactly one \\\'other_approval\\\' task enabled'',
-	    1,
-            v_count
+	utassert.eq(
+	    msg_in => 'We should have exactly one ''other_approval'' task enabled',
+	    check_this_in => 1,
+            against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id;
 
-	PERFORM utassert__eq(
-	    ''There should be exactly five tasks for this case, one canceled, two finished, and two enabled.'',
-	    5,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly five tasks for this case, one canceled, two finished, and two enabled.',
+	    check_this_in => 5,
+	    against_this_in => v_count
         );
 
 	
-	raise NOTICE ''. finish task \\\'supervisor_approval\\\' without starting it first (saying okay)'';
+	dbms_output.put_line('. finish task ''supervisor_approval'' without starting it first (saying okay)');
 
 	/* Get the task_id for the supervisor_approval task */
 	select task_id into v_task_id
 	from wf_tasks
 	where case_id = v_case_id
-	and   transition_key = ''supervisor_approval''
-	and   state = ''enabled'';
+	and   transition_key = 'supervisor_approval'
+	and   state = 'enabled';
 
-	v_journal_id := workflow_case__begin_task_action(
-	    v_task_id,
-	    ''finish'',
-	    ''0.0.0.0'',
-	    v_user_id,
-	    ''regression-test: finished task \\\'supervisor_approval\\\'''
+	v_journal_id := workflow_case.begin_task_action(
+	    task_id => v_task_id,
+	    action => 'finish',
+	    action_ip => '0.0.0.0',
+	    user_id => v_user_id,
+	    msg => 'regression-test: finished task ''supervisor_approval'''
 	);
 
-	PERFORM workflow_case__set_attribute_value(
-	    v_journal_id,
-	    ''supervisor_ok'',
-	    ''t''
+	workflow_case.set_attribute_value(
+	    journal_id => v_journal_id,
+	    attribute_name => 'supervisor_ok',
+	    value => 't'
         );
 
-	PERFORM workflow_case__end_task_action(
-	    v_journal_id,
-	    ''finish'',
-	    v_task_id
+	workflow_case.end_task_action(
+	    journal_id => v_journal_id,
+	    action => 'finish',
+	    task_id => v_task_id
         );
 	
 	select state into v_state
 	from   wf_tasks
 	where  task_id = v_task_id;
 
-	PERFORM utassert__eq(
-	    ''The \\\'supervisor_approval\\\' task should be in state \\\'finished\\\.'',
-	    ''finished'',
-	    v_state
+	utassert.eq(
+	    msg_in => 'The ''supervisor_approval'' task should be in state ''finished''.',
+	    check_this_in => 'finished',
+	    against_this_in => v_state
         );
 	
 
 
-	raise NOTICE ''. finish task \\\'other_approval\\\' without starting it first (saying okay)'';
+	dbms_output.put_line('. finish task ''other_approval'' without starting it first (saying okay)');
 
 	/* Get the task_id for the other_approval task */
 	select task_id into v_task_id
 	from wf_tasks
 	where case_id = v_case_id
-	and   transition_key = ''other_approval''
-	and   state = ''enabled'';
+	and   transition_key = 'other_approval'
+	and   state = 'enabled';
 
-	v_journal_id := workflow_case__begin_task_action(
-	    v_task_id,
-	    ''finish'',
-	    ''0.0.0.0'',
-	    v_user_id,
-	    ''regression-test: finished task \\\'other_approval\\\'''
+	v_journal_id := workflow_case.begin_task_action(
+	    task_id => v_task_id,
+	    action => 'finish',
+	    action_ip => '0.0.0.0',
+	    user_id => v_user_id,
+	    msg => 'regression-test: finished task ''other_approval'''
 	);
 
-	PERFORM workflow_case__set_attribute_value(
-	    v_journal_id,
-	    ''other_ok'',
-	    ''t''
+	workflow_case.set_attribute_value(
+	    journal_id => v_journal_id,
+	    attribute_name => 'other_ok',
+	    value => 't'
         );
 
-	PERFORM workflow_case__end_task_action(
-	    v_journal_id,
-	    ''finish'',
-	    v_task_id
+	workflow_case.end_task_action(
+	    journal_id => v_journal_id,
+	    action => 'finish',
+	    task_id => v_task_id
         );
 	
 	select state into v_state
 	from   wf_tasks
 	where  task_id = v_task_id;
 
-	PERFORM utassert__eq(
-	    ''The \\\'other_approval\\\' task should be in state \\\'finished\\\'.'',
-	    ''finished'',
-	    v_state
+	utassert.eq(
+	    msg_in => 'The ''other_approval'' task should be in state ''finished''.',
+	    check_this_in => 'finished',
+	    against_this_in => v_state
         );
 	
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    state = ''enabled'';
+	and    state = 'enabled';
 
-	PERFORM utassert__eq(
-	    ''We should have exactly one task enabled'',
-	    1,
-            v_count
+	utassert.eq(
+	    msg_in => 'We should have exactly one task enabled',
+	    check_this_in => 1,
+            against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    transition_key = ''buy''
-	and    state = ''enabled'';
+	and    transition_key = 'buy'
+	and    state = 'enabled';
 
-	PERFORM utassert__eq(
-	    ''We should have the \\\'buy\\\' task enabled'',
-	    1,
-            v_count
+	utassert.eq(
+	    msg_in => 'We should have the ''buy'' task enabled',
+	    check_this_in => 1,
+            against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id;
 
-	PERFORM utassert__eq(
-	    ''There should be exactly seven tasks for this case, one canceled, six finished, and one enabled.'',
-	    7,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly seven tasks for this case, one canceled, six finished, and one enabled.',
+	    check_this_in => 7,
+	    against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    state = ''finished'';
+	and    state = 'finished';
 
-	PERFORM utassert__eq(
-	    ''There should be exactly five finished tasks'',
-	    5,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly five finished tasks',
+	    check_this_in => 5,
+	    against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    state = ''canceled'';
+	and    state = 'canceled';
 
-	PERFORM utassert__eq(
-	    ''There should be exactly one canceled task'',
-	    1,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly one canceled task',
+	    check_this_in => 1,
+	    against_this_in => v_count
         );
 	
 
-	raise NOTICE ''. finish task \\\'buy\\\''';
+	dbms_output.put_line('. finish task ''buy''');
 
-	/* Get that task_id for the ''buy'' task */
+	/* Get that task_id for the 'buy' task */
 	select task_id into v_task_id
 	from wf_tasks
 	where case_id = v_case_id
-	and   transition_key = ''buy''
-	and   state = ''enabled'';
+	and   transition_key = 'buy'
+	and   state = 'enabled';
 	
-	v_journal_id := workflow_case__begin_task_action(
-	    v_task_id,
-	    ''finish'',
-	    ''0.0.0.0'',
-	    v_user_id,
-	    ''regression-test: finished task \\\'buy\\\'''
+	v_journal_id := workflow_case.begin_task_action(
+	    task_id => v_task_id,
+	    action => 'finish',
+	    action_ip => '0.0.0.0',
+	    user_id => v_user_id,
+	    msg => 'regression-test: finished task ''buy'''
 	);
 
-	PERFORM workflow_case__end_task_action(
-	    v_journal_id,
-	    ''finish'',
-	    v_task_id
+	workflow_case.end_task_action(
+	    journal_id => v_journal_id,
+	    action => 'finish',
+	    task_id => v_task_id
         );
 	
 	select state into v_state
 	from   wf_tasks
 	where  task_id = v_task_id;
 
-	PERFORM utassert__eq(
-	    ''The ''''buy'''' task should be in state \\\'finished\\\'.'',
-	    ''finished'',
-	    v_state
+	utassert.eq(
+	    msg_in => 'The ''buy'' task should be in state ''finished''.',
+	    check_this_in => 'finished',
+	    against_this_in => v_state
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id;
 
-	PERFORM utassert__eq(
-	    ''There should be exactly seven tasks for this case, one canceled, six finished, and one enabled.'',
-	    7,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly seven tasks for this case, one canceled, six finished, and one enabled.',
+	    check_this_in => 7,
+	    against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    state = ''finished'';
+	and    state = 'finished';
 
-	PERFORM utassert__eq(
-	    ''There should be exactly six finished tasks'',
-	    6,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly six finished tasks',
+	    check_this_in => 6,
+	    against_this_in => v_count
         );
 
 	select count(*) into v_count 
 	from   wf_tasks 
 	where  case_id = v_case_id
-	and    state = ''canceled'';
+	and    state = 'canceled';
 
-	PERFORM utassert__eq(
-	    ''There should be exactly one canceled task'',
-	    1,
-	    v_count
+	utassert.eq(
+	    msg_in => 'There should be exactly one canceled task',
+	    check_this_in => 1,
+	    against_this_in => v_count
         );
 	
 	select state into v_state
 	from   wf_cases
 	where  case_id = v_case_id;
 
-	PERFORM utassert__eq(
-	    ''The case should be finished'',
-	    ''finished'',
-	    v_state
+	utassert.eq(
+	    msg_in => 'The case should be finished',
+	    check_this_in => 'finished',
+	    against_this_in => v_state
 	);
 
-	--utresult.show;
+	utresult.show;
+    end;
 
-        return null;
+end ut#workflow_case;
+/
+show errors
 
-end;' language 'plpgsql';
-
-SELECT setup ();
-SELECT run ();
-
-drop function setup();
-drop function run();
-drop function teardown();
+exec utplsql.test('workflow_case');
\ No newline at end of file