#
# Testing OpenWFE
#
# John Mettraux at openwfe.org
#
# Tue Jan  2 13:14:37 JST 2007
#

#require 'profile'

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

include OpenWFE


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

    #def setup
    #end

    #def teardown
    #end

    #
    # Test 0
    #

    N = 10000

    class TestDefinition0 < ProcessDefinition
        sequence do
            N.times do
                count
            end
        end
    end

    #def xxxx_load_0
    def test_load_0

        #@engine.get_scheduler.sstop
            #
            # JRuby is no friend of the Scheduler

        $count = 0

        @engine.register_participant("count") do |workitem|
            $count += 1
            print "."
        end

        fei = @engine.launch(LaunchItem.new(TestDefinition0))
        puts "launched #{fei}"

        @engine.wait_for fei
        #sleep 60

        assert_equal $count, N
    end

end