#
# Testing OpenWFEru
#
# John Mettraux at openwfe.org
#

require 'flowtestbase'
require 'openwfe/def'

include OpenWFE


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

    #def setup
    #end

    #def teardown
    #end


    #
    # Test 0
    #

    class TestCase42a0 < ProcessDefinition
        sequence do
            set :variable => "v", :value => "a"
            concurrence do
                set :variable => "v", :value => "b"
                set :variable => "v", :value => "c"
                forget do
                    set :variable => "v", :value => "d"
                end
            end
            _print "v:${v}"
        end
    end

    #def xxxx_0
    def test_0
        dotest(
            TestCase42a0, 
            "v:c")
    end


    #
    # Test 1
    #

    class TestCase42a1 < ProcessDefinition
        sequence do
            set :variable => "v", :value => "a"
            concurrence :count => 2 do
                set :variable => "v", :value => "b"
                set :variable => "v", :value => "c"
                lose do
                    set :variable => "v", :value => "d"
                end
            end
            _print "v:${v}"
        end
    end

    def xxxx_1
    #def test_1
        dotest(
            TestCase42a1, 
            "v:d",
            true)
    end

end