Contents

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

require 'flowtestbase'
require 'openwfe/def'

include OpenWFE



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

    #def setup
    #end

    #def teardown
    #end

    #
    # Test 0
    #

    class TestReserve39b0 < ProcessDefinition
        #
        # doesn't prove it enough though...
        #
        concurrence do
            reserve :mutex => :toto do
                sequence do
                    test_alpha
                    test_bravo
                end
            end
            reserve :mutex => :toto do
                sequence do
                    test_charly
                    test_delta
                end
            end
        end
    end

    def test_0

        #log_level_to_debug

        dotest(
            TestReserve39b0, 
            [
"""
test-charly
test-delta
test-alpha
test-bravo
""".strip, 
"""
test-alpha
test-bravo
test-charly
test-delta
""".strip 
            ])
    end

    #
    # Test 1
    #

    class TestReserve39b1 < ProcessDefinition
        concurrence do
            reserve :mutex => :toto do
                test_b
            end
            sequence do
                reserve :mutex => :toto do
                    test_c
                end
                reserve :mutex => :toto do
                    test_d
                end
            end
        end
    end

    def test_1
        
        dotest TestReserve39b1, "test-b\ntest-c\ntest-d"
            #
            # currently the only combination produced, could change
            # with later versions of Ruby...
    end

end

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
openwferu-0.9.17	test/ft_39b_reserve.rb