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

require 'flowtestbase'
require 'openwfe/expressions/raw_prog'

include OpenWFE



class FlowTest23 < 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")
        dotest(TestDefinition0, "done\nok", 4)
    end

end