IOWA 1.0.0

data/test/TC_Minimal.rb

@@ -0,0 +1,45 @@
+require 'test/unit'
+require 'rbconfig'
+require 'net/http'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+
+class TC_NoSubclass < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:minimal,"Minimalist App")
+		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_Minimal/iowa',
+				:cmd => [ruby,'-I../../../src','app.rb'])
+			sleep 1
+			@wb_pid = IWATestSupport::create_process(:dir => 'TC_Minimal',
+				:cmd => [ruby,'-I../../../src','webrick.rb'])
+			sleep 1
+		end
+	end
+
+	def teardown
+		Process.kill "SIGKILL",@iowa_pid
+		Process.wait @iowa_pid
+		Process.kill "SIGKILL",@wb_pid
+		Process.wait @wb_pid
+		sleep 1
+	end
+	
+	def get_url(hostname,port,url)
+		Net::HTTP.start(hostname,port) {|http| http.get(url)}
+	end
+
+	def testBasicGet
+		assert_nothing_raised("Error trying to send request to iowa app via CGI adaptor.") do
+			response = get_url('127.0.0.1','47990','/cgi/iowa.cgi')
+			assert(response.body =~ /Hello World/,"The response returned from the iowa app is not what was expected.")
+		end
+	end
+
+end

data/test/TC_Minimal/app.cnf

@@ -0,0 +1,8 @@
+socket:
+  hostname: localhost
+  port: 47991
+logging:
+  basedir: ../log
+  minlevel: 0
+  maxsize: 10000000
+  maxage: 86400

data/test/TC_Minimal/cgi-bin/iowa.cgi

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join('..','..','..'))
+require 'iowa/Client.rb'
+
+begin
+iowa_socket = '127.0.0.1:47991'
+client = Iowa::Client.new(iowa_socket)
+client.handle_request
+rescue Exception => e
+	File.open('/tmp/ci.out','a+') {|fh| fh.puts e,e.backtrace.inspect}
+end

data/test/TC_Minimal/doc/index.html

@@ -0,0 +1 @@
+test

data/test/TC_Minimal/iowa/Main.html

@@ -0,0 +1 @@
+Hello World

data/test/TC_Minimal/iowa/README

@@ -0,0 +1 @@
+This is a minimal app for testing purposes.

data/test/TC_Minimal/iowa/app.rb

@@ -0,0 +1,3 @@
+#!/usr/local/bin/ruby
+require 'iowa_webrick'
+Iowa.run({:daemonize => false})

data/test/TC_Minimal/webrick.rb

@@ -0,0 +1,38 @@
+require 'rbconfig'
+require 'webrick'
+
+class HTTPServer < WEBrick::HTTPServer
+	
+		def service(req,res)
+			if req.unparsed_uri == "*"
+				if req.request_method == "OPTIONS"
+					do_OPTIONS(req, res)
+					raise ::HTTPStatus::OK
+				end
+				raise ::HTTPStatus::NotFound, "`#{req.unparsed_uri}' not found."
+			end
+
+			servlet = options = script_name = path_info = nil
+			servlet, options, script_name, path_info = search_servlet(req.path)
+		
+			raise ::HTTPStatus::NotFound, "`#{req.path}' not found." unless servlet
+			req.script_name = script_name
+			req.path_info = path_info
+			si = servlet.get_instance(self, *options)
+			@logger.debug(format("%s is invoked.", si.class.name))
+			si.service(req, res)
+		end
+
+end
+
+ruby = File.join(::Config::CONFIG['bindir'],::Config::CONFIG['ruby_install_name'])
+ruby << ::Config::CONFIG['EXEEXT']
+
+server = HTTPServer.new(
+	:Port => 47990,
+	:DocumentRoot => 'doc',
+	:CGIInterpreter => ruby)
+
+file_handler_options = {:HandlerTable => Hash.new(WEBrick::HTTPServlet::CGIHandler)}
+server.mount('/cgi', WEBrick::HTTPServlet::FileHandler, File.join(Dir.getwd,'cgi'), file_handler_options)
+server.start

data/test/TC_Mongrel.rb

@@ -0,0 +1,58 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'rbconfig'
+require 'net/http'
+
+if IWATestSupport.run_modes.include?(:mongrel)
+	class TC_Mongrel < Test::Unit::TestCase
+
+		@@testdir = IWATestSupport.test_dir(__FILE__)
+		def setup
+			Dir.chdir(@@testdir)
+			IWATestSupport.announce(:mongrelmode,"Mongrel 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_Mongrel/iowa',
+					:cmd => ["#{ruby} -I../../../src app.rb -r mongrel"])
+				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_mongrel
+			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
+end

data/test/TC_Mongrel/doc/thing.txt

@@ -0,0 +1 @@
+This is a static thing.

data/test/TC_Mongrel/iowa/Main.html

@@ -0,0 +1,3 @@
+Mongrel Test
+<a oid="dlink">dynamic link</a>
+<a href="/thing.txt">static link</a>

data/test/TC_Mongrel/iowa/Main.iwa

@@ -0,0 +1,7 @@
+class Main < Iowa::Component
+
+	def dlink
+		yield pageNamed(:NewPage)
+	end
+
+end

data/test/TC_Mongrel/iowa/NewPage.html

@@ -0,0 +1 @@
+The time is now: @now

data/test/TC_Mongrel/iowa/NewPage.iwa

@@ -0,0 +1,5 @@
+class NewPage < Iowa::Component
+	def now
+		Time.now.asctime
+	end
+end

data/test/TC_Mongrel/iowa/app.cnf

@@ -0,0 +1,10 @@
+socket:
+  hostname: 127.0.0.1
+  port: 47990
+logging:
+  basedir: ../log
+  minlevel: 0
+  maxsize: 10000000
+  maxage: 86400
+application:
+  daemonize: false

data/test/TC_Mongrel/iowa/app.rb

@@ -0,0 +1,5 @@
+#!/usr/local/ruby184/bin/ruby
+
+require 'iowa'
+
+Iowa.run

data/test/TC_NoSubclass.rb

@@ -0,0 +1,56 @@
+require 'test/unit'
+require 'rbconfig'
+require 'net/http'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+
+class TC_NoSubclass < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:nosubclass,"App With No Subclass")
+
+		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_NoSubclass/iowa',
+				:cmd => [ruby,'-I../../../src','app.rb'])
+			sleep 1
+			@wb_pid = IWATestSupport::create_process(:dir => 'TC_NoSubclass',
+				:cmd => [ruby,'-I../../../src','webrick.rb'])
+			sleep 1
+		end
+	end
+
+	def teardown
+		Process.kill "SIGKILL",@iowa_pid
+		Process.wait @iowa_pid
+		Process.kill "SIGKILL",@wb_pid
+		Process.wait @wb_pid
+		sleep 1
+	end
+	
+	def get_url(hostname,port,url)
+		Net::HTTP.start(hostname,port) {|http| http.get(url)}
+	end
+
+	def testBasicGet
+		assert_nothing_raised("Error trying to send request to iowa app via CGI adaptor.") do
+			response = get_url('127.0.0.1','47990','/cgi/iowa.cgi')
+			assert(response.body =~ /The Time Is/,"The response returned from the iowa app is not what was expected.")
+		end
+	end
+
+	def testFollowLink
+		assert_nothing_raised("Error trying to send request to iowa app via CGI adaptor.") do
+			response = get_url('127.0.0.1','47990','/cgi/iowa.cgi')
+			response.body =~ /127.0.0.1:47990([^"]+)/m
+			nextlink = $1
+			response2 = get_url('127.0.0.1','47990',nextlink)
+			assert(response2.body =~ /The count is 2/,"The response returned from the iowa app is not what was expected.\nResponse: #{response2.body}")
+		end
+	end
+
+end

data/test/TC_NoSubclass/cgi/iowa.cgi

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+$:.unshift(File.join('..','..','..','src'))
+require 'iowa/Client.rb'
+
+iowa_socket = '127.0.0.1:47991'
+client = Iowa::Client.new(iowa_socket)
+client.handle_request

data/test/TC_NoSubclass/doc/index.html

@@ -0,0 +1 @@
+test

data/test/TC_NoSubclass/iowa/Main.html

@@ -0,0 +1,8 @@
+<html>
+	<head><title>The Time Is...</title></head>
+	<body>
+		The time is @now.<br />
+		The count is @count.<br />
+		<a oid="reload">RELOAD</a>
+	</body>
+</html>

data/test/TC_NoSubclass/iowa/Main.iwa

@@ -0,0 +1,14 @@
+class Main < Iowa::Component
+	attr_accessor :count
+	def awake
+		@count = 0
+	end
+	
+	def setup
+		@count += 1
+	end
+
+	def now
+		Time.now.asctime
+	end
+end

data/test/TC_NoSubclass/iowa/README

@@ -0,0 +1 @@
+This is a minimal app for testing purposes.

data/test/TC_NoSubclass/iowa/app.cnf

@@ -0,0 +1,8 @@
+socket:
+  hostname: 127.0.0.1
+  port: 47991
+logging:
+  basedir: ../log
+  minlevel: 0
+  maxsize: 10000000
+  maxage: 86400

data/test/TC_NoSubclass/iowa/app.rb

@@ -0,0 +1,5 @@
+#!/usr/local/bin/ruby
+
+require 'iowa'
+
+Iowa.run({:daemonize => false})

data/test/TC_NoSubclass/webrick.rb

@@ -0,0 +1,38 @@
+require 'rbconfig'
+require 'webrick'
+
+class HTTPServer < WEBrick::HTTPServer
+	
+		def service(req,res)
+			if req.unparsed_uri == "*"
+				if req.request_method == "OPTIONS"
+					do_OPTIONS(req, res)
+					raise ::HTTPStatus::OK
+				end
+				raise ::HTTPStatus::NotFound, "`#{req.unparsed_uri}' not found."
+			end
+
+			servlet = options = script_name = path_info = nil
+			servlet, options, script_name, path_info = search_servlet(req.path)
+		
+			raise ::HTTPStatus::NotFound, "`#{req.path}' not found." unless servlet
+			req.script_name = script_name
+			req.path_info = path_info
+			si = servlet.get_instance(self, *options)
+			@logger.debug(format("%s is invoked.", si.class.name))
+			si.service(req, res)
+		end
+
+end
+
+ruby = File.join(::Config::CONFIG['bindir'],::Config::CONFIG['ruby_install_name'])
+ruby << ::Config::CONFIG['EXEEXT']
+
+server = HTTPServer.new(
+	:Port => 47990,
+	:DocumentRoot => 'doc',
+	:CGIInterpreter => ruby)
+
+file_handler_options = {:HandlerTable => Hash.new(WEBrick::HTTPServlet::CGIHandler)}
+server.mount('/cgi', WEBrick::HTTPServlet::FileHandler, File.join(Dir.getwd,'cgi'), file_handler_options)
+server.start

data/test/TC_Pool.rb

@@ -0,0 +1,139 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/Pool'
+
+class TestPool < Iowa::Pool
+	StartSize 3
+	MinSize 1
+	MaxSize 6
+	MaxAge 60
+	MonitorInterval 30
+
+	def monitor(obj)
+		obj
+	end
+
+	def valid?(obj)
+		obj
+	end
+
+	def newobj
+		Hash.new
+	end
+end
+
+class TC_Pool < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:pool,"Iowa::Pool")
+	end
+
+	def test_initialize
+		assert_nothing_raised("initialize() on generic Pool failed!") do
+			pool = Iowa::Pool.new(:start_size => 3,
+														:min_size => 1,
+														:max_size => 6,
+														:max_age => 60,
+														:monitor_interval => 30,
+														:monitor => lambda {|o| o},
+														:valid => lambda {|o| o},
+														:newobj => lambda { Hash.new }
+													 )
+			assert_equal(3,pool.start_size,"Start size(#{pool.start_size}) is incorrect; it should be 3.")
+			assert_equal(1,pool.min_size,"Min size(#{pool.min_size}) is incorrect; it should be 1.")
+			assert_equal(6,pool.max_size,"Max size(#{pool.max_size}) is incorrect; it should be 6.")
+			assert_equal(60,pool.max_age,"Max age(#{pool.max_age}) is incorrect; it should be 60.")
+		end
+	end
+
+	def test_init_with_class
+		assert_nothing_raised("initialize() on subclass Pool failed!") do
+			pool = TestPool.new
+			assert_equal(3,pool.start_size,"Start size(#{pool.start_size}) is incorrect; it should be 3.")
+			assert_equal(1,pool.min_size,"Min size(#{pool.min_size}) is incorrect; it should be 1.")
+			assert_equal(6,pool.max_size,"Max size(#{pool.max_size}) is incorrect; it should be 6.")
+			assert_equal(60,pool.max_age,"Max age(#{pool.max_age}) is incorrect; it should be 60.")
+		end
+	end
+
+	def test_pool_size
+		assert_nothing_raised("Failure while testing pool size!") do
+			pool = TestPool.new
+			assert_equal(3,pool.pool_size,"Pool size(#{pool.pool_size}) seems to be incorrect.  A size of 3 was expected.")
+		end
+	end
+
+	def test_push_pop
+		assert_nothing_raised("Failure while testing push/pop operations!") do
+			pool = TestPool.new
+			bl1 = pool.length
+			ps1 = pool.pool_size
+			h1 = pool.pop
+			bl2 = pool.length
+			ps2 = pool.pool_size
+			h2 = pool.pop
+			pool.push(h2)
+			pool.push(pool.pop)
+			bl3 = pool.length
+			ps3 = pool.pool_size
+			assert_equal(3,bl1,"Array length(#{bl1}) should have been 3.")
+			assert_equal(ps1,bl1,"Pool size(#{ps1}) should be equal to array length(#{bl1}).")
+			assert_equal(2,bl2,"Array length(#{bl2}) should have been 2.")
+			assert_equal(3,ps2,"Pool size(#{ps2}) should have been 3.")
+			assert_equal(2,bl3,"Array length(#{bl2}) should have been 2.")
+			assert_equal(3,ps3,"Pool size(#{ps2}) should have been 3.")
+			h2 = pool.pop
+			h3 = pool.pop
+			h4 = pool.pop
+			assert_equal(0,pool.length,"Array length(#{pool.length}) should be 0.")
+			assert_equal(4,pool.pool_size,"Pool size(#{pool.pool_size}) should have expanded to 4.")
+		end	
+	end
+
+	def test_obtain
+		assert_nothing_raised("Failure while testing obtain()!") do
+			pool = TestPool.new(:max_size => 4)
+			pool.obtain {|x| x[1] = 1}
+			pool.obtain do |x|
+				pool.obtain {|y| y[:a] = 'a'}
+			end
+			tpl = []
+			tpl << Thread.start do
+				pool.obtain do |x1|
+					pool.obtain do |x2|
+						pool.obtain do |x3|
+							pool.obtain do |x4|
+								puts "Thread A has all objects in pool (len/size/max: #{pool.length}/#{pool.pool_size}/#{pool.max_size}); sleeping..."
+								sleep 10
+								puts "Thread A awake and releasing objects."
+							end
+							puts "Thread A released an object."
+						end
+						puts "Thread A released an object"
+					end
+					puts "Thread A released an object."
+				end
+				puts "Thread A released an object."
+			end
+			tpl << Thread.start do
+				puts "Thread B sleeping for 5 seconds."
+				sleep 5
+				puts "Thread B requesting an object from the pool.  It should have to wait for an object to be freed."
+				pool.obtain do |x5|
+					puts "Thread B got an object from the pool."
+					sleep 1
+					puts "Thread B releasing object from the pool."
+				end
+			end
+			tpl.each {|t| t.join}
+		end
+	end
+
+	def test_expand
+	end
+
+
+end