Contents

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


require 'flowtestbase'

require 'openwfe/def'


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

    #def teardown
    #end

    #def setup
    #end

    #
    # test 0
    #

    class TestTag0 < OpenWFE::ProcessDefinition
        concurrence do
            sequence :tag => "seq0" do
                _sleep "1s"
                _print "hello"
            end
            _undo :ref => "seq0"
            _print "blah"
        end
    end

    def test_tag_0

        #log_level_to_debug

        dotest TestTag0, "blah"
    end


    #
    # test 1
    #

    class TestTag1 < OpenWFE::ProcessDefinition
        concurrence do
            sequence :tag => "seq0" do
                count
                _sleep "1s"
                _print "hello"
            end
            _redo :ref => "seq0"
            _print "blah"
        end
    end

    def test_tag_1

        count = 0

        @engine.register_participant :count do
            count += 1
        end

        dotest TestTag1, "blah\nhello"

        assert_equal 1, count
    end


    #
    # test 2
    #

    class TestTag2 < OpenWFE::ProcessDefinition
        sequence do
            sequence :tag => "seq0" do
                count
                _print "hello"
            end
            _redo :ref => "seq0"
            _print "blah"
        end
    end

    def test_tag_2

        count = 0

        @engine.register_participant(:count) do
            count += 1
        end

        dotest TestTag2, "hello\nblah", true

        assert_equal 1, count
    end


    #
    # test 3
    #

    class TestTag3 < OpenWFE::ProcessDefinition
        sequence do
            sequence :tag => "seq0" do
                _print "1"
                undo :ref => "seq0"
                _print "2"
            end
            _print "3"
        end
    end

    def test_tag_3

        dotest TestTag3, "1\n3"
    end

end

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
openwferu-0.9.17	test/ft_38_tag.rb