test/ft_9_cursor.rb in ruote-0.9.18 vs test/ft_9_cursor.rb in ruote-0.9.19

@@ -5,141 +5,150 @@
 # John Mettraux at openwfe.org
 #
 # Tue Jan  2 13:14:37 JST 2007
 #
 
+require 'rubygems'
+
 require 'openwfe/def'
 require 'flowtestbase'
 
 
 class FlowTest9 < Test::Unit::TestCase
-    include FlowTestBase
+  include FlowTestBase
 
-    #def setup
-    #end
+  #def setup
+  #end
 
-    #def teardown
-    #end
+  #def teardown
+  #end
 
-    def test_cursor_0
-        dotest(
+  def test_cursor_0
+    dotest(
 '<process-definition name="'+name_of_test+'''" revision="0">
-    <cursor>
-        <print>a</print>
-        <print>b</print>
-    </cursor>
-</process-definition>''', 
-"""a
-b""")
-    end
+  <cursor>
+    <print>a</print>
+    <print>b</print>
+  </cursor>
+</process-definition>''', "a\nb")
+  end
 
-    def test_cursor_1
-        dotest(
+  def test_cursor_1
+    dotest(
 '<process-definition name="'+name_of_test+'''" revision="0">
-    <cursor>
-        <print>a</print>
-        <print>b</print>
-        <cancel />
-        <print>c</print>
-    </cursor>
-</process-definition>''', 
-"""a
-b""")
-    end
+  <cursor>
+    <print>a</print>
+    <print>b</print>
+    <cancel />
+    <print>c</print>
+  </cursor>
+</process-definition>''', "a\nb")
+  end
 
-    def test_cursor_2
-        dotest(
+  def test_cursor_2
+    dotest(
 '<process-definition name="'+name_of_test+'''" revision="0">
-    <cursor>
-        <print>a</print>
-        <print>b</print>
-        <skip step="2" />
-        <print>c</print>
-    </cursor>
-</process-definition>''', 
-"""a
-b""")
-    end
+  <cursor>
+    <print>a</print>
+    <print>b</print>
+    <skip step="2" />
+    <print>c</print>
+  </cursor>
+</process-definition>''', "a\nb")
+  end
 
-    def test_cursor_2b
-        #
-        # ZigZag test
-        #
-        dotest(
+  def test_cursor_2b
+    #
+    # ZigZag test
+    #
+    dotest(
 '<process-definition name="'+name_of_test+'''" revision="0">
-    <cursor>
-        <print>a</print>
-        <skip step="3" />
-        <print>b</print>
-        <skip step="2" />
-        <back step="2"/>
-        <print>c</print>
-    </cursor>
-</process-definition>''', 
-"""a
-b
-c""")
-    end
+  <cursor>
+    <print>a</print>
+    <skip step="3" />
+    <print>b</print>
+    <skip step="2" />
+    <back step="2"/>
+    <print>c</print>
+  </cursor>
+</process-definition>''', "a\nb\nc")
+  end
 
-    def test_cursor_3
-        dotest(
+  def test_cursor_3
+    dotest(
 '<process-definition name="'+name_of_test+'''" revision="0">
+  <cursor>
+    <print>a</print>
+    <skip step="2" />
+    <print>b</print>
+    <print>c</print>
+  </cursor>
+</process-definition>''', "a\nc")
+  end
+
+  def test_cursor_4
+    dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+  <sequence>
     <cursor>
-        <print>a</print>
-        <skip step="2" />
-        <print>b</print>
-        <print>c</print>
+      <print>a</print>
+      <set field="__cursor_command__" value="skip 2" />
+      <print>b</print>
+      <print>c</print>
     </cursor>
-</process-definition>''', 
-"""a
-c""")
-    end
+    <print>d</print>
+  </sequence>
+</process-definition>''', "a\nc\nd")
+  end
 
-    def test_cursor_4
-        dotest(
+  def test_cursor_5
+    dotest(
 '<process-definition name="'+name_of_test+'''" revision="0">
-    <sequence>
-        <cursor>
-            <print>a</print>
-            <set field="__cursor_command__" value="skip 2" />
-            <print>b</print>
-            <print>c</print>
-        </cursor>
-        <print>d</print>
-    </sequence>
-</process-definition>''', 
-"""a
-c
-d""")
-    end
+  <cursor>
+    <print>a</print>
+    <skip>2</skip>
+    <print>b</print>
+    <print>c</print>
+  </cursor>
+</process-definition>''', "a\nc")
+  end
 
-    def test_cursor_5
-        dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-    <cursor>
-        <print>a</print>
-        <skip>2</skip>
-        <print>b</print>
-        <print>c</print>
-    </cursor>
-</process-definition>''', 
-"""a
-c""")
+  class TestCursor6 < OpenWFE::ProcessDefinition
+    cursor do
+      _print "a"
+      skip "2"
+      _print "b"
+      _print "c"
+      skip 2
+      _print "d"
     end
+  end
 
-    class TestCursor6 < OpenWFE::ProcessDefinition
-        cursor do
-            _print "a"
-            skip "2"
-            _print "b"
-            _print "c"
-            skip 2
-            _print "d"
-        end
+  def test_6
+    dotest TestCursor6, "a\nc"
+  end
+
+  class Test7 < OpenWFE::ProcessDefinition
+    cursor do
+      alpha
+      rewind :if => "${f:rewind} == true"
     end
+  end
 
-    def test_cursor_6
-        dotest(TestCursor6, "a\nc")
+  def test_7
+
+    @engine.register_participant :alpha do |wi|
+
+      wi.rewind = if wi.attributes['rewind'] == nil
+        true
+      else
+        ! wi.rewind
+      end
+
+      @tracer << wi.rewind.to_s
     end
+
+    dotest Test7, "truefalse"
+  end
 
 end