#
# Testing OpenWFE
#
# John Mettraux at openwfe.org
#
# Mon Oct 9 22:19:44 JST 2006
#
require 'flowtestbase'
class FlowTest16 < Test::Unit::TestCase
include FlowTestBase
#def setup
#end
#def teardown
#end
def test_fqv_0
dotest(
'''
y
x is "${x}"
''',
'x is "y"')
end
def test_fqv_1
dotest(
'''
y0
x0
x1 is "${x1}"
''',
'x1 is "y0"')
end
def test_fqv_2
dotest(
'''
y0
x0
x1 is "${x1}"
''',
'x1 is "y0"')
end
class Fqv3 < OpenWFE::ProcessDefinition
sequence do
_set :f => "x0" do
_q "y0"
end
_set :v => "x1" do
_f "x0"
end
_print "x1 is \"${x1}\""
end
end
def test_fqv_3
dotest(Fqv3, 'x1 is "y0"')
end
end