IOWA 1.0.0

data/tcss.rb

@@ -0,0 +1,61 @@
+require 'iowa/CSS'
+
+a = Iowa::CSS.new
+b = <<ECSS
+Media.screen {
+  h1 {
+    color 'blue'
+  }
+
+  head_2 = h2 {
+    color 'green'
+    font_weight 'italic'
+  }
+
+  Id.content {
+    Class.foo {
+      border 3.px
+      color head_2.color
+    }
+    font_face 'verdana'
+    table {
+      width 100
+      Class.special {
+        background_color 'grey'
+      }
+    }
+  }
+
+  p {
+	quote {
+	  font_style 'italic'
+	  color 'green'
+	}
+  }
+
+  p {
+    universal {
+      quote {
+        z = font {
+          style 'italic'
+          weight 'bold'
+        }
+        color 'green'
+      }
+    }
+  }
+
+  universal {
+    Class.smaller {font_size 85.pct}
+  }
+
+	p { p {
+		font {
+			size 10.pt + 2
+		}}
+	}
+}
+ECSS
+a.parse b
+puts a
+puts "done"

data/test/README.windows

@@ -0,0 +1,12 @@
+To run the TC_AppConfig, TC_CGI_Adaptor, and TC_NoSubclass tests on Windows machines,
+the win32/process library must be installed.
+
+This can be found on Rubyforge at http://rubyforge.org/projects/win32utils.
+
+If you use rubygems, it can be installed with:
+
+gem install win32-process
+
+If you do not have them installed, the IOWA installed will detect this and install
+versions bundled in the distribution.
+

data/test/TC_AcceptLanguage.rb

@@ -0,0 +1,61 @@
+require 'test/unit'
+require 'external/test_support'
+require 'iowa/AcceptLanguage'
+require 'benchmark'
+
+class TC_AcceptLanguage < Test::Unit::TestCase
+
+	def setup_al(al)
+		al['en-us'] = 'EN-US'
+		al['en'] = 'EN'
+		al['es'] = 'ES'
+		al['es-es'] = 'ES-ES'
+	end
+	
+	def setup
+		IWATestSupport.announce(:acceptlanguage,"Accept Language Parser")
+	end
+
+	def test_a
+		al = nil
+		assert_nothing_raised("Error creating an AcceptLanguage object.") do
+			al = Iowa::AcceptLanguage.new
+		end
+		assert_nothing_raised("Error assigning to an AcceptLanguage object.") do
+			setup_al(al)
+		end
+		assert_equal(['en','en-us','es','es-es'],al.languages.sort,"The list of accepted languages does not match what was expected.")
+
+		l = 'es-es,es;q=0.8,en-us;q=0.5,en;q=0.3'
+		assert_equal('ES-ES',al.match(l))
+
+		m = 'es-mx,es;q=0.8,en-us;q=0.5,en;q=0.3'
+		assert_equal('ES',al.match(m))
+
+		n = 'en-us,es;q=0.1'
+		assert_equal('EN-US',al.match(n))
+
+		o = 'en-gb,en;q=0.3'
+		assert_equal('EN',al.match(o))
+
+		p = 'en-gb'
+		assert_equal('EN',al.match(p))
+
+		puts "\nBenchmarking AcceptLanguage..."
+		Benchmark.benchmark do |bm|
+			bm.report do
+				20000.times do
+					al.match(l)
+					al.match(m)
+					al.match(n)
+					al.match(o)
+					al.match(p)
+				end
+			end
+		end
+	end
+
+end
+
+
+

data/test/TC_AppConfig.rb

@@ -0,0 +1,43 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'rbconfig'
+require 'net/http'
+
+class TC_AppConfig < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:appconfig,"Iowa App Configuration")
+
+		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_AppConfig/iowa',
+				:cmd => [ruby,'-I../../../src','app.rb'])
+			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 testGetConfig
+		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')
+			puts response.body
+			assert(response.body =~ /"maxsize"=>200/, "The response returned from the iowa app has a malformed sessioncache entry.")
+			assert(response.body =~ /Policy: Iowa::Policy/, "The response returned indicates that the Policy setting was not handled correctly.")
+		end
+	end
+
+end

data/test/TC_AppConfig/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_AppConfig/doc/index.html

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

data/test/TC_AppConfig/iowa/Main.html

@@ -0,0 +1,4 @@
+Session Cache: @scache
+Dispatcher: @dispatcher
+Policy: @policy
+Config: @config

data/test/TC_AppConfig/iowa/Main.iwa

@@ -0,0 +1,17 @@
+class Main < Iowa::Component
+	def config
+		Iowa.config.inspect
+	end
+
+	def scache
+		Iowa.app.class.SessionCache.class.name
+	end
+
+	def dispatcher
+		Iowa.app.class.Dispatcher.class.name
+	end
+
+	def policy
+		Iowa.app.class.Policy.class.name
+	end
+end

data/test/TC_AppConfig/iowa/README

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

data/test/TC_AppConfig/iowa/app.cnf

@@ -0,0 +1,19 @@
+socket:
+  hostname: 127.0.0.1
+  port: 47990
+logging:
+  class: Logger
+  basedir: ../log
+  minlevel: 0
+  maxsize: 10000000
+  maxage: 86400
+application:
+  daemonize: false
+  sessioncache:
+    class: LRUCache
+    maxsize: 200
+    ttl: 3600
+  dispatcher:
+    class: iowa/Dispatcher
+  policy:
+    class: iowa/Policy

data/test/TC_AppConfig/iowa/app.rb

@@ -0,0 +1,8 @@
+#!/usr/local/bin/ruby
+
+require 'iowa'
+
+class TCTestCGISession < Iowa::Session; end
+class TCTestCGI < Iowa::Application; end
+
+Iowa.run({:daemonize => false})

data/test/TC_AppConfig/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_Association.rb

@@ -0,0 +1,29 @@
+#require 'rubygems'
+require 'test/unit'
+require 'external/test_support'
+require 'iowa/Association'
+
+class TC_CSS < Test::Unit::TestCase
+	def setup
+		IWATestSupport.announce(:association,"Associations")
+	end
+
+	def test_association
+		association = nil
+		assert_nothing_raised { association = Iowa::Association.new('thing') }
+		assert_equal('thing',association.association)
+		assert(association.test(1),"test() should always return true for Iowa::Association.")
+	end
+
+	def test_literal_association
+		association = nil
+		assert_nothing_raised { association = Iowa::LiteralAssociation.new('foo') }
+		assert_equal('foo',association.get)
+		assert_nothing_raised { association.set(1,Proc.new { 7 }) }
+		assert_equal(7,association.get)
+	end
+
+	def test_path_association
+	end
+
+end

data/test/TC_BiLevelCache.rb

@@ -0,0 +1,71 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/caches/BiLevelCache'
+require 'tmpdir'
+require 'fileutils'
+
+
+class TC_BiLevelCache < Test::Unit::TestCase
+	def make_tmpdir_path; FileUtils.mkdir("#{Dir::tmpdir}/tc_bilevelcache.#{Time.now.to_i}#{rand}").first; end
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:bilevelcache, "Iowa::Caches::BiLevelCache")
+	end
+
+	def test_creation
+		tmpdir = make_tmpdir_path
+		assert_nothing_raised("Failed while creating an Iowa::Caches::BiLevelCache object") do
+			@cache = Iowa::Caches::BiLevelCache.new({:maxsize => 12}, {:directory => tmpdir, :maxsize => 12})
+		end
+	ensure
+		FileUtils.rm_rf(tmpdir) if tmpdir.to_s != '' and tmpdir.to_s != '/'
+	end
+
+	def test_cache_size
+		tmpdir = make_tmpdir_path
+		@cache = Iowa::Caches::BiLevelCache.new({:maxsize => 12}, {:directory => tmpdir, :maxsize => 12})
+		(1..14).each {|n| @cache[n] = n}
+		s = @cache.size
+		l2s = @cache.l2.size
+		assert_equal(12,s,"The expected size (12) did not match the returned size (#{s}) of the level one cache.")
+		assert_equal(2,l2s,"The expected size (2) did not match the returned size (#{l2s}) of the level two cache.")
+	ensure
+		FileUtils.rm_rf(tmpdir) if tmpdir.to_s != '' and tmpdir.to_s != '/'
+	end
+
+	def test_cache_size2
+		tmpdir = make_tmpdir_path
+		@cache = Iowa::Caches::BiLevelCache.new({:maxsize => 12}, {:directory => tmpdir, :maxsize => 12})
+		(1..14).each {|n| @cache[n] = n}
+		@cache.size=3
+		s = @cache.size
+		@cache.l2.size=3
+		l2s = @cache.l2.size
+		assert_equal(3,s,"The level one cache size does not appear to to have change as expected; want size of 3, have size of #{s}.")
+		assert_equal(3,l2s,"The level two cache size does not appear to to have change as expected; want size of 3, have size of #{l2s}.")
+		FileUtils.rm_rf(tmpdir) if tmpdir.to_s != '' and tmpdir.to_s != '/'
+	end
+
+	def test_values
+		tmpdir = make_tmpdir_path
+		@cache = Iowa::Caches::BiLevelCache.new({:maxsize => 3}, {:directory => tmpdir, :maxsize => 3})
+		(1..6).each {|n| @cache[n] = n}
+		s = @cache[6]
+		l2s = @cache[2]
+		assert_equal(6,s,"The value retrieved from the cache (from L1 cache) (#{s}) did not match what was expected (6).")
+		assert_equal(2,l2s,"The value retrieved from the cache (from L2 cache) (#{s}) did not match what was expected (2).")
+		FileUtils.rm_rf(tmpdir)
+	end
+
+	def test_expire1
+		tmpdir = make_tmpdir_path
+		@cache = Iowa::Caches::BiLevelCache.new({:maxsize => 3}, {:directory => tmpdir, :maxsize => 3})
+		(1..8).each {|n| @cache[n] = n}
+		assert_equal(false,@cache.include?(1),"Key 1 should have fallen out of the cache.  It did not.")
+		assert_equal(true,@cache.include?(3),"Key 3 should not have expired from the cache.  It did.")
+		FileUtils.rm_rf(tmpdir)
+	end
+
+end

data/test/TC_CGI_Adaptor.rb

@@ -0,0 +1,55 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'rbconfig'
+require 'net/http'
+
+class TC_CGI_Adaptor < Test::Unit::TestCase
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:cgiadaptor,"Simple CGI Based 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_CGI_Adaptor/iowa',
+				:cmd => [ruby,'-I../../../src','app.rb'])
+			sleep 1
+			@wb_pid = IWATestSupport::create_process(:dir => 'TC_CGI_Adaptor',
+				: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