ft_57_a.rb

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

require File.dirname(__FILE__) + '/flowtestbase'
require 'pending'
require 'openwfe/def'


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

  #
  # Test 0
  #

  class Test0 < OpenWFE::ProcessDefinition
    sequence do
      _set :field => "list" do
        _a """
          <array>
            <string>a</string>
            <string>b</string>
            <string>c</string>
            <null/>
            <true/>
          </array>
        """
      end
      _print "${r:wi.list.join('|')}"
      _print "-"
      _set :field => "list" do
        _attribute """
---
- a
- b
- 3
        """
      end
      _print "${r:wi.list.join('|')}"
    end
  end

  def test_0

    dotest(
      Test0,
      """
a|b|c||true
-
a|b|3
      """.strip)
  end

  def test_1

    dotest(
      """
<process-definition name='57_b' revision='1'>
  <sequence>
    <set field='list'>
      <a>
---
- c
- d
- e
      </a>
    </set>
    <print>${r:wi.list.join('|')}</print>
  </sequence>
</process-definition>
      """,
      "c|d|e")
  end

  def test_2

    dotest(
      """
<process-definition name='57_c' revision='2'>
  <sequence>
    <set field='list'>
      <a>
      <array>
        <string>a</string>
        <number>2</number>
        <string>c</string>
        <false/>
      </array>
      </a>
    </set>
    <print>${r:wi.list.join('|').strip}</print>
  </sequence>
</process-definition>
      """,
      "a|2|c|false")
  end

  #
  # Test 3
  #

  class Test3 < OpenWFE::ProcessDefinition
    sequence do
      _set :field => "other" do
        reval { "77" }
      end
      _print "${f:other}"
    end
  end

  def test_3

    dotest Test3, "77"
  end

  #
  # Test 4
  #

  class Test4 < OpenWFE::ProcessDefinition
    sequence do
      set :v => "v0", :val => "ToTo"
      set :field => "other" do
        a '[1,2,3,false,"toto","${v0}"]'
      end
      _print "${f:other}"
    end
  end

  def test_4

    require 'json'

    dotest Test4, "123falsetotoToTo"
  end

  #
  # Test 4b
  #

  DEF4B = %{
    <process-definition name="a_test" revision="4b">
      <sequence>
        <set field="f0">
          <a>{ "action": "PUT", "resource_id": 77 }</a>
        </set>
        <print>${r:wi.f0.inspect}</print>
      </sequence>
    </process-definition>
  }

  def test_4b

    require 'json'

    dotest DEF4B, '{"action"=>"PUT", "resource_id"=>77}'
  end
end