ruote 0.9.19 → 0.9.20

data/test/ft_0.rb

@@ -1,68 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require 'flowtestbase'
-
-
-class FlowTest0 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_0
-    #log_level_to_debug
-    dotest(
-'''<process-definition name="n" revision="0">
-  <print>ok</print>
-</process-definition>''', "ok")
-  end
-
-  def test_1
-    dotest(
-'''<process-definition name="n" revision="0">
-</process-definition>''', '')
-  end
-
-  def test_2
-    #log_level_to_debug
-    dotest(
-'''<process-definition name="n" revision="0">
-  <sequence>
-    <set variable="x" value="y" />
-    <print>${x} ${v:x}</print>
-  </sequence>
-</process-definition>''', 'y y')
-  end
-
-  def test_3
-    #log_level_to_debug
-    dotest(
-'''<process-definition name="n" revision="0">
-  <sequence>
-    <set field="x" value="y" />
-    <print>${f:x} ${field:x}</print>
-  </sequence>
-</process-definition>''', 'y y')
-  end
-
-  def test_dollar_notation_2
-    dotest(
-'''<process-definition name="n" revision="0">
-  <sequence>
-    <print>${f:x}X${field:x}</print>
-  </sequence>
-</process-definition>''', 'X')
-  end
-
-end
-

data/test/ft_0b_sequence.rb

@@ -1,36 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require 'flowtestbase'
-
-
-class FlowTest0b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_sequence
-    dotest(
-      '''
-<process-definition name="n" revision="0">
-  <sequence>
-    <print>a</print>
-    <print>b</print>
-  </sequence>
-</process-definition>
-      '''.strip,
-      "a\nb")
-  end
-
-end
-

data/test/ft_0c_testname.rb

@@ -1,33 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Dec 25 14:27:48 JST 2006
-#
-
-require 'flowtestbase'
-
-
-class TestTestName < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_name_of_test
-    dotest(
-      """
-<process-definition name='#{name_of_test}' revision='0'>
-  <print>#{name_of_test}</print>
-</process-definition>
-      """.strip,
-      "name_of_test")
-  end
-
-end
-

data/test/ft_0d_participant.rb

@@ -1,30 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require 'flowtestbase'
-
-
-class FlowTest0d < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_participant
-    dotest(\
-'''<process-definition name="n" revision="0">
-  <participant ref="test-alpha" />
-</process-definition>''', "test-alpha")
-  end
-
-end
-

data/test/ft_0e_multibody.rb

@@ -1,34 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Tue Nov  6 10:10:57 JST 2007
-#
-
-require 'flowtestbase'
-
-
-class FlowTest0e < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_multi_body
-
-    #log_level_to_debug
-
-    dotest(
-'''<process-definition name="n" revision="0">
-  <print>ok</print>
-  <print>nok</print>
-</process-definition>''', "ok")
-  end
-
-end
-

data/test/ft_10_loop.rb

@@ -1,133 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Tue Jan  2 13:14:37 JST 2007
-#
-
-require 'flowtestbase'
-
-
-$s = (0..9).to_a.join("\n").strip
-
-
-class FlowTest10 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_loop_0
-
-    #log_level_to_debug
-
-    dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-  <sequence>
-    <!--reval>$i = 0</reval-->
-    <reval>sv("i", 0)</reval>
-    <loop>
-      <print>${i}</print>
-      <reval>sv("i", lv("i") + 1)</reval>
-      <if>
-        <equals value="${i}" other-value="10" />
-        <break/>
-      </if>
-    </loop>
-  </sequence>
-</process-definition>''',
-    $s)
-  end
-
-  def test_loop_1
-    dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-  <sequence>
-    <!--reval>$i = 0</reval-->
-    <set var="i"><a><number>0</number></a></set>
-    <loop>
-      <print>${i}</print>
-      <reval>sv("i", lv("i") + 1)</reval>
-      <if rtest="${i} == 10">
-        <break/>
-      </if>
-    </loop>
-  </sequence>
-</process-definition>''',
-    $s)
-  end
-
-  def test_loop_2
-    #log_level_to_debug
-    dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-  <sequence>
-    <set var="i"><a><number>0</number></a></set>
-    <loop>
-      <print>${i}</print>
-      <reval>sv("i", lv("i") + 1)</reval>
-      <break if="${i} == 10" />
-    </loop>
-  </sequence>
-</process-definition>''',
-    $s)
-  end
-
-  def _test_loop_3
-    dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-  <sequence>
-    <set var="i"><a><number>0</number></a></set>
-    <loop>
-      <print>${i}</print>
-      <reval>sv("i", lv("i") + 1)</reval>
-      <break if="${r:lv(\'i\') == 10}" />
-    </loop>
-  </sequence>
-</process-definition>''',
-    $s)
-  end
-
-  def test_loop_4
-    dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-  <sequence>
-    <set var="i"><a><number>0</number></a></set>
-    <loop>
-      <print>${i}</print>
-      <reval>sv("i", lv("i") + 1)</reval>
-      <break rif="${i} == 10" />
-    </loop>
-  </sequence>
-</process-definition>''',
-    $s)
-  end
-
-  def test_loop_5
-
-    #log_level_to_debug
-      # causes test to fail (logging X vs $SAFE level 3)
-
-    dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-  <sequence>
-    <set var="i"><a><number>0</number></a></set>
-    <loop>
-      <set field="f">
-        <reval>sv("i", lv("i") + 1)</reval>
-      </set>
-      <print>${i}</print>
-      <break if="${f:f}" />
-    </loop>
-  </sequence>
-</process-definition>''',
-    '1')
-  end
-
-end
-

data/test/ft_11_ppd.rb

@@ -1,411 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Tue Jan  2 13:14:37 JST 2007
-#
-
-require 'rubygems'
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest11 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class TestDefinition0 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test0", :revision => "0" do
-        sequence do
-          _print do "a" end
-          _print { "b" }
-          _print "c"
-            #
-            # all these notations for nesting a string
-            # are allowed
-            #
-            # of course, the latter one is the nicest
-        end
-      end
-    end
-  end
-
-  def test_ppd_0
-
-    #log_level_to_debug
-
-    dotest TestDefinition0, "a\nb\nc"
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class TestDefinition1 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test1", :revision => "0" do
-        sequence do
-          set :variable => "toto", :value => "nada"
-          _print "toto:${toto}"
-          set :field => "ftoto" do
-            "_${toto}__${r:'123'.reverse}"
-          end
-          _print { "ftoto:${f:ftoto}" }
-        end
-      end
-    end
-  end
-
-  def test_ppd_1
-
-    dotest(
-      TestDefinition1,
-      """
-toto:nada
-ftoto:_nada__321
-      """.strip,
-      true)
-  end
-
-
-  #
-  # Test 2
-  #
-
-  class TestDefinition2 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test2", :revision => "0" do
-        sequence do
-          set :variable => "toto", :value => "nada"
-          _if do
-            equals :variable_value => "toto", :other_value => "nada"
-            _print "toto:${toto}"
-            _print "not ok"
-          end
-        end
-      end
-    end
-  end
-
-  def test_ppd_2
-
-    dotest(
-      TestDefinition2,
-      "toto:nada")
-      #true)
-  end
-
-
-  #
-  # Test 3
-  #
-
-  class TestDefinition3 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test3", :revision => "0" do
-        sequence do
-          subprocess :ref => "sub0", :var0 => "a"
-          sub0 :var0 => "b"
-        end
-        process_definition :name => "sub0" do
-          _print "var0 is '${var0}'"
-        end
-      end
-    end
-  end
-
-  def test_ppd_3
-
-    #puts
-    #puts TestDefinition3.do_make(ExpressionMap.new(nil, nil)).to_code_s
-    #puts
-    #puts TestDefinition3.do_make(ExpressionMap.new(nil, nil)).to_s
-
-    dotest TestDefinition3, "var0 is 'a'\nvar0 is 'b'"
-  end
-
-
-  #
-  # Test 4
-  #
-
-  class TestDefinition4 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test4", :revision => "0" do
-        sequence do
-          sequence do
-            _print "a"
-          end
-          sequence do
-            _print "b"
-          end
-        end
-      end
-    end
-  end
-
-  CODE4 = """
-process_definition :name => \"test4\", :revision => \"0\" do
-  sequence do
-    sequence do
-      _print 'a'
-    end
-    sequence do
-      _print 'b'
-    end
-  end
-end
-  """.strip
-
-  def test_ppd_4
-
-    s = OpenWFE::ExpressionTree.to_code_s TestDefinition4.do_make
-
-    dotest(
-      TestDefinition4,
-      "a\nb")
-      #0.300)
-
-    assert_equal CODE4, s, "nested sequences test failed (4)"
-  end
-
-
-  #
-  # Test 5
-  #
-
-  class TestDefinition5 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test5", :revision => "0" do
-        sequence do
-          sequence do
-            _print { "a" }
-          end
-          sequence do
-            _print { "b" }
-          end
-        end
-      end
-    end
-  end
-
-  CODE5 = <<-EOS
-process_definition :name => 'test5', :revision => '0' do
-  sequence do
-    sequence do
-      _print do
-        'a'
-      end
-    end
-    sequence do
-      _print do
-        'b'
-      end
-    end
-  end
-end
-  EOS
-
-  def test_ppd_5
-
-    s = OpenWFE::ExpressionTree.to_code_s(TestDefinition5.do_make)
-
-    dotest TestDefinition5, "a\nb"
-
-    assert CODE5, s
-  end
-
-
-  #
-  # Test 6
-  #
-
-  class TestDefinition6 < OpenWFE::ProcessDefinition
-
-    def initialize (count)
-      super()
-      @count = count
-    end
-
-    def make
-      process_definition :name => "test6", :revision => "0" do
-        sequence do
-          @count.times do |i|
-            _print i
-          end
-        end
-      end
-    end
-  end
-
-  def test_ppd_6
-
-    dotest(
-      TestDefinition6.new(3),
-      %w{ 0 1 2 }.join("\n"))
-  end
-
-
-  #
-  # Test 7
-  #
-
-  class TestDefinition7 < OpenWFE::ProcessDefinition
-    def make
-      _process_definition :name => "test7", :revision => "0" do
-        _sequence do
-          _print "a"
-          _print "b"
-        end
-      end
-    end
-  end
-
-  def test_ppd_7
-
-    dotest(
-      TestDefinition7,
-      %w{ a b }.join("\n"))
-  end
-
-
-  #
-  # Test 8
-  #
-
-  class TestDefinition8 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test8", :revision => "0" do
-        toto
-        process_definition :name => "toto" do
-          _print "toto"
-        end
-      end
-    end
-  end
-
-  def test_ppd_8
-
-    dotest TestDefinition8, "toto"
-  end
-
-
-  #
-  # Test 9
-  #
-
-  class TestDefinition9 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test9", :revision => "0" do
-        _toto
-        process_definition :name => "toto" do
-          _print "toto"
-        end
-      end
-    end
-  end
-
-  def test_ppd_9
-
-    dotest TestDefinition9, "toto"
-  end
-
-
-  #
-  # Test 10
-  #
-
-  class TestDefinition10 < OpenWFE::ProcessDefinition
-    def make
-      process_definition :name => "test10", :revision => "0" do
-        sequence do
-          participant :ref => "toto_underscore"
-          _toto_underscore
-          toto_underscore
-        end
-      end
-    end
-  end
-
-  def test_ppd_10
-
-    @engine.register_participant(:toto_underscore) do |workitem|
-      @tracer << "toto\n"
-    end
-
-    dotest TestDefinition10, ([ 'toto' ] * 3).join("\n")
-  end
-
-
-  #
-  # Test 11
-  #
-
-  class TestDefinition11 < OpenWFE::ProcessDefinition
-    def make
-      sequence do
-        [ :b, :b, :b ].each do |p|
-          participant p
-        end
-        participant "b"
-      end
-    end
-  end
-
-  def test_ppd_11
-
-    @engine.register_participant(:b) do |workitem|
-      @tracer << "b\n"
-    end
-
-    dotest TestDefinition11, ([ 'b' ] * 4).join("\n")
-  end
-
-  #
-  # Test 12
-  #
-
-  class TestDefinition12 < OpenWFE::ProcessDefinition
-    sequence do
-      _print "main"
-      sub_x
-    end
-    process_definition :name => "sub-x" do
-      _print "sub"
-    end
-  end
-
-  def test_prog_12
-
-    dotest TestDefinition12, "main\nsub"
-  end
-
-
-  #
-  # Test 13
-  #
-
-  class TestDefinition13 < OpenWFE::ProcessDefinition
-  end
-
-  def _test_prog_13
-
-    dotest TestDefinition13, ""
-  end
-
-end
-