glue 0.0.1 → 0.13.0

data/test/glue/tc_attribute.rb

@@ -0,0 +1,22 @@
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'test/unit'
+require 'glue/attribute'
+
+class TC_Attribute < Test::Unit::TestCase # :nodoc: all
+
+	class Dummy
+		cattr_accessor :value, 'Default'
+		cattr_reader :reader, 3
+	end
+
+	def test_attr
+		assert_equal 'Default', Dummy.value
+		assert_nothing_raised { Dummy.value = 2 }
+		assert_equal 2, Dummy.value
+
+		assert_equal 3, Dummy.reader
+		assert_raise(NoMethodError) { Dummy.reader = 19 }
+	end
+
+end

data/test/glue/tc_cache.rb

@@ -0,0 +1,45 @@
+require "test/unit"
+require "glue/cache"
+
+class TC_Glue_Cache < Test::Unit::TestCase
+	# :nodoc: all
+
+	class Dummy
+		include N::LRUCache::Item
+	end
+	
+	def setup
+		@cache = N::LRUCache.new(maxitems = 3)
+	end
+
+	def teardown
+		@cache = nil
+	end
+
+	def test_safe_cache
+		d1 = Dummy.new
+		d2 = Dummy.new
+		d3 = Dummy.new
+		d4 = Dummy.new
+
+		@cache[1] = d1		
+		@cache[2] = d2		
+		@cache[3] = d3
+
+		assert_equal(d1, @cache.last)
+		assert_equal(d3, @cache.first)
+
+		val = @cache[2]
+		assert_equal(d2, @cache.first)
+
+		@cache[4] = d4
+		assert_equal(3, @cache.size)
+		assert_equal(d4, @cache.first)
+
+		# insert the same key		
+		@cache[4] = d4
+		assert_equal(3, @cache.size)
+		assert_equal(d4, @cache.first)		
+	end
+
+end

data/test/glue/tc_hash.rb

@@ -0,0 +1,38 @@
+# :nodoc: all
+
+require "test/unit"
+require "glue/hash"
+
+class TC_N2_Utils_Cache < Test::Unit::TestCase
+	# :nodoc: all
+
+	def setup
+		@safe_cache = N::SafeHash.new(Hash.new)
+	end
+
+	def teardown
+		@safe_cache = nil
+	end
+
+	def test_safe_cache
+		assert_equal(nil, @safe_cache["no_item"])
+		item1 =  "item1"
+		@safe_cache["key1"] = item1
+		assert_equal(item1, @safe_cache["key1"])
+
+		@safe_cache["rem1"] = item1
+		@safe_cache.delete("rem1")
+		assert_equal(nil, @safe_cache["rem1"])
+
+		@safe_cache.clear()
+		assert_equal(0, @safe_cache.size)
+
+		@safe_cache["i1"] = "i1"
+		@safe_cache["i2"] = "i1"
+		@safe_cache["i3"] = "i1"
+		assert_equal(3, @safe_cache.size)
+
+		assert_equal(3, @safe_cache.values.size)
+	end
+
+end

data/test/glue/tc_logger.rb

@@ -0,0 +1,39 @@
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'vendor')
+
+require 'stringio'
+
+require 'test/unit'
+require 'glue/logger'
+
+class TC_Logger < Test::Unit::TestCase # :nodoc: all
+
+	def setup
+		@io = StringIO.new('')
+		Logger.set(Logger.new(@io))
+	end
+
+	def test_logger
+		Logger.info 'hello'
+		assert_equal(" INFO: hello\n", @io.string)
+
+		# bug: Binding.of_caller thinks Logger is the caller.
+		a = 14
+		b = 13
+		Logger.trace 'a * b'
+		assert_equal(" INFO: hello\nDEBUG: a * b = 182\n", @io.string)
+		
+		@io.string = ''
+		Logger.debug 'hello'
+		assert_equal("DEBUG: hello\n", @io.string)
+
+		# test logging level.
+		Logger.get.level = Logger::INFO
+		Logger.debug 'world'
+		assert_equal("DEBUG: hello\n", @io.string)
+
+		# bug:
+		Logger.error 'Have forgotten that :)'
+	end
+
+end

data/test/glue/tc_numbers.rb

@@ -0,0 +1,20 @@
+# :nodoc: all
+
+require "test/unit"
+require "glue/number"
+
+class TC_N_NumberUtils < Test::Unit::TestCase
+	# :nodoc: all
+
+	def setup
+	end
+
+	def teardown
+	end
+
+	def test_ceil_multiple
+		assert_equal(20, N::NumberUtils.ceil_multiple(15, 10))
+		assert_equal(10, N::NumberUtils.ceil_multiple(1, 10))
+	end
+
+end

data/test/glue/tc_property.rb

@@ -0,0 +1,91 @@
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'test/unit'
+
+require 'og'
+require 'glue/logger'
+require 'glue/property'
+
+include N
+
+def VarChar(size)
+	return String, :sql => "VARCHAR(#{ size })"
+end
+NotNull = {:sql => "NOT NULL"}.freeze
+Null = {:sql => "NULL"}.freeze
+
+Property.type_checking = false
+
+module Test # :nodoc: all
+
+class Msg
+	include Og::Unmanageable
+	
+	prop Fixnum, :owner_oid
+	prop_accessor :val1, :val2, :val3, Fixnum, :sql => "smallint"
+	prop_accessor :title, :body, String
+	prop_accessor :test, String, :sql => "char(10) NOT NULL"
+	prop_accessor :count, Fixnum
+	prop_accessor :create_time, Time	
+
+	# a marshaled property
+	prop_accessor Array, :options
+
+	# property with macro arguments!
+	prop_accessor :address, VarChar(30), NotNull
+	
+	def initialize
+		@create_time = Time.now
+		@options = []
+	end
+
+end
+
+class SubMsg < Msg
+	# to avoid conflicts with tc_og.rb
+	include Og::Unmanageable
+	
+	# duplicate definition with different type!
+	prop_accessor :count, Float
+end
+
+class TC_N_Properties < Test::Unit::TestCase
+
+	def setup
+		@msg1 = Msg.new
+	end
+
+	def teardown
+		@msg1 = nil
+	end
+
+	def test_props
+		
+		# bug: props for subclasses.
+
+		assert(SubMsg.__props)
+		assert_equal(Msg.__props.size(), SubMsg.__props.size())
+
+		# bug: duplicate definition 			
+		
+		assert_equal(Float, SubMsg.__props.find { |p| :count == p.symbol }.klass)
+
+		# dont force conversion
+		
+		@msg1.count = 2.4
+		assert_equal(Float, @msg1.count.class)
+
+		# force conversion
+		
+		@msg1.__force_count(2.4)
+		assert_equal(Fixnum, @msg1.count.class)		
+	end
+
+	def test_macro_params
+		sql = Msg.__props.find { |p| :address == p.symbol }.meta[:sql]
+		assert_equal 'VARCHAR(30) NOT NULL', sql
+	end
+	
+end
+
+end # module

data/test/glue/tc_property_mixins.rb

@@ -0,0 +1,93 @@
+#! /usr/bin/env ruby
+# vim:sw=2:ai
+
+#--
+# Thomas Quas  <tquas@yahoo.com>
+# George Moschovitis  <gm@navel.gr>
+# $Id$
+#++
+
+$LOAD_PATH.unshift 'lib'
+
+require "test/unit"
+require 'glue/property'
+
+module Mixin
+  prop_accessor :date
+	meta :dummy, [123]
+end
+
+class MixedOnly
+  include Mixin
+	__meta[:dummy] << 5
+	__meta[:dummy] << 3 
+end
+
+class MixedOnly2
+  include Mixin
+end
+
+class MixedWithProp
+  include Mixin
+
+  prop_accessor :dummy
+end
+
+class Pure
+  prop_accessor :dummy
+end
+
+class Empty
+end
+
+class Base
+	prop_accessor :date
+	meta :dummy, [123]
+end
+
+class Child1 < Base
+	__meta[:dummy].first << 5
+	__meta[:dummy].first << 3 
+end
+
+class Child2 < Base
+end
+
+# Tests auto management.
+class TC_MixinsTest < ::Test::Unit::TestCase
+  def test_the_unmanaged
+    assert( Empty.respond_to?( :__props ) == false )
+    assert_respond_to( Pure.new, :dummy )
+  end
+
+  def test_manage_entities
+    assert_respond_to( Pure, :__props )
+    assert_respond_to( Pure.new, :dummy )
+  end
+
+  def test_managing_mixedonly_classes
+    assert_respond_to( MixedOnly.new, :date )
+  end
+
+  def test_managing_mixins
+    assert_respond_to( Mixin, :__props )
+  end
+
+  def test_managing_mixed_classes
+    obj = MixedWithProp.new
+    assert( obj.respond_to?( :date ) )
+    assert( obj.respond_to?( :dummy ) )
+  end
+
+	def test_crosspolination
+		assert_equal 3, MixedOnly.__meta[:dummy].size	
+		assert_equal 1, MixedOnly2.__meta[:dummy].size	
+		assert_equal 1, Mixin.__meta[:dummy].size	
+=begin
+		gmosx: THINK!
+		assert_equal 3, Child1.__meta[:dummy].first.size	
+		assert_equal 1, Child2.__meta[:dummy].first.size	
+		assert_equal 1, Base.__meta[:dummy].first.size	
+=end
+	end
+end

data/test/glue/tc_property_type_checking.rb

@@ -0,0 +1,35 @@
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'test/unit'
+
+require 'glue/logger'
+require 'glue/property'
+
+N::Property.type_checking = true
+
+module Test # :nodoc: all
+
+class Person 
+	prop_accessor :age, Fixnum
+	
+	def initialize(age = nil)
+		@age = age
+	end
+
+end
+
+class TC_PropertiesTypeChecking < Test::Unit::TestCase
+
+	def test_all
+		per = Person.new
+=begin
+		FIXME: does not work when run in the full test suite.
+		assert_raises(RuntimeError) {
+			per.age = 'Hello'
+		}
+=end
+	end
+	
+end
+
+end

data/test/glue/tc_strings.rb

@@ -0,0 +1,103 @@
+# :nodoc: all
+
+require "test/unit"
+require "glue/string"
+
+class TC_StringUtilsUtils < Test::Unit::TestCase
+	# :nodoc: all
+
+	def setup
+		@s = "this is any cool test"
+	end
+
+	def test_valid?
+		assert_equal(true, N::StringUtils.valid?("test"))
+		assert_equal(false, N::StringUtils.valid?(""))
+		assert_equal(false, N::StringUtils.valid?(nil))
+	end
+
+	def test_head
+		assert_equal(nil, N::StringUtils.head(nil))
+		assert_equal("this...", N::StringUtils.head(@s, 3))
+		assert_equal("this+++", N::StringUtils.head(@s, 3, false, "+++"))
+		assert_equal("thi...", N::StringUtils.head(@s, 3, true))
+		assert_equal("this is...", N::StringUtils.head(@s, 8))
+		assert_equal(nil, N::StringUtils.head(@s, 0))
+		assert_equal(nil, N::StringUtils.head(@s, 0, true))
+		assert_equal("this is...", N::StringUtils.head(@s, 8, true))
+	end
+
+	def test_rewrite
+		rules = [
+			[/\/\$/, "../n1"],
+			[/\$/, "../n1"],
+			[/^games/, "../../games"],
+			[/^tmp/, "/n/theseas/var/tmp"],
+		]
+		string = N::StringUtils.rewrite("games/arkanoid.html", rules)
+		assert_equal("../../games/arkanoid.html", string)
+		string = N::StringUtils.rewrite("tmp/garbage.html", rules)
+		assert_equal("/n/theseas/var/tmp/garbage.html", string)
+		string = N::StringUtils.rewrite("root/index.html", rules)
+		assert_equal("root/index.html", string)
+		assert_equal(nil, N::StringUtils.rewrite(nil, rules))
+		assert_equal("", N::StringUtils.rewrite("", rules))
+
+		assert_raises(ArgumentError) {
+			assert_equal("koko", N::StringUtils.rewrite("koko", nil))
+		}
+
+		# bug: should keep order
+		s = N::StringUtils.rewrite("/$/koko.html", rules)
+		assert_equal("../n1/koko.html", s)
+	end
+
+	def test_wrap
+		s = "1234567890abcdefghijklmnopqrstu"
+		r = "1234 5678 90ab cdef ghij klmn opqr stu"
+		assert_equal(r, N::StringUtils::wrap(s, 4, " "))
+
+		s = "111111111111111111111111111111111111111111111111"
+		r = "1111111111 1111111111 1111111111 1111111111 11111111"
+		assert_equal(r, N::StringUtils::wrap(s, 10, " "))
+
+		s = "jackdaws love my big sphinx of quartz"
+		r = "jackdaws love my big sphinx of quartz"
+		assert_equal(r, N::StringUtils::wrap(s, 10, " "))
+
+		s = "jackdaws love my big sphinx of quartz"
+		r = "jack daws love my big sphi nx of quar tz"
+		assert_equal(r, N::StringUtils::wrap(s, 4, " "))
+
+		s = "jack.daws love my big sphinx of quartz"
+		r = "jack .daw s love my big sphi nx of quar tz"
+		assert_equal(r, N::StringUtils::wrap(s, 4, " "))
+
+		assert_equal("", N::StringUtils::wrap("", 4, " "))
+		assert_equal(nil, N::StringUtils::wrap(nil, 4, " "))
+	end
+=begin
+	def test_rationalize_filename
+		filename = N::StringUtils.rationalize_filename("hello my friend!.gif")
+		assert_equal("hello-my-friend.gif", filename)
+		filename = N::StringUtils.rationalize_filename("���� ����.gif")
+		assert_equal("pame-pali.gif", filename)
+		filename = N::StringUtils.rationalize_filename("�� ���.gif")
+		assert_equal("ti-les.gif", filename)
+
+		# bug:
+		filename = N::StringUtils.rationalize_filename("image-(10).gif")
+		assert_equal("image-10.gif", filename)
+	end
+=end
+	def test_random_string
+		s1 = N::StringUtils.random()
+		s2 = N::StringUtils.random()
+		assert_not_equal(s1, s2)
+		assert(s1.size == s2.size)
+	end
+
+	def teardown
+		@s = nil
+	end
+end