#
# Testing OpenWFE
#
# John Mettraux at openwfe.org
#
# Sun Oct 29 15:41:44 JST 2006
#
# Kita Yokohama
#

require 'test/unit'

#require 'openwfe/workitem'
require 'openwfe/flowexpressionid'
require 'openwfe/engine/engine'
require 'openwfe/expressions/raw_prog'
require 'openwfe/worklist/storeparticipant'

include OpenWFE


class HParticipantTest < Test::Unit::TestCase

    def setup
        @engine = Engine.new()
    end

    #def teardown
    #end

    class HpDefinition0 < ProcessDefinition
        def make
            process_definition :name => "hp0", :revision => "0" do
                sequence do
                    participant :alice
                    participant :bob
                end
            end
        end
    end

    def test_hp_0

        @hpAlice = HashParticipant.new
        @hpBob = HashParticipant.new

        @engine.register_participant(:alice, @hpAlice)
        @engine.register_participant(:bob, @hpBob)

        do_test()
    end

    def test_hp_1

        #FileUtils.remove_dir "./work" if File.exist? "./work"
        FileUtils.rm_rf "work" if File.exist? "./work"

        @engine.application_context[:work_directory] = "./work"
        @hpAlice = YamlParticipant.new("alice", @engine.application_context)
        #@hpBob = YamlParticipant.new("bob", @engine.application_context)

        @engine.register_participant(:alice, @hpAlice)
        #@engine.register_participant(:bob, @hpBob)
        @hpBob = @engine.register_participant(:bob, YamlParticipant)

        do_test()
    end

    def do_test

        id = @engine.launch(HpDefinition0)

        assert \
            (id.kind_of? FlowExpressionId),
            "engine.launch() doesn't return an instance of FlowExpressionId "+
            "but of #{id.class}"

        #puts id.to_s

        #puts "alice count : #{@hpAlice.size}"
        #puts "bob count :   #{@hpBob.size}"

        sleep 0.200

        assert_equal @hpBob.size, 0
        assert_equal @hpAlice.size, 1

        wi = @hpAlice.list_workitems(id.workflow_instance_id)[0]

        assert \
            wi != nil,
            "didn't find wi for flow #{id.workflow_instance_id}"

        wi.message = "Hello bob !"

        @hpAlice.forward(wi)

        sleep 0.400

        assert_equal @hpAlice.size, 0
        assert_equal @hpBob.size, 1

        wi = @hpBob.list_workitems(id.workflow_instance_id)[0]

        assert_equal wi.message, "Hello bob !"

        @hpBob.proceed(wi)

        sleep 0.300

        assert_equal @hpAlice.size, 0
        assert_equal @hpBob.size, 0

        assert_equal @engine.get_expression_storage.size, 1
    end

    def test_d_0

        @hpAlice = HashParticipant.new
        @hpBob = HashParticipant.new

        @engine.register_participant(:alice, @hpAlice)
        @engine.register_participant(:bob, @hpBob)

        id = @engine.launch(HpDefinition0)

        sleep 0.100

        assert_equal @hpAlice.size, 1
        assert_equal @hpBob.size, 0

        wi = @hpAlice.first_workitem

        @hpAlice.delegate wi, @hpBob

        assert_equal @hpAlice.size, 0
        assert_equal @hpBob.size, 1

        wi = @hpBob.first_workitem

        @hpBob.proceed wi

        sleep 0.100

        assert_equal @hpAlice.size, 0
        assert_equal @hpBob.size, 1

        wi = @hpBob.first_workitem

        @hpBob.delegate wi.fei, @hpAlice

        assert_equal @hpAlice.size, 1
        assert_equal @hpBob.size, 0

        wi = @hpAlice.first_workitem

        @hpAlice.forward wi

        sleep 0.100

        assert_equal @hpAlice.size, 0
        assert_equal @hpBob.size, 0

        assert_equal @engine.get_expression_storage.size, 1
    end

end