Contents

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

require 'flowtestbase'
require 'openwfe/def'

include OpenWFE



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

    #def setup
    #end

    #def teardown
    #end

    #
    # Test 0
    #

    class TestDefinition0 < ProcessDefinition
        def make
            process_definition :name => "when0", :revision => "0" do
                concurrence do
                    _when :test => "${v:done} == true", :frequency => "2s" do
                        _print "ok"
                    end
                    sequence do
                        _sleep "500"
                        _set :variable => "done", :value => "true"
                        _print "done"
                    end
                end
            end
        end
    end

    def test_0
        dotest(TestDefinition0, "done\nok", true)
    end

    #
    # Test 1
    #

    class TestWhen1 < ProcessDefinition
        concurrence do
            _when :frequency => "2s" do
                sequence do
                    #reval "puts '___ equals : ' + fei.wfid"
                    _equals :value => "${done}", :other_value => "true"
                end
                sequence do
                    #reval "puts '___ consequence : ' + fei.wfid"
                    _print "ok"
                end
            end
            sequence do
                _sleep "500"
                _set :variable => "done", :value => "true"
                _print "done"
            end
        end
    end

    def test_1
        dotest(TestWhen1, "done\nok", true)
    end

end

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
openwferu-0.9.17	test/ft_23_when.rb