IOWA 1.0.0

data/test/TC_StandardDispatcherWithClassifier.rb

@@ -0,0 +1,358 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/dispatchers/StandardDispatcherWithClassifier'
+require 'benchmark'
+
+class ExternalRoutines
+	def self.downcase(r)
+		r.uri.downcase!
+	end
+end
+
+class FauxPolicy
+	def self.getIDs(_)
+		[nil,nil]
+	end
+end
+
+module Iowa
+	def self.app
+		Struct.new(:policy).new(FauxPolicy)
+	end
+end
+		
+class TC_StandardDispatcherWithClassifier < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	class Request
+		attr_accessor :uri, :hostname, :params, :request_method
+		def initialize(uri = nil, hostname = nil, params = nil, request_method = 'GET')
+			@uri = uri
+			@hostname = hostname
+			@params = params
+			@request_method = request_method
+		end
+	end
+
+	def transforming(uri)
+		print "\nTransforming #{uri} -> "
+	end
+
+	def processing(req)
+		puts "\nProcessing request #{req.inspect} -> "
+	end
+
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:standard_dispatcher,"Iowa::Dispatchers::StandardDisparcher")
+	end
+
+	def test_a_empty_struct
+		rule_struct = []
+		assert_nothing_raised("Failure parsing an empty ruleset") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+		end
+	end
+
+	def test_b_hash_struct1
+		rule_struct = {:match => /view/, :sub => 'show'}
+		rq = Request.new('/view/3')
+		assert_nothing_raised("Failure while parsing ruleset.") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+			transforming rq.uri
+			rs.process(rq)
+			puts rq.uri
+			assert_equal('/show/3',rq.uri,"The processed request did not return the expected result.")
+		end
+	end
+
+	def test_c_hash_struct2
+		rule_struct = {:match => 'view', :sub => 'show'}
+		rq = Request.new('/view/3')
+		assert_nothing_raised("Failure while parsing ruleset.") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+			transforming rq.uri
+			rs.process(rq)
+			puts rq.uri
+			assert_equal('/show/3',rq.uri,"The processed request did not return the expected result.")
+		end
+	end
+
+	def test_d_simple_struct
+		rule_struct = [
+			{:match => '[A-Z]', :gsub => '{|r,c| c.downcase}'},
+			{:match => '\.htm$', :sub => '.html'},
+			{:match => '^.*\.php\d*', :sub => '/php_unsupported.html'},
+		]
+		rqs = [
+			Request.new('/foo/bar.htm'),
+			Request.new('/app.php'),
+			Request.new('/foo/BAR.HTM')
+		]
+		rqso = rqs.dup
+
+		assert_nothing_raised("Failure while parsing ruleset.") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+			transforming rqso[0].uri
+			rs.process(rqs[0])
+			puts rqs[0].uri
+			assert_equal('/foo/bar.html',rqs[0].uri,"Transformation incorrect.")
+
+			transforming rqso[1].uri
+			rs.process(rqs[1])
+			puts rqs[1].uri
+			assert_equal('/php_unsupported.html',rqs[1].uri,"Transformation incorrect.")
+
+			transforming rqso[2].uri
+			rs.process(rqs[2])
+			puts rqs[2].uri
+			assert_equal('/foo/bar.html',rqs[2].uri,"Transformation incorrect.")
+		end
+	end
+
+	def test_e_simple_struct_call_external1
+		rule_struct = [
+			{:match => '[A-Z]', :call => '::ExternalRoutines.downcase'},
+			{:match => '\.htm$', :sub => '.html'}
+		]
+		rqs = [
+			Request.new('/foo2/bar.htm'),
+			Request.new('/foo2/BAR.HTM')
+		]
+		rqso = rqs.dup
+
+		assert_nothing_raised("Failure while parsing ruleset.") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+			transforming rqso[0].uri
+			rs.process(rqs[0])
+			puts rqs[0].uri
+			assert_equal('/foo2/bar.html',rqs[0].uri,"Transformation incorrect.")
+
+			transforming rqso[1].uri
+			rs.process(rqs[1])
+			puts rqs[1].uri
+			assert_equal('/foo2/bar.html',rqs[1].uri,"Transformation incorrect.")
+		end
+	end
+
+	def test_f_simple_struct_call_external2
+		rule_struct = [
+			{:match => '[A-Z]', :call => 'external_downcase'},
+			{:match => '\.htm$', :sub => '.html'}
+		]
+		rqs = [
+			Request.new('/foo3/bar.htm'),
+			Request.new('/foo3/BAR.HTM')
+		]
+		rqso = rqs.dup
+
+		assert_nothing_raised("Failure while parsing ruleset.") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+			transforming rqso[0].uri
+			rs.process(rqs[0])
+			puts rqs[0].uri
+			assert_equal('/foo3/bar.html',rqs[0].uri,"Transformation incorrect.")
+
+			transforming rqso[1].uri
+			rs.process(rqs[1])
+			puts rqs[1].uri
+			assert_equal('/foo3/bar.html',rqs[1].uri,"Transformation incorrect.")
+		end
+	end
+
+	def test_g_simple_struct_call_external3
+		rule_struct = [
+			{:match => '[A-Z]', :eval => 'request.uri.downcase!'},
+			{:match => '\.htm$', :sub => '.html'}
+		]
+		rqs = [
+			Request.new('/foo4/bar.htm'),
+			Request.new('/foo4/BAR.HTM')
+		]
+		rqso = rqs.dup
+
+		assert_nothing_raised("Failure while parsing ruleset.") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+			transforming rqso[0].uri
+			rs.process(rqs[0])
+			puts rqs[0].uri
+			assert_equal('/foo4/bar.html',rqs[0].uri,"Transformation incorrect.")
+
+			transforming rqso[1].uri
+			rs.process(rqs[1])
+			puts rqs[1].uri
+			assert_equal('/foo4/bar.html',rqs[1].uri,"Transformation incorrect.")
+		end
+	end
+
+	def test_h_branching
+		rule_struct = [
+			{:match => '{|request| request.hostname =~ /\.?foo\.com/}',
+				:branch => [{:match => '(?i-mx:\.htm)$', :sub => '.html'}]},
+			{:match => '{|request| request.hostname =~ /\.?bar\.com/}',
+				:branch => [{:match => '[A-Z]', :eval => 'request.uri.downcase!'}]}
+		]
+		rqs = [
+			Request.new('/INDEX.HTM','foo.com'),
+			Request.new('/INDEX.HTM','www.foo.com'),
+			Request.new('/INDEX.HTM','www.bar.com'),
+			Request.new('/INDEX.HTM','fluffy.poodlelovers.com')
+		]
+		rqso = rqs.dup
+
+		assert_nothing_raised("Failure while parsing ruleset.") do
+			rs = Iowa::Dispatchers::StandardDispatcherWithClassifier::RuleSet.new(rule_struct)
+			transforming "#{rqso[0].uri} @ #{rqso[0].hostname}"
+			rs.process(rqs[0])
+			puts rqs[0].uri
+			assert_equal('/INDEX.html',rqs[0].uri,"Transformation incorrect.")
+
+			transforming "#{rqso[1].uri} @ #{rqso[1].hostname}"
+			rs.process(rqs[1])
+			puts rqs[1].uri
+			assert_equal('/INDEX.html',rqs[1].uri,"Transformation incorrect.")
+
+			transforming "#{rqso[2].uri} @ #{rqso[2].hostname}"
+			rs.process(rqs[2])
+			puts rqs[2].uri
+			assert_equal('/index.htm',rqs[2].uri,"Transformation incorrect.")
+
+			transforming "#{rqso[3].uri} @ #{rqso[3].hostname}"
+			rs.process(rqs[3])
+			puts rqs[3].uri
+			assert_equal('/INDEX.HTM',rqs[3].uri,"Transformation incorrect.")
+		end
+	end
+
+	def test_i_processing
+		mapfile = <<EMAPFILE
+:rewrites:
+- :match: "{|request| request.hostname =~ /\.?foo\.com/}"
+  :branch: 
+  - :match: "."
+    :eval: "request.uri.downcase!"
+- :match: "INDEX"
+  :dispatch: IndexHTM
+- :match: "{|request| request.hostname =~ /\.?bar\.com/}"
+  :branch:
+  - :match: "[A-Z]"
+    :eval: "request.uri.downcase!"
+:map:
+  - /funds/: Default
+  - /index.htm: Index
+  - /index.html: CapIndex
+  - /randompix.png: RandomPix
+EMAPFILE
+		rqs = [
+			Request.new('/funds/portfolio.html','foo.com',{}),
+			Request.new('/funds/blah/blarg/index.html','foo.com',{}),
+			Request.new('/INDEX.HTM','www.foo.com',{}),
+			Request.new('/INDEX.HTM','fluffy.poodlelovers.com',{}),
+			Request.new('/randompix.png','',{}),
+			Request.new('/books',nil,{}),
+			Request.new('/books/1',nil,{}),
+			Request.new('/books/1',nil,{},'DELETE'),
+			Request.new('/books/1',nil,{},'PUT'),
+			Request.new('/books/new',nil,{}),
+			Request.new('/books',nil,{},'POST'),
+			Request.new('/books/1',nil,{'_method' => 'DELETE'},'POST'),
+			Request.new('/books/1',nil,{'_method' => 'PUT'},'POST'),
+			Request.new('/books/1;complete',nil,{},'POST'),
+			Request.new('/books/show/ab4814f904/5/new',nil,{})
+		]
+		rqso = rqs.dup
+
+		require 'stringio'
+		require 'yaml'
+		mf = YAML.load(StringIO.new(mapfile))
+		puts mf.inspect
+		#assert_nothing_raised("Failure while parsing ruleset.") do
+			disp = Iowa::Dispatchers::StandardDispatcherWithClassifier.new(mf)
+			dd = disp.process(rqs[0])
+			processing rqso[0]
+			puts "**  #{dd.inspect}"
+			assert(dd.component == 'Default',"CapIndex1: Processing with result from map failed.")
+
+			dd = disp.process(rqs[1])
+			processing rqso[1]
+			puts "  #{dd.inspect}"
+			assert(dd.component == 'Default',"CapIndex2: Processing with result from map failed.")
+
+			dd = disp.process(rqs[2])
+			processing rqso[2]
+			puts "  #{dd.inspect}"
+			assert(dd.component == 'Index',"Index: Processing with result from map failed.")
+
+			dd = disp.process(rqs[3])
+			processing rqso[3]
+			puts "  #{dd.inspect}"
+			assert(dd.component == 'IndexHTM',"IndexHTM: Processing with result from map failed.")
+
+			dd = disp.process(rqs[4])
+			processing rqso[4]
+			puts "  #{dd.inspect}"
+			assert(dd.component == 'RandomPix',"RandomPix: Processing with result from map failed.")
+
+			dd = disp.process(rqs[5])
+			processing rqso[5]
+			puts "  #{dd.inspect}"
+			assert(dd.component == 'books',"Processing RESTful request failed.")
+
+			dd = disp.process(rqs[6])
+			processing rqso[6]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'show') and (dd.args == ["1"])),"Processing RESTful request failed.")
+
+			dd = disp.process(rqs[7])
+			processing rqso[7]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'destroy') and (dd.args == ["1"])),"Processing RESTful DELETE request failed.")
+
+			dd = disp.process(rqs[8])
+			processing rqso[8]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'update') and (dd.args == ["1"])),"Processing RESTful PUT request failed.")
+
+			dd = disp.process(rqs[9])
+			processing rqso[9]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'new')),"Processing RESTful GET to invoke 'new' request failed.")
+
+			dd = disp.process(rqs[10])
+			processing rqso[10]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'create')),"Processing RESTful POST to invoke 'create' request failed.")
+
+			dd = disp.process(rqs[11])
+			processing rqso[11]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'destroy') and (dd.args == ["1"])),"Processing RESTful POST to invoke DELETE request failed.")
+
+			dd = disp.process(rqs[12])
+			processing rqso[12]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'update') and (dd.args == ["1"])),"Processing RESTful POST to invoke PUT request failed.")
+
+			dd = disp.process(rqs[13])
+			processing rqso[13]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'complete') and (dd.args == ["1"])),"Processing RESTful POST to invoke 'complete' request failed.")
+
+			dd = disp.process(rqs[14])
+			processing rqso[14]
+			puts "  #{dd.inspect}"
+			assert(((dd.component == 'books') and (dd.method == 'show') and (dd.args == ["ab4814f904","5","new"])),"Processing RESTful POST to invoke 'complete' request failed.")
+
+			rqs = rqso.dup
+			rqs.each {|rq| assert(disp.handleRequest?(rq),"handleRequest? says it won't handle #{rq.inspect}")}
+
+			puts "\nDoing a quick benchmark of request processing using all of the test cases; 20000 * #{rqs.length} == #{20000 * rqs.length} requests."
+			Benchmark.benchmark {|bm| bm.report {20000.times {rqs.each {|rq| dd = disp.process(rq)}}}}
+		#end
+	end
+end
+
+def external_downcase(r)
+	r.uri.downcase!
+end

data/test/TC_String.rb

@@ -0,0 +1,24 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/String'
+
+class TC_String < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:string, "Iowa::String")
+		assert_nothing_raised("setup failed") do
+			@iwa_string = Iowa::String.new("basic string")
+		end
+	end
+
+	def test_conversions
+		assert_equal('basic string',@iwa_string,"Unaltered Test: Test string(#{@iwa_string}) was not what was expected (basic string).")
+		assert_equal('basicString',@iwa_string.camelCase,"camelCase Test: Test string(#{@iwa_string.camelCase}) was not what was expected (basicString).")
+		assert_equal('BasicString',@iwa_string.constantCase,"constantCase Test: Test string(#{@iwa_string.constantCase}) was not what was expected (BasicString).")
+		assert_equal('Basic string',@iwa_string.humanCase,"humanCase Test: Test string(#{@iwa_string.humanCase}) was not what was expected (Basic string).")
+		assert_equal('basic_string',@iwa_string.snakeCase,"snakeCase Test: Test string(#{@iwa_string.snakeCase}) was not what was expected (basic_string).")
+	end
+end

data/test/TC_Tag.rb

@@ -0,0 +1,41 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/Constants'
+require 'iowa/Context'
+require 'iowa/Element'
+require 'iowa/Tag'
+
+class TC_Tag < Test::Unit::TestCase
+	@tag
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:tag,"Iowa::Tag")
+		assert_nothing_raised("Failed while creating an Iowa::Tag object") do
+			@tag = Iowa::Tag.new('test',[],{})
+		end
+	end
+
+	def testTagName
+		assert_nothing_raised("Failed while returning the tagName.") do
+			tagname = @tag.tagName
+			assert_equal('tag',tagname,"The expected tagName (tag) did not match the returned tagname (#{tagname}).")
+		end
+	end
+
+	def testOpenTag
+		assert_nothing_raised("Failed while returning the openTag.") do
+			opentag = @tag.openTag('name','test')
+			assert_equal('<tag name="test">',opentag,"The expected openTag (<tag name='test'>) did not match the returned openTag (#{opentag}).")
+		end
+	end
+
+	def testCloseTag
+		assert_nothing_raised("Failed while returning the closeTag.") do
+			closetag = @tag.closeTag
+			assert_equal("</tag>",closetag,"The expected closeTag (<tag name='test'>) did not match the returned closeTag (#{closetag}).")
+		end
+	end
+end

data/test/TC_Webrick.rb

@@ -0,0 +1,56 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'rbconfig'
+require 'net/http'
+
+class TC_Webrick < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:webrickmode,"Webrick Run Mode")
+
+		ruby = File.join(::Config::CONFIG['bindir'],::Config::CONFIG['ruby_install_name'])
+		ruby << ::Config::CONFIG['EXEEXT']
+
+		assert_nothing_raised("setup failed") do
+			@iowa_pid = IWATestSupport::create_process(:dir => 'TC_Webrick/iowa',
+				:cmd => ["#{ruby} -I../../../src app.rb -r webrick"])
+			sleep 1
+		end
+	end
+
+	def teardown
+		Process.kill "SIGKILL",@iowa_pid
+		Process.wait @iowa_pid
+		sleep 1
+	end
+
+	def get_url(hostname,port,url)
+		Net::HTTP.start(hostname,port) {|http| http.get(url)}
+	end
+
+	def test_webrick
+		r = nil
+		assert_nothing_raised("Error trying to send request to iowa app.") do
+			response = get_url('127.0.0.1','47990','/')
+			r = response.body
+		end
+
+		r =~ /<a href="([^"]+)">dynamic link/
+		dlink = $1
+		assert_match(/<a href="[^"]+">dynamic link/,r,"Failed to find expected dynamic link url.")
+			
+		dresponse = get_url('127.0.0.1','47990',dlink).body
+		assert_match(/The time is now: /,dresponse,"Failed to get expected dynamic link result.")
+
+		r =~ /<a href="([^"]+)">static link/
+		slink = $1
+		assert_match(/<a href="[^"]+">static link/,r,"Failed to find expected static link url.")
+
+		sresponse = get_url('127.0.0.1','47990',slink).body
+		assert_match(/This is a static thing./,sresponse,"Failed to get the expected static link result.")
+	end
+
+end