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
ruote-0.9.19	test/ft_38_tag.rb