openwferu 0.9.8 → 0.9.9

data/test/ft_46_pparams.rb

@@ -0,0 +1,62 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest46 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestPTask46a0 < ProcessDefinition
+        sequence do
+
+            participant :ref => :nemo, :description => "clean the desk"
+
+            _print "${f:description}"
+                # just checking that the description is wiped after usage
+
+            participant :ref => :nemo, :task => "force"
+
+            _print "${f:task}"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.register_participant :nemo do |workitem|
+            @tracer.puts workitem.params['description']
+            @tracer.puts workitem.params['task']
+        end
+
+        dotest(
+            TestPTask46a0,
+            """
+clean the desk
+
+
+
+force
+            """.strip)
+    end
+
+end
+

data/test/ft_47_filter.rb

@@ -0,0 +1,165 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest47 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestFilter47a0 < ProcessDefinition
+        sequence do
+            _print "${v0}"
+            _print "${v1}"
+            filter_definition :name => "filter1" do
+            end
+            _defined :variable => :filter0
+            _print "${f:__result__}"
+            _defined :variable => :filter1
+            _print "${f:__result__}"
+        end
+        filter_definition :name => "filter0" do
+        end
+        set :variable => "v0", :value => "toto"
+        set :variable => "v1", :value => "hector"
+    end
+
+    #def xxxx_0
+    def test_0
+        dotest(
+            TestFilter47a0,
+            "toto\nhector\ntrue\ntrue")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestFilter47a1 < ProcessDefinition
+        sequence do
+
+            set :field => "readable", :value => "bible"
+            set :field => "writable", :value => "sand"
+            set :field => "randw", :value => "notebook"
+            set :field => "hidden", :value => "playboy"
+
+            toto
+            toto :filter => "filter0"
+
+            _print "${f:readable}"
+            _print "${f:writable}"
+            _print "${f:randw}"
+            _print "${f:hidden}"
+        end
+
+        filter_definition :name => "filter0" do
+            field :regex => "readable", :permissions => "r"
+            field :regex => "writable", :permissions => "w"
+            field :regex => "randw", :permissions => "rw"
+            field :regex => "hidden", :permissions => ""
+        end
+    end
+
+    #def xxxx_1
+    def test_1
+
+        @engine.register_participant :toto do |workitem|
+
+            @tracer << "filter.size is #{workitem.filter.fields.size}\n" \
+                if workitem.filter
+
+            @tracer << "r  : #{workitem.attributes['readable']}\n"
+            @tracer << "w  : #{workitem.attributes['writable']}\n"
+            @tracer << "rw : #{workitem.attributes['randw']}\n"
+            @tracer << "h  : #{workitem.attributes['hidden']}\n"
+            @tracer << "--\n"
+        end
+
+        dotest(
+            TestFilter47a1,
+            """
+r  : bible
+w  : sand
+rw : notebook
+h  : playboy
+--
+filter.size is 4
+r  : bible
+w  : 
+rw : notebook
+h  : 
+--
+bible
+sand
+notebook
+playboy
+            """.strip)
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestFilter47a2 < ProcessDefinition
+        sequence do
+
+            set :field => "readable", :value => "bible"
+            set :field => "writable", :value => "sand"
+            set :field => "randw", :value => "notebook"
+            set :field => "hidden", :value => "playboy"
+
+            alice :filter => "filter0"
+            pp_fields
+        end
+
+        filter_definition :name => "filter0" do
+            field :regex => "readable", :permissions => "r"
+            field :regex => "writable", :permissions => "w"
+            field :regex => "randw", :permissions => "rw"
+            field :regex => "hidden", :permissions => ""
+        end
+    end
+
+    #def xxxx_2
+    def test_2
+
+        @engine.register_participant :alice do |workitem|
+            workitem.readable = "nada"
+            workitem.writable = "nada"
+            workitem.randw = "nada"
+            workitem.hidden = "nada"
+        end
+
+        dotest(
+            TestFilter47a2,
+            """
+hidden: playboy
+randw: nada
+readable: bible
+writable: nada
+--
+            """.strip)
+    end
+
+end
+

data/test/ft_48_fe_filter.rb

@@ -0,0 +1,91 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest48 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestFilter48a0 < ProcessDefinition
+        sequence do
+
+            set :field => "readable", :value => "bible"
+            set :field => "writable", :value => "sand"
+            set :field => "randw", :value => "notebook"
+            set :field => "hidden", :value => "playboy"
+
+            alice
+
+            filter :name => "filter0" do
+                alice
+            end
+
+            alice
+        end
+
+        filter_definition :name => "filter0" do
+            field :regex => "readable", :permissions => "r"
+            field :regex => "writable", :permissions => "w"
+            field :regex => "randw", :permissions => "rw"
+            field :regex => "hidden", :permissions => ""
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.register_participant :alice do |workitem|
+
+            @tracer << "filter.size is #{workitem.filter.fields.size}\n" \
+                if workitem.filter
+
+            @tracer << "r  : #{workitem.attributes['readable']}\n"
+            @tracer << "w  : #{workitem.attributes['writable']}\n"
+            @tracer << "rw : #{workitem.attributes['randw']}\n"
+            @tracer << "h  : #{workitem.attributes['hidden']}\n"
+            @tracer << "--\n"
+        end
+
+        dotest(
+            TestFilter48a0,
+            """
+r  : bible
+w  : sand
+rw : notebook
+h  : playboy
+--
+filter.size is 4
+r  : bible
+w  : 
+rw : notebook
+h  : 
+--
+r  : bible
+w  : sand
+rw : notebook
+h  : playboy
+--
+            """.strip)
+    end
+
+end
+

data/test/ft_49_condition.rb

@@ -0,0 +1,65 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest49 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCondition49a0 < ProcessDefinition
+        sequence do
+            _if :test => "false"
+            _print "0 ${f:__result__}"
+            _if :test => "true; false"
+            _print "1 ${f:__result__}"
+            _if :test => "false; true"
+            _print "2 ${f:__result__}"
+            _if :test => "print ''; true"
+            _print "3 ${f:__result__}"
+            _if :test => "begin print ''; end; true"
+            _print "4 ${f:__result__}"
+
+            _if :test => "true == "
+            _print "5 ${f:__result__}"
+            _if :test => " == true"
+            _print "6 ${f:__result__}"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        dotest(
+            TestCondition49a0,
+            """
+0 
+1 
+2 true
+3 true
+4 true
+5 
+6 
+            """.strip)
+    end
+
+end
+

data/test/ft_50_xml_attribute.rb

@@ -0,0 +1,89 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+# Pat at geobliki.com
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest50 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # A Test by Pat Cappelaere
+    #
+
+    PAT_XML = <<END
+<?xml version="1.0" encoding="UTF-8"?>
+<sps:GetFeasibilityRequestResponse xmlns:gml="http://www.opengis.net/gml"
+xmlns:sps="http://www.opengis.net/sps" xmlns="">
+  <sps:Feasibility status="feasible" id="106">
+    <DOY>106</DOY>
+    <UTC>2007-04-16 09:20:00</UTC>
+    <SZA>27.41</SZA>
+    <TYPE>NADIR</TYPE>
+    <PATH>52</PATH>
+    <ROW>186</ROW>
+    <COST>2600.85</COST>
+    <sps:LatestResponseTime>
+      <gml:TimeInstant>
+        <gml:timePosition>2007-04-16T09:20:00Z</gml:timePosition>
+      </gml:TimeInstant>
+    </sps:LatestResponseTime>
+  </sps:Feasibility>
+</sps:GetFeasibilityRequestResponse>
+END
+
+    class TestXmlAttribute50a0 < ProcessDefinition
+        sequence do
+            geo_0
+            geo_1
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        doc0 = nil
+        doc1 = nil
+    
+        @engine.register_participant :geo_0 do |fei, workitem|
+            doc0 = REXML::Document.new(PAT_XML)
+            workitem.attributes['xml'] = doc0
+            @tracer << "0\n"
+        end
+    
+        @engine.register_participant :geo_1 do |fei, workitem|
+            doc1 = workitem.attributes['xml']
+            @tracer << "1\n"
+        end
+
+        dotest(TestXmlAttribute50a0, "0\n1")
+
+        assert_equal doc0.to_s, doc1.to_s
+    end
+
+    def test_1
+
+        doc0 = REXML::Document.new PAT_XML
+        doc1 = OpenWFE::fulldup(doc0)
+
+        assert_not_equal doc0.object_id, doc1.object_id
+
+        assert_equal doc0.to_s, doc1.to_s
+    end
+
+end
+