rbpm 0.0.1

data/test/rbpm_action_tests.rb

@@ -0,0 +1,148 @@
+require 'test/unit'
+require 'rbpm'
+
+$mylog = {}
+
+class Wf1 < Workflow
+  start_node :start, 
+      :trans => :end,
+      :on_enter => :my_on_enter,
+      :on_leave => :my_on_leave,
+      :action => :my_action
+  end_node :end
+  
+  def my_on_enter(token,caller)
+    $mylog[:on_enter] = true
+  end
+  
+  def my_on_leave(token,caller)
+    $mylog[:on_leave] = true
+  end
+  
+  def my_action(token,caller)
+    $mylog[:action] = true
+    return [[:default, token]]
+  end
+end
+
+class Wf2 < Workflow
+  start_node :start, 
+      :trans => :end,
+      :on_enter => :my_on_enter,
+      :on_leave => :my_on_leave,
+      :action => :my_action
+  end_node :end
+  
+  def self.my_on_enter(token,caller)
+    $mylog[:on_enter] = true
+  end
+  
+  def self.my_on_leave(token,caller)
+    $mylog[:on_leave] = true
+  end
+  
+  def my_action(token,caller)
+    $mylog[:action] = true
+    return [[:default, token]]
+  end
+end
+
+class Wf3 < Workflow
+  start_node :start, :trans => :end
+  end_node :end
+  
+  def start_on_enter(token,caller)
+    $mylog[:on_enter] = true
+  end
+  
+  def start_on_leave(token,caller)
+    $mylog[:on_leave] = true
+  end
+  
+  def start_action(token,caller)
+    $mylog[:action] = true
+    return [[:default, token]]
+  end
+end
+
+class Wf4 < Workflow
+  start_node :start, :trans => :end
+  end_node :end
+  
+  def self.start_on_enter(token,caller)
+    $mylog[:on_enter] = true
+  end
+  
+  def self.start_on_leave(token,caller)
+    $mylog[:on_leave] = true
+  end
+  
+  def self.start_action(token,caller)
+    $mylog[:action] = true
+    return [[:default, token]]
+  end
+end
+
+class Wf5Helper
+  def on_enter(token,caller)
+    $mylog[:on_enter] = true
+  end
+  
+  def on_leave(token,caller)
+    $mylog[:on_leave] = true
+  end
+  
+  def action(token,caller)
+    $mylog[:action] = true
+    return [[:default, token]]
+  end
+end
+
+class Wf5 < Workflow
+  start_node :start, :trans => :end, :action_singleton => Wf5Helper.new
+  end_node :end
+end
+
+class Wf6 < Workflow
+  start_node :start, 
+      :trans => :end,
+      :on_enter => lambda { |token,caller| $mylog[:on_enter] = true },
+      :on_leave => lambda { |token,caller| $mylog[:on_leave] = true },
+      :action => lambda { |token,caller| $mylog[:action] = true ; [[:default, token]] }
+  end_node :end
+end
+
+class Wf7 < Workflow
+  start_node :start, :trans => :end
+  end_node :end
+  
+  enter(:start) do |token,caller|
+    $mylog[:on_enter] = true
+  end
+  
+  leave(:start) do |token,caller|
+    $mylog[:on_leave] = true
+  end
+  
+  action(:start) do |token,caller|
+    $mylog[:action] = true
+    [[:default, token]] #no return here!!!!
+  end
+end
+
+class FewMoreRbpmTest < Test::Unit::TestCase
+
+  def test_instance_callback_and_actions
+    [Wf1, Wf2, Wf3, Wf4, Wf5, Wf6, Wf7].each do |workflow|
+      wf1 = workflow.new
+    
+      $mylog.clear
+      t = wf1.start()
+      assert_equal :end, t.node   
+    
+      assert_not_nil $mylog[:on_enter]
+      assert_not_nil $mylog[:on_leave]
+      assert_not_nil $mylog[:action]
+    end
+  end
+end

data/test/rbpm_call_tests.rb

@@ -0,0 +1,125 @@
+require 'test/unit'
+require 'rbpm'
+
+class DemoWorkflow6b < Workflow
+  
+  start_node :start, 
+      :trans => :end,
+      :trans_action => lambda { |token,caller| token[:result_var] = "Hallo " + token[:param_var]  }
+  
+  end_node :end
+end
+
+class DemoWorkflow6 < Workflow
+  
+  start_node :start, :trans => :call
+  
+  call_node :call, 
+      :workflow => DemoWorkflow6b, 
+      :call_in => {:my_var => :param_var},
+      :call_out => {:result_var => :my_var2},
+      :trans => :end
+  
+  end_node :end
+end
+
+module DemoWorkflow6bSymVersion1
+  class DemoWorkflow6bSym < Workflow
+    start_node :start, 
+        :trans => :end,
+        :trans_action => lambda { |token,caller| token[:result_var] = "(1)Hallo " + token[:param_var]  }
+    end_node :end
+  end
+end
+
+module DemoWorkflow6bSymVersion2
+  class DemoWorkflow6bSym < Workflow
+    start_node :start, 
+        :trans => :end,
+        :trans_action => lambda { |token,caller| token[:result_var] = "(2)Hallo " + token[:param_var]  }
+    end_node :end
+  end
+end
+
+module DemoWorkflow6bSymVersion3
+  class DemoWorkflow6bSym < Workflow
+    start_node :start, 
+        :trans => :end,
+        :trans_action => lambda { |token,caller| token[:result_var] = "(3)Hallo " + token[:param_var]  }
+    end_node :end
+  end
+end
+
+class DemoWorkflow6Sym < Workflow
+  
+  start_node :start, :trans => :call
+  
+  call_node :call, 
+      :workflow => :DemoWorkflow6bSym, 
+      :workflow_version => 2,
+      :call_in => {:my_var => :param_var},
+      :call_out => {:result_var => :my_var2},
+      :trans => :end
+  
+  end_node :end
+end
+
+class DemoWorkflow7b < Workflow
+  
+  start_node :start, 
+      :trans => :state,
+      :trans_action => lambda { |token,caller| token[:result_var] = "Hallo " + token[:param_var]  }
+  
+  state_node :state, :trans => :end
+  
+  end_node :end
+end
+
+class DemoWorkflow7 < Workflow
+  
+  start_node :start, :trans => :call
+  
+  call_node :call, 
+      :workflow => DemoWorkflow7b, 
+      :call_in => {:my_var => :param_var},
+      :call_out => {:result_var => :my_var2},
+      :trans => :end
+  
+  end_node :end
+end
+
+class CallRbpmTest < Test::Unit::TestCase
+
+  def test_simplistic_case
+    wf = DemoWorkflow6.new
+    t = wf.start(:my_var => "Welt")
+    
+    assert_equal :end, t.node   
+    assert_equal "Hallo Welt", t[:my_var2]
+  end
+  
+  def test_with_versionning
+    wf = WorkflowVersionManager.create_workflow_instance('DemoWorkflow6Sym')
+    t = wf.start(:my_var => "Welt")
+    
+    assert_equal :end, t.node   
+    assert_equal "(2)Hallo Welt", t[:my_var2]
+  end
+  
+  def test_subworkflow_with_state
+    wf = DemoWorkflow7.new
+    t = wf.start(:my_var => "Welt")
+    
+    assert_equal :state, t.sub_process.node
+    assert_equal :call, t.node
+    fail if t.end?
+    fail if t.sub_process.end?
+    
+    t.sub_process.signal
+    
+    fail "end expected" if not t.end?
+    assert_nil t.sub_process
+    assert_equal :end, t.node   
+    assert_equal "Hallo Welt", t[:my_var2]
+  end
+end

data/test/rbpm_condition_tests.rb

@@ -0,0 +1,28 @@
+require 'test/unit'
+require 'rbpm'
+
+class DemoWorkflow5 < Workflow
+  
+  start_node :start, 
+      :a_trans => :end_a,
+      :a_trans_cond => "token[:my_ctx_value] > 10",
+      :b_trans => :end_b,
+      :b_trans_cond => "token[:my_ctx_value] <= 10"
+  
+  end_node :end_a
+  
+  end_node :end_b
+end
+
+class ConditionRbpmTest < Test::Unit::TestCase
+
+  def test_misc
+    wf = DemoWorkflow5.new
+    t = wf.start(:my_ctx_value => 5)
+    assert_equal :end_b, t.node   
+    
+    wf = DemoWorkflow5.new
+    t = wf.start(:my_ctx_value => 15)
+    assert_equal :end_a, t.node
+  end
+end

data/test/rbpm_ctxvars_tests.rb

@@ -0,0 +1,40 @@
+require 'test/unit'
+require 'rbpm'
+
+class DemoWorkflow3 < Workflow
+  
+  def self.log(s)
+    @@logs = [] unless defined? @@logs
+    @@logs << s
+  end
+  
+  def self.logs
+    @@logs
+  end
+  
+  start_node :start, :trans => :end
+  
+  #TODO fix this crappy lambda syntax :)
+  transition_action(:start, :default, lambda do |token,caller| 
+    token[:billi] = "Modified"
+    
+    log "Willi=#{token[:willi]}"
+  end)
+  
+  end_node :end
+end
+
+class CtxVarRbpmTest < Test::Unit::TestCase
+
+  def test_misc
+    wf = DemoWorkflow3.new
+    t = wf.start(:willi => "Wuff", :billi => "Buff")
+    
+    assert_equal :end, t.node   
+    
+    assert_equal 1, DemoWorkflow3.logs.length
+    assert_equal "Willi=Wuff", wf.class.logs.shift
+    
+    assert_equal "Modified", t[:billi]
+  end
+end

data/test/rbpm_exceptions_tests.rb

@@ -0,0 +1,79 @@
+require 'test/unit'
+require 'rbpm'
+
+class ExceptionWf1 < Workflow
+  start_node :start, 
+      :trans => :end,
+      :exception => :error_end
+  end_node :end
+  end_node :error_end
+  
+  def start_on_enter(token,caller)
+    raise if token[:raise]
+  end
+end
+
+class ExceptionWf2 < Workflow
+  start_node :start, 
+      :trans => :end,
+      :exception => :error_end
+  end_node :end
+  end_node :error_end
+  
+  def start_on_leave(token,caller)
+    raise if token[:raise]
+  end
+end
+
+class ExceptionWf3 < Workflow
+  start_node :start, 
+      :trans => :end,
+      :exception => :error_end
+  end_node :end
+  end_node :error_end
+  
+  def self.start_default_trans_action(token, caller)
+    raise if token[:raise]
+  end
+end
+
+#note: exceptions thrown within node actions are frame work exceptions. don't put business logic in node actions.
+
+class ExceptionRbpmTest < Test::Unit::TestCase
+
+  def test_on_enter_exception_handling
+    wf = WorkflowVersionManager.create_workflow_instance(:ExceptionWf1)
+    t = wf.start(:raise => true)
+    assert_equal :error_end, t.node
+    assert_not_nil t[:exception]
+    
+    wf = WorkflowVersionManager.create_workflow_instance(:ExceptionWf1)
+    t = wf.start(:raise => false)
+    assert_equal :end, t.node
+    assert_nil t[:exception]
+  end
+  
+  def test_on_leave_exception_handling
+    wf = WorkflowVersionManager.create_workflow_instance(:ExceptionWf2)
+    t = wf.start(:raise => true)
+    assert_equal :error_end, t.node
+    assert_not_nil t[:exception]
+    
+    wf = WorkflowVersionManager.create_workflow_instance(:ExceptionWf2)
+    t = wf.start(:raise => false)
+    assert_equal :end, t.node
+    assert_nil t[:exception]
+  end
+  
+  def test_transition_action_exception_handling
+    wf = WorkflowVersionManager.create_workflow_instance(:ExceptionWf3)
+    t = wf.start(:raise => true)
+    assert_equal :error_end, t.node
+    assert_not_nil t[:exception]
+    
+    wf = WorkflowVersionManager.create_workflow_instance(:ExceptionWf3)
+    t = wf.start(:raise => false)
+    assert_equal :end, t.node
+    assert_nil t[:exception]
+  end
+end

data/test/rbpm_fork_join_tests.rb

@@ -0,0 +1,72 @@
+require 'test/unit'
+require 'rbpm'
+
+class DemoWorkflow4 < Workflow
+  
+  def self.log(s)
+    @@logs = [] unless defined? @@logs
+    @@logs << s
+  end
+  
+  def self.logs
+    @@logs
+  end
+  
+  start_node :start, :trans => :fork
+  
+  def start_on_enter(token, caller)
+    clazz.log "entering start with message=#{token[:msg]}"
+  end
+  
+  def start_on_leave(token, caller)
+    clazz.log "leaving start with message=#{token[:msg]}"
+  end
+  
+  fork_node :fork, :trans => :join, :children_ctx => :sub_ctxs
+  
+  def fork_on_enter(token, caller)
+    clazz.log "entering fork with message=#{token[:msg]}"
+  end
+  
+  def fork_on_leave(token, caller)
+    clazz.log "leaving fork with message=#{token[:msg]}"
+  end
+  
+  join_node :join, :trans => :end
+
+  def join_on_enter(token, caller)
+    clazz.log "entering join with message=#{token[:msg]}"
+  end
+  
+  def join_on_leave(token, caller)
+    clazz.log "leaving join with message=#{token[:msg]}"
+  end
+  
+  end_node :end
+  
+  def end_on_enter(token, caller)
+    clazz.log "entering end with message=#{token[:msg]}"
+  end
+end
+
+class ForkJoinRbpmTest < Test::Unit::TestCase
+
+  def test_misc
+    wf = DemoWorkflow4.new
+    t = wf.start(:msg => "Parent", :sub_ctxs => [{:msg => "Child1"}, {:msg => "Child2"}])
+    
+    assert_equal :end, t.node   
+    
+    assert_equal 9, DemoWorkflow4.logs.length
+    
+    assert_equal "entering start with message=Parent", wf.class.logs.shift
+    assert_equal "leaving start with message=Parent", wf.class.logs.shift
+    assert_equal "entering fork with message=Parent", wf.class.logs.shift
+    assert_equal "leaving fork with message=Child1", wf.class.logs.shift
+    assert_equal "entering join with message=Child1", wf.class.logs.shift
+    assert_equal "leaving fork with message=Child2", wf.class.logs.shift
+    assert_equal "entering join with message=Child2", wf.class.logs.shift
+    assert_equal "leaving join with message=Parent", wf.class.logs.shift
+    assert_equal "entering end with message=Parent", wf.class.logs.shift
+  end
+end