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

require 'openwfe/def'

require 'flowtestbase'


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

    #def teardown
    #end

    #def setup
    #end

    #
    # TEST 0

    class Test0 < ProcessDefinition
        sequence do
            subproc :forget => true
            _print "main done."
        end
        process_definition :name => :subproc do
            sequence do
                _print "sub done."
            end
        end
    end

    def test_0

        #log_level_to_debug

        dotest(Test0, "main done.\nsub done.", 0.600)
    end


    #
    # TEST 1

    class Test1 < ProcessDefinition
        sequence do
            subproc
            _print "main done."
        end
        process_definition :name => :subproc do
            sequence do
                _print "sub done."
            end
        end
    end

    def test_1

        #log_level_to_debug

        dotest(Test1, "sub done.\nmain done.")
    end

end