nitro 0.1.2 → 0.2.0

data/test/n/tc_db_mysql.rb

@@ -0,0 +1,241 @@
+require "test/unit"
+
+require "n/logger"; $log = Logger.new(STDERR) unless $log
+
+require "n/db"
+
+module Test # :nodoc: all
+
+class Article
+	manage {
+	include N::Entity
+	
+	prop_accessor String, :title, :body
+	}
+
+	def self.__descendants_classes
+		[Message]
+	end 	
+end
+
+class Message
+	manage {
+	include N::Entity
+	include N::Named
+	include N::Child
+	include N::ParentClass
+	
+	include N::Sequenced
+	
+	prop_accessor Fixnum, :owner_oid
+	prop_accessor Fixnum, "smallint", :val1, :val2, :val3
+	prop_accessor String, :title, :body
+	prop_accessor String, "text NOT NULL", :test
+	prop_accessor Fixnum, :count
+	prop_accessor Time, :create_time	
+	sql_index :owner_oid,  :pid
+	}
+	
+	def initialize
+		@create_time = Time.now
+	end
+
+end
+
+class SubMessage < Message
+	manage {
+	# duplicate definition
+	prop_accessor Float, :count
+	}
+end
+
+class TC_N_Db < Test::Unit::TestCase
+
+	def setup
+		$db = N::Db.new(
+			:backend => "mysql",
+			:address => "localhost",
+			:database => "test",
+			:user => "root",
+			:password => "navelrulez",
+			:connection_count => 2
+		)	
+		
+		@art = Article.new()
+		@art.title = "The parent"
+		@art.body = "The body"
+
+		@msg1 = Message.new()
+		@msg1.name = "name1"
+		@msg1.body = "body1"
+		@msg1.title = "title1"
+		@msg1.count = "22"
+		@msg1.owner_oid = 1
+
+		@msg2 = Message.new()
+		@msg2.name = "name2"
+		@msg2.body = "body2"
+		@msg2.title = "title2"
+		@msg2.count = "22"
+		@msg1.owner_oid = 2
+	end
+
+	def teardown
+		@art = @msg1 = @msg2 = nil
+		$db.shutdown()
+	end
+
+	# gmosx: move to tc-properties
+	#
+	def test_props
+		
+		# check multiple prop
+		
+		assert_equal("SMALLINT", Message.__props.find { |p| :val2 == p.symbol }.sql_type)
+
+		# bug: props for subclasses.
+
+		assert(SubMessage.__props)
+		assert_equal(Message.__props.size(), SubMessage.__props.size())
+
+		# bug: duplicate definition 			
+	
+		assert_equal(Float, SubMessage.__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
+	
+	# gmosx: hmm, implemented in one method to enforce order.
+	#	
+	def test_all
+		$db.open { |db|
+			
+			# check exception, cleanup test db.
+
+#			db.drop_schema()			
+			db.drop_table(Article)
+			db.drop_table(Message)
+			
+#			db.create_schema()
+			
+			# bug: get methods without entity table
+			
+			db.get(1, Message)
+			
+			# check put
+		
+			db << @art
+			# one oid is missed when creating the table for the first time!
+			assert_equal(1, @art.oid)
+			
+			art2 = Article.new()
+			art2.title = "Another test"
+			db << art2
+			
+			@msg1.set_parent(@art)
+			@msg2.set_parent(@art)
+			
+			db << @msg1
+			db << @msg2
+		
+			$log.error "#{@msg2.oid}"	
+			assert_equal(2, @msg2.oid)
+
+			# check children.
+			
+			msgs = db.children(@art, Message, "ORDER BY count")
+			assert_equal(2, msgs.size())
+			assert_equal(Message, msgs[0].class)
+			
+			assert_equal(2, db.count_children(@art, Message))
+			
+			# bug: pid was string
+			
+			assert_equal(@art.oid, msgs[0].pid)
+			
+			# check updates 
+			
+			@art.title = "CHANGED TITLE"
+			db.update_properties("title='#{@art.title}'", @art)
+			
+			art2 = db.get(@art.oid, Article)
+			
+			assert_equal(art2.title, @art.title)
+			
+			@art.body = "CHANGED BODY"
+			@art.title = "CHANGED AGAIN"
+			db << @art
+			
+			art2 = db.get(@art.oid, Article)
+			assert_equal(art2.body, @art.body)
+			assert_equal(art2.title, "CHANGED AGAIN")
+			
+			# check timestamp
+			
+			now = Time.now()
+			@msg1.create_time = now
+			db << @msg1
+			
+			msg = db.get(@msg1.oid, Message)
+	
+			# bug: 		
+#			assert_equal(msg.create_time, @msg1.create_time)
+			assert_equal(msg.create_time.to_i(), @msg1.create_time.to_i())
+
+#			gmosx: not implemented in postgres driver.
+#			classes = db.managed_classes()
+#			assert_equal(2, classes.size())
+			
+			# get_by_name
+			
+			msg = db.get_by_name("name2", Message)
+			assert_equal("body2", msg.body)
+			
+			# pclass
+			
+			assert_equal(@art.class.to_s(), msg.pclass)
+			
+		}
+		
+		# deserialize = false
+
+		$db.open(deserialize = false) { |db|
+			
+			assert_equal(false, db.deserialize)
+			
+			msg = db.get_by_name("name2", Message)
+			assert_equal(Array, msg.class)
+			
+			art = db.get(2, Article)
+			assert_equal(Array, art.class)
+			
+		}				
+
+		# cascade delete
+		
+		msgs = $db.children(0, Message)
+		assert_equal(2, msgs.size())
+		
+		$db.delete(@art)
+		
+		msgs = $db.children(0, Message)
+		assert_equal(nil, msgs)
+		
+	end
+
+	def test_sql_table_to_class
+#		assert_equal(Article, 
+#				N::DbUtils.sql_table_to_class(N::DbUtils.sql_table(Article)))
+	end
+
+end
+
+end

data/test/n/tc_events.rb

@@ -0,0 +1,44 @@
+# :nodoc: all
+
+require "test/unit"
+require "n/events"
+
+class TC_Events < Test::Unit::TestCase
+	# :nodoc: all
+	include N
+	
+	def setup
+		$flag = 0
+		$flag2 = 1
+		@events = N::EventManager.new
+	end
+
+	def teardown
+		@events = nil
+	end
+
+	def test_events
+		@events.add_handler("my.event", "test1", proc { |val|
+			$flag = val
+		})
+		@events.add_handler("my.event", "test2", proc { |val|
+			$flag2 += val
+		})
+
+		@events.fire("my.event", 5)
+
+		assert_equal(5, $flag)
+		assert_equal(6, $flag2)
+
+		@events.fire("my.event", 5)
+
+		assert_equal(11, $flag2)
+
+		# test remove handler
+
+		@events.remove_handler("my.event", "test2")
+		@events.fire("my.event", 5)
+
+		assert_equal(11, $flag2)
+	end
+end

data/test/n/tc_properties.rb

@@ -0,0 +1,68 @@
+require "test/unit"
+
+require "n/logger"; $log = Logger.new(STDERR) unless $log
+
+require "n/properties"
+
+module Test # :nodoc: all
+
+class Message
+	prop_accessor Fixnum, :owner_oid
+	prop_accessor Fixnum, "smallint", :val1, :val2, :val3
+	prop_accessor String, :title, :body
+	prop_accessor String, "char(10) NOT NULL", :test
+	prop_accessor Fixnum, :count
+	prop_accessor Time, :create_time	
+
+	# a marshaled property
+	prop_accessor Array, :options
+	
+	def initialize
+		@create_time = Time.now
+		@options = []
+	end
+
+end
+
+class SubMessage < Message
+	inherit_meta(superclass)
+	# duplicate definition
+	prop_accessor Float, :count
+end
+
+class TC_N_Properties < Test::Unit::TestCase
+
+	def setup
+		@msg1 = Message.new
+	end
+
+	def teardown
+		@msg1 = nil
+	end
+
+	def test_props
+		
+
+		# bug: props for subclasses.
+
+		assert(SubMessage.__props)
+		assert_equal(Message.__props.size(), SubMessage.__props.size())
+
+		# bug: duplicate definition 			
+	
+		assert_equal(Float, SubMessage.__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
+	
+end
+
+end # module

data/test/n/tc_sitemap.rb

@@ -0,0 +1,37 @@
+# :nodoc: all
+
+require "test/unit"
+
+require "n/logger"; $log = Logger.new(STDERR) unless $log
+
+require "n/sitemap"
+
+class TC_N_SiteMap < Test::Unit::TestCase
+	include N
+	
+	def setup
+		$n0 = SitePage.new "/index.sx", "Joy", nil, realm = "main-realm"
+		$n1 = SitePage.new "/id/index.sx", "Id", $n0
+		$n2 = SitePage.new "/id/page.sx", "My page", $n1
+		$n1 = SitePage.new "/id/login.sx", "Login", $n0	
+	end
+
+	def teardown
+		$sitemap = nil
+	end
+
+	def test_all
+		assert_equal(3, $sitemap.path("/id/page.sx").size())
+		
+		# bug: wrong order
+		assert_equal("Joy > Id > My page", $sitemap.str_path("/id/page.sx"))
+		
+		# bug: wrong hrefs
+		assert_equal('<a href="/index.sx">Joy</a> > <a href="/id/index.sx">Id</a> > My page', $sitemap.linked_path("/id/page.sx"))
+
+		# bug: realm should be inherited from parent
+		setup	
+		assert_equal($n2.realm, $n1.realm)
+	end
+	
+end

data/test/n/ui/tc_pager.rb

@@ -0,0 +1,52 @@
+# :nodoc: all
+
+require "test/unit"
+
+require "n/logger"; $log = Logger.new(STDERR) unless $log
+
+require "n/db"
+require "n/ui/pager"
+
+class RequestMock < Hash
+	def get(k, default)
+		return self[k] || default
+	end
+end
+
+class TC_N_UI_Pager < Test::Unit::TestCase
+
+	def setup
+=begin
+		$db = N::Db.new(
+			:addres => "localhost",
+			:database => "testdb",
+			:user => "root",
+		#	:password => "navelrulez",
+			:connection_count => 2
+		)	
+=end
+	end
+
+	def teardown
+#		$db.shutdown()
+	end
+
+	def test_all
+		items = [1, 2, 3, 4, 5, 6, 7, 8, 9]
+		count = items.size()
+		
+		request = RequestMock.new()
+		pager = N::UI::Pager.new("tst", request, 2, items)
+		
+		assert_equal(pager.total_count, count)
+		
+		# bug: bad rounding.
+		
+		assert_equal(5, pager.page_count)
+		
+		# bug: FIXME
+		# assert_equal(2, items.size())
+		
+	end
+	
+end

data/test/n/utils/tc_cache.rb

@@ -0,0 +1,47 @@
+# :nodoc: all
+
+require "test/unit"
+require "n/utils/cache"
+
+class TC_N_Utils_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