IOWA 1.0.0

data/test/TC_ImageSize/img.xbm

@@ -0,0 +1,22 @@
+#define img_width 70
+#define img_height 34
+static unsigned short img_bits[] = {
+   0xffff, 0xffff, 0xffff, 0xffff, 0x003f, 0xffff, 0xffff, 0xffff, 0xffff,
+   0x003f, 0xffff, 0xffff, 0xffff, 0xffff, 0x003f, 0xffff, 0xffff, 0xffff,
+   0xffff, 0x003f, 0xffff, 0xffff, 0xffff, 0xffff, 0x003f, 0xffff, 0xffff,
+   0xffff, 0xffff, 0x003f, 0x7ebf, 0xfd1f, 0xffeb, 0xffaf, 0x003f, 0x001f,
+   0xf80a, 0x1fc0, 0x8206, 0x003f, 0x000f, 0x7004, 0x1f80, 0x8000, 0x003f,
+   0x000f, 0x2000, 0x0f81, 0x0004, 0x003f, 0x002f, 0x0040, 0x1f86, 0x0008,
+   0x003e, 0x017f, 0x00e0, 0x3aad, 0x0638, 0x003e, 0x07ff, 0x01f8, 0x381e,
+   0x0e00, 0x003f, 0x0fff, 0x03f0, 0x703c, 0x0d04, 0x003e, 0x0fff, 0x07f0,
+   0x3814, 0x1700, 0x003e, 0x0fff, 0x07f0, 0x7014, 0x0a00, 0x003e, 0x0fff,
+   0x07f0, 0x2010, 0x0000, 0x003e, 0x0fff, 0x0fe0, 0x0000, 0x0001, 0x003e,
+   0x07ff, 0x47c0, 0x0080, 0x0001, 0x003e, 0x0f1f, 0xe780, 0x8180, 0x02c3,
+   0x003e, 0x070f, 0xf100, 0xc0c1, 0x1fc3, 0x003e, 0x0c0f, 0xe001, 0xc3c3,
+   0x1fc7, 0x003c, 0x800f, 0xf802, 0xe3e1, 0x1fe7, 0x003c, 0xc03f, 0xf807,
+   0xe3e7, 0x3fe7, 0x003e, 0xfabf, 0xff5f, 0xffff, 0xffff, 0x003f, 0xffff,
+   0xffff, 0xffff, 0xffff, 0x003f, 0xffff, 0xffff, 0xffff, 0xffff, 0x003f,
+   0xffff, 0xffff, 0xffff, 0xffff, 0x003f, 0xffff, 0xffff, 0xffff, 0xffff,
+   0x003f, 0xffff, 0xffff, 0xffff, 0xffff, 0x003f, 0xffff, 0xffff, 0xffff,
+   0xffff, 0x003f, 0xffff, 0xffff, 0xffff, 0xffff, 0x003f, 0xffff, 0xffff,
+   0xffff, 0xffff, 0x003f, 0xffff, 0xffff, 0xffff, 0xffff, 0x003f };

data/test/TC_KeyValueCoding.rb

@@ -0,0 +1,35 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/KeyValueCoding'
+
+class TC_KeyValueCoding < Test::Unit::TestCase
+
+	Obj = Struct.new('Obj', :foo, :bar)
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:keyvaluecoding,"Iowa::KeyValueCoding")
+		@obj = Obj.new(Obj.new(Obj.new('a')),7)
+	end
+
+	def test_takeValueForKey
+		assert_nothing_raised("Failed while calling takeValueForKey") do
+			@obj.takeValueForKey(7,"bar")
+		end
+		assert_equal(@obj.valueForKey("bar"),7,"Failed while calling valueForKey")
+	end
+
+	def test_valueForKeyPath
+		assert_nothing_raised("Failed while calling valueForKeyPath") do
+			@obj.takeValueForKeyPath("a","foo.foo")
+		end
+		assert_equal(@obj.valueForKeyPath("foo.foo"),"a","Failed while calling valueForKeyPath")
+	end
+
+	def test_existsKeyPath?
+		assert(@obj.existsKeyPath?('foo.foo.bar'),"existsKeyPath? failed.")
+	end
+
+end

data/test/TC_LRUCache.rb

@@ -0,0 +1,296 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/caches/LRUCache'
+
+class TC_LRUCache < Test::Unit::TestCase
+	@cache
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:lrucache,"Iowa::Caches::LRUCache")
+	end
+
+
+	def test_creation
+		assert_nothing_raised("Failed while creating an Iowa::Caches::LRUCache object") do
+			@cache = Iowa::Caches::LRUCache.new({:maxsize => 12})
+		end
+	end
+
+	def test_cache_size
+		s = nil
+		assert_nothing_raised do
+			@cache = Iowa::Caches::LRUCache.new({:maxsize => 12})
+			(1..14).each {|n| @cache[n] = n}
+			s = @cache.size
+		end
+		assert_equal(12,s,"The expected size (12) did not match the returned size (#{s}).")
+	end
+
+	def test_cache_size2
+		s = nil
+		assert_nothing_raised do
+			@cache = Iowa::Caches::LRUCache.new({:maxsize => 12})
+			(1..14).each {|n| @cache[n] = n}
+			@cache.maxsize=3
+			s = @cache.size
+		end
+		assert_equal(3,s,"The cache size does not appear to to have change as expected; want size of 3, have size of #{s}.")
+	end
+
+	def test_values
+		s = nil
+		assert_nothing_raised do
+			@cache = Iowa::Caches::LRUCache.new({:maxsize => 3})
+			@cache['a'] = 1
+			@cache['b'] = 2
+			@cache['c'] = 3
+			s = @cache['b']
+		end
+		assert_equal(2,s,"The value retrieved from the cache (#{s}) did not match what was expected (2).")
+	end
+
+	def test_expire1
+		s = nil
+		assert_nothing_raised do
+			@cache = Iowa::Caches::LRUCache.new({:maxsize => 3})
+			@cache['a'] = 1
+			@cache['b'] = 2
+			@cache['c'] = 3
+			s = @cache['b']
+			@cache['d'] = 4
+			s = true
+			s = false if @cache.include? 'a'
+		end
+		assert_equal(true,s,"Key 'a' should have fallen out of the cache.  It did not.")
+	end
+
+	def test_expire2
+		s = nil
+		assert_nothing_raised do
+			@cache = Iowa::Caches::LRUCache.new({:maxsize => 3})
+			@cache['a'] = 1
+			@cache['b'] = 2
+			@cache['c'] = 3
+			s = @cache['b']
+			@cache['d'] = 4
+			s = false
+			s = true if @cache.include? 'b'
+		end
+		assert_equal(true,s,"Key 'b' appears to have fallen out of the cache.  It should not have.")
+	end
+
+	def test_expire3
+		@cache = nil
+		assert_nothing_raised do
+			@cache = Iowa::Caches::LRUCache.new({:ttl => 3})
+			@cache['a'] = 1
+			@cache['b'] = 2
+			@cache['c'] = 3
+			sleep 2
+			@cache.ttl = 1
+		end
+		assert_equal([],@cache.queue,"There seems to be have been a problem with expiration via TTL timeout.")
+	end
+
+	# Method specific tests here.
+	
+	def test__set
+		@cache = Iowa::Caches::LRUCache.new
+		assert_equal(1,@cache['a'] = 1,"Failure while testing []=")
+	end
+
+	def test__get
+		@cache = Iowa::Caches::LRUCache.new
+		@cache['a'] = 123
+		assert_equal(123,@cache['a'],"Failure while testing []")
+	end
+
+	def test__include?
+		@cache = Iowa::Caches::LRUCache.new
+		@cache['a'] = 1
+		@cache['b'] = 2
+		@cache['c'] = 3
+		assert(@cache.include?('a'),"Failure while testing include?()")
+	end
+
+	def test__empty?
+		@cache = Iowa::Caches::LRUCache.new
+		assert(@cache.empty?,"Failure while testing empty?()")
+	end
+
+	def test__delete
+		@cache = Iowa::Caches::LRUCache.new
+		@cache['a'] = 1
+		@cache['b'] = 2
+		assert_nothing_raised do
+			@cache.delete('a')
+		end
+		assert_equal(['b'],@cache.queue,"Failure while testing delete()")
+	end
+
+	def test__first1
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal(1,@cache.first,"Failure while testing first()")
+	end
+
+	def test__first2
+		@cache = Iowa::Caches::LRUCache.new
+		@cache['a'] = 1
+		@cache['b'] = 2
+		@cache['c'] = 3
+		assert_equal(3,@cache.first,"Failure while testing first()")
+	end
+
+	def test__last1
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal(3,@cache.last,"Failure while testing last()")
+	end
+
+	def test__last2
+		@cache = Iowa::Caches::LRUCache.new
+		@cache['a'] = 1
+		@cache['b'] = 2
+		@cache['c'] = 3
+		assert_equal(1,@cache.last,"Failure while testing last()")
+	end
+
+	def test__shift
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal(1,@cache.shift,"Failure while testing shift()")
+		assert_equal([2,3],@cache.queue,"Failure while testing shift()")
+	end
+
+	def test__pop
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal(3,@cache.pop,"Faulure while testing shift()")
+		assert_equal([1,2],@cache.queue,"Failure while testing shift()")
+	end
+
+	def test__push
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal([1,2,3],@cache.queue,"Failure while testing push()")
+	end
+
+	def test__queue
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal([1,2,3],@cache.queue,"Failure while testing queue()")
+	end
+
+	def test__to_a
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal([1,2,3],@cache.to_a,"Failure while testing queue()")
+	end
+
+	def test__length
+		@cache = Iowa::Caches::LRUCache.new
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal(3,@cache.length,"Failure while testing length()")
+	end
+
+	def test__each
+		@cache = Iowa::Caches::LRUCache.new
+		@cache['a'] = 1
+		@cache['b'] = 2
+		@cache['c'] = 3
+		t = ''
+		s = 0
+		assert_nothing_raised do
+			@cache.each do |k,v|
+				t << k
+				s += v
+			end
+		end
+		assert_equal('cba',t,"Failure while testing each()")
+		assert_equal(6,s,"Failure while testing each()")
+	end
+
+	def test__maxsize
+		@cache = Iowa::Caches::LRUCache.new({:maxsize => 3})
+		assert_equal(3,@cache.maxsize,"Failure while testing maxsize()")
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		@cache.push 4
+		assert_equal(3,@cache.length,"Failure while testing maxsize()")
+	end
+
+	def test__maxsize_set
+		@cache = Iowa::Caches::LRUCache.new
+		assert_nothing_raised do
+			@cache.maxsize = 4
+		end
+		assert_equal(4,@cache.maxsize,"Failure while testing maxsize=()")
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		@cache.push 4
+		@cache.push 5
+		assert_equal(4,@cache.size,"Failure while testing maxsize=()")
+		assert_nothing_raised do
+			@cache.maxsize = 2
+		end
+		assert_equal(2,@cache.queue.length,"Failure while testing maxsize=()")
+	end
+
+	def test__ttl
+		@cache = Iowa::Caches::LRUCache.new(:ttl => 3)
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal(3,@cache.ttl,"Failure while testing ttl()")
+	end
+
+	def test__ttl_set
+		@cache = Iowa::Caches::LRUCache.new
+		assert_nothing_raised do
+			@cache.ttl = 10
+		end
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal(10,@cache.ttl,"Failure while testing ttl=()")
+		sleep 2
+		assert_nothing_raised do
+			@cache.ttl = 1
+		end
+		assert_equal(0,@cache.length,"Failure while testing ttl=()")
+	end
+
+	def test__add_finalizer
+		@cache = Iowa::Caches::LRUCache.new({:maxsize => 2})
+		@dest = []
+		assert_nothing_raised do
+			@cache.add_finalizer(@dest) {|key,obj,dest| dest << key; dest << obj}
+		end
+		@cache.push 1
+		@cache.push 2
+		@cache.push 3
+		assert_equal([3,3],@dest,"Failure while testing add_finalizer/finalizers.")
+	end
+
+end

data/test/TC_LinkedList.rb

@@ -0,0 +1,46 @@
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'test/unit'
+require 'iowa/LinkedList'
+
+
+class TC_LinkedList < Test::Unit::TestCase
+	@cache
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:linkedlist,"Iowa::LinkedList")
+	end
+
+	def test_all
+		ll = nil
+		assert_nothing_raised('Failed while creating an Iowa::LinkedList object.') { ll = Iowa::LinkedList.new }
+		assert_kind_of(Iowa::LinkedList,ll,'Strangely, the created object does not appear to be an Iowa::LinkedList.')
+
+		assert_nothing_raised('Failed while pushing a value onto the linked list.') { ll.push 'a' }
+		ll.push 'b'
+		assert_nothing_raised('Failed while assigning a key/value to the linked list.') { ll['c'] = 3 }
+		assert_equal(3,ll.first, 'First element in the linked list appears to be the wrong one.')
+		assert_equal('b',ll.last, 'Last element in the linked list appears to be the wrong one.')
+		assert_nothing_raised('Failed while unshifting a value onto the linked list.') { ll.unshift 'd' }
+		assert_equal('d',ll.first, 'The prior unshift apparently failed.')
+		assert_equal('a',ll['a'], 'Accessing an element by key failed.')
+		assert_equal(4,ll.length, 'The length of the linked list appears to be incorrect.')
+		d = nil
+		assert_nothing_raised('Failed while deleting an element from the middle of the list.') { d = ll.delete('a') }
+		assert_equal('a',d, 'The prior delete returned the wrong value for the deleted object.')
+		assert_equal(3,ll.length, 'The length of the linked list appears to be incorrect following the prior deletion.')
+		assert_nothing_raised('Failed while popping an element from the end of the list.') { d = ll.pop }
+		assert_equal('b',d, 'The prior pop returned the wrong value.')
+		assert_equal(2,ll.length, 'The length of the linked list appears to be incorrect following the prior pop.')
+		assert_equal(['d','c'],ll.queue, 'The queue of keys for the list is incorrect.')
+		assert_equal(['d',3],ll.to_a, 'Converting the list to an array (of values) seems to have failed.')
+		expected = [['c',3],['d','d']]
+		ll.each do |k,v|
+			e = expected.pop
+			assert_equal(e,[k,v], 'While iterates over the list via each(), the value from this iteration is not what was expected.')
+		end
+	end
+
+end

data/test/TC_Lockfile.rb

@@ -0,0 +1,106 @@
+require 'test/unit'
+require 'external/test_support'
+IWATestSupport.set_src_dir
+require 'iowa/Lockfile'
+require 'tmpdir'
+require 'fileutils'
+
+class TC_Lockfile < Test::Unit::TestCase
+	@@disclaimer = false
+	def make_tmp_path; "#{Dir::tmpdir}/tc_diskcache.#{Time.now.to_i}#{rand}.lck"; end
+
+	@@testdir = IWATestSupport.test_dir(__FILE__)
+	def setup
+		Dir.chdir(@@testdir)
+		IWATestSupport.announce(:lockfile,"Iowa::Lockfile")
+    puts "Be advised that if you are on certain OSes, such\nas Windows XP, the lockfile tests using link() will fail.\nThis is expected." unless @@disclaimer
+		@@disclaimer = true
+		assert_nothing_raised("setup failed") do
+			@count = 0
+		end
+	end
+
+	def thread_a
+		puts "\nEntering thread A."
+		@lockfile.lock do
+			puts "#{Time.now.asctime}: Thread A acquired lock."
+			sleep 3
+			puts "#{Time.now.asctime}: Thread A releasing lock."
+		end
+	end
+
+	def thread_b
+		puts "Entering thread B."
+		@lockfile.lock do
+			puts "#{Time.now.asctime}: Thread B acquiring lock."
+			sleep 1
+			puts "#{Time.now.asctime}: Thread B releasing lock."
+		end
+	end
+
+	def thread_c
+		puts "Entering thread C."
+		@lockfile.lock do
+			puts "#{Time.now.asctime}: Thread C acquiring lock."
+			sleep 1
+			puts "#{Time.now.asctime}: Thread C releasing lock."
+		end
+	end
+
+	def do_test
+		tl = []
+		tl.push Thread.new {thread_a}
+		sleep 1
+		tl.push Thread.new {thread_b}
+		tl.push Thread.new {thread_c}
+		tl.each {|t| t.join}
+		sleep 1
+	end
+
+	def hammer
+		1.upto(3000) do |x|
+			@lockfile.lock do
+				@count += 1
+				if x % 100 == 0
+					print '.'
+					$stdout.flush
+				end
+			end
+		end
+	end
+
+	# Tests go here.
+	
+	def test_a_link_method
+		assert_nothing_raised("Failed while testing link() method.  On certain OSes (WinXP), this is expected.") do
+			@lockfile = Iowa::Lockfile.new(make_tmp_path,{:use_flock => false})
+			do_test
+		end
+	end
+
+	def test_a_flock_method
+		assert_nothing_raised("Failed while testing flock method.") do
+			@lockfile = Iowa::Lockfile.new(make_tmp_path,{:use_flock => true})
+			do_test
+		end
+	end
+
+	def test_a_autoselect_method
+		assert_nothing_raised("Failed while testing method autodetect.") do
+			@lockfile = Iowa::Lockfile.new(make_tmp_path)
+			do_test
+		end
+	end
+
+	def test_hammer_lockfile
+		assert_nothing_raised("Failed on lock #{@count} while hammering lockfile.") do
+			@lockfile = Iowa::Lockfile.new(make_tmp_path)
+			tl = []
+			tl.push Thread.new {hammer}
+			tl.push Thread.new {hammer}
+			tl.each {|t| t.join}
+			sleep 1
+			assert_equal(6000,@count,"The final count (#{@count}) was not what was expected (60000).  Locking error may be responsible.")
+		end
+	end
+end