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

require 'flowtestbase'


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

  #def setup
  #end

  #def teardown
  #end

  def test_condition_0
    dotest(
'''<process-definition name="con" revision="0">
  <if test="a == a">
    <print>ok</print>
  </if>
</process-definition>''', "ok")
  end

  def test_condition_1
    dotest(
'''<process-definition name="con" revision="0">
  <if test="a == b">
    <print>ok</print>
  </if>
</process-definition>''', "")
  end

  def test_condition_2
    dotest(
'''<process-definition name="con" revision="0">
  <sequence>
    <set field="toto" value="nada" />
    <if test="${f:toto} == nada">
      <print>ok</print>
    </if>
  </sequence>
</process-definition>''', "ok")
  end

  def test_condition_3
    dotest(
'''<process-definition name="con" revision="0">
  <sequence>
    <set field="toto" value="true" />
    <if test="${f:toto}">
      <print>ok</print>
    </if>
  </sequence>
</process-definition>''', "ok")
  end

  def test_condition_4
    dotest(
'''<process-definition name="con" revision="0">
  <if rtest="1+2 == 3">
    <print>ok</print>
  </if>
</process-definition>''', "ok")
  end

  def test_condition_5
    dotest(
'''<process-definition name="con" revision="0">
  <if test="1+2 == 3">
    <print>ok</print>
    <print>nok</print>
  </if>
</process-definition>''', "ok")
  end

end