#
# Testing OpenWFE
#
# John Mettraux at openwfe.org
#
# Mon Oct  9 22:19:44 JST 2006
#

require 'openwfe/def'

require 'flowtestbase'

require 'openwfe/expool/journal'



class FlowTest32 < Test::Unit::TestCase
    include FlowTestBase

    #def teardown
    #end

    #def setup
    #end

    #
    # TEST 0

    class TestDefinition0 < ProcessDefinition
        concurrence do
        #sequence do
            participant :alpha
            bravo
        end
    end

    #def xxxx_flowname_0
    def test_flowname_0

        @engine.init_service("journal", Journal)

        @engine.register_participant(:alpha) do |wi|
            @tracer << "alpha\n"
        end
        @engine.register_participant(:bravo) do |wi|
            @tracer << "bravo\n"
        end

        fei = dotest(TestDefinition0, "alpha\nbravo")

        journal_service = @engine.application_context["journal"]

        fn = journal_service.workdir + "/" + fei.wfid + ".journal"

        journal_service.replay fn
    end

end