nitro 0.1.2 → 0.2.0

data/lib/n/utils/html.rb

@@ -1,9 +1,10 @@
-# = HTML utilities collection
-#
-# code:: gmosx, tkout, ekarak
+# code:
+#	* George Moschovitis  <gm@navel.gr>
+# * Anastasios Koutoumanos  <ak@navel.gr>
+# * Elias Karakoulakis  <ekarak@ktismata.com>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: html.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: html.rb 101 2004-10-22 12:35:39Z gmosx $
 
 require "uri"
 require "cgi"
@@ -12,6 +13,8 @@ module N;
 
 # = HtmlUtils
 #
+# HTML utilities collection.
+#
 # === Design:
 #
 # Implement as a module to avoid class polution. You can still Ruby's
@@ -23,6 +26,7 @@ module N;
 # code
 #
 # === TODO:
+#
 # - add xxx! versions
 #
 module HtmlUtils

data/lib/n/utils/http.rb

@@ -1,11 +1,9 @@
-# = HTTP utilities collection
-#
-# Some older functionality is removed, use open-uri instead.
-#
-# code:: tml, drak, ekarak
+# code:
+# * George Moschovitis  <gm@navel.gr>
+# * Elias Karakoulakis  <ekarak@ktismata.com>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: http.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: http.rb 101 2004-10-22 12:35:39Z gmosx $
 
 require "uri"
 require "cgi"
@@ -13,6 +11,10 @@ require "net/http"
 
 module N
 
+# = HTTP
+# 
+# HTTP protocol constants.
+#
 module HTTP
 	# HTTP protocol EOL constants
 
@@ -73,6 +75,8 @@ end
 
 # = HttpUtils
 #
+# HTTP utilities collection
+#
 module HttpUtils
 
 	# Converts the given time object to an http time string.

data/lib/n/utils/mail.rb

@@ -1,17 +1,17 @@
-# = Mail utilities
-#
-# A thin wrapper arround net/smtp
-#
 # code:
-# George Moschovitis  <gm@navel.gr>
+# * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: mail.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: mail.rb 101 2004-10-22 12:35:39Z gmosx $
 
 require "net/smtp"
 
 module N
 
+# = Mail
+#
+# A thin wrapper arround net/smtp
+#
 module Mail
 	
 	# Send an email

data/lib/n/utils/number.rb

@@ -1,9 +1,8 @@
-# = General number utilities collection
-#
-# code: gmosx
+# code:
+# * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: number.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: number.rb 101 2004-10-22 12:35:39Z gmosx $
 
 module N;
 

data/lib/n/utils/pool.rb

@@ -1,11 +1,8 @@
-# = Pool
-#
-# Generalized object pool implementation.
-#
-# code: gmosx
+# code:
+# * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: pool.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: pool.rb 101 2004-10-22 12:35:39Z gmosx $
 
 require "thread"
 require "monitor"
@@ -14,8 +11,8 @@ module N
 
 # = Pool
 #
-# Implemente a thread safe stack. Exclusive locking is needed
-# both for push and pop. 
+# Generalized object pool implementation. Implemented as a thread 
+# safe stack. Exclusive locking is needed both for push and pop. 
 #
 # INVESTIGATE: Could use the SizedQueue/Queue.
 #

data/lib/n/utils/string.rb

@@ -1,9 +1,10 @@
-# = General string utilities collection
-#
-# code: gmosx, drak, ekarak
+# code: 
+# * George Moschovitis  <gm@navel.gr>
+# * Anastasios Koutoumanos  <ak@navel.gr>
+# * Elias Karakoulakis  <ekarak@ktismata.com>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: string.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: string.rb 106 2004-10-25 11:31:11Z gmosx $
 
 require "uri"
 
@@ -11,6 +12,8 @@ module N;
 
 # = StringUtils
 #
+# General string utilities collection.
+#
 # === Design:
 #
 # Implement as a module to avoid class polution. You can
@@ -153,6 +156,8 @@ module StringUtils
 		return wrapped_string
 	end
 
+	EXTENSION_REGEX = /\.(\w+)$/
+
 	# extracts the extension from a path or filename.
 	#
 	# === Input:
@@ -160,17 +165,14 @@ module StringUtils
 	#
 	# === Output:
 	# the extension of the filename
-	# returns empty string if no exception
+	# returns nil if no exception
 	# the extension is DOWNCASED!
-
-	EXTENSION_REGEX = /\.(\w+)$/
-
+	#
 	def self.extension_from_path(path)
 		if md = EXTENSION_REGEX.match(path)
 			return md[1].downcase
 		else
-			# gmosx: "" is safer, no??? and it is logical too.
-			return ""
+			return nil
 		end
 	end
 

data/lib/n/utils/template.rb

@@ -1,9 +1,5 @@
-# = Template
-#
-# A simple templating mechanism.
-#
 # code:
-# George Moschovitis  <gm@navel.gr>
+# * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
 # $Id$
@@ -12,6 +8,8 @@ module N;
 
 # = Template
 #
+# A simple templating mechanism.
+#
 class Template
 	attr_accessor :body
 	

data/lib/n/utils/time.rb

@@ -1,9 +1,8 @@
-# = General time utilities collection
-#
-# code: gmosx
+# code: 
+# * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: time.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: time.rb 101 2004-10-22 12:35:39Z gmosx $
 
 require "time.rb"
 
@@ -11,6 +10,8 @@ module N;
 
 # = TimeUtils
 #
+# General time utilities collection
+#
 # === Design:
 #
 # Implement as a module to avoid class polution. You can
@@ -29,7 +30,7 @@ module TimeUtils
 	NEVER = Time.mktime(2038)
 	ZERO = Time.mktime(1972)
 
-	# 
+	# Convert the time to a nice String representation. 
 	#	
 	def self.date_time(time)
 		return nil unless time 
@@ -89,3 +90,4 @@ module TimeUtils
 end
 
 end # module
+

data/lib/n/utils/uri.rb

@@ -1,9 +1,8 @@
-# = URI utilities collection
-#
-# code: gmosx
+# code: 
+# * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: uri.rb 71 2004-10-18 10:50:22Z gmosx $
+# $Id: uri.rb 101 2004-10-22 12:35:39Z gmosx $
 
 require "uri"
 require "cgi"
@@ -14,6 +13,8 @@ module N
 
 # = UriUtils
 #
+# URI utilities collection
+#
 # === Design:
 #
 # Implement as a module to avoid class polution. You can still

data/lib/p/README

@@ -0,0 +1 @@
+Add Web Application Framework parts in this directory

data/lib/xsl/xforms.xsl

@@ -3,6 +3,8 @@
 <!--
 gmosx: 
 XForms related templates
+
+NOT IMPLEMENTED yet.
 -->
 
 <xsl:stylesheet

data/test/n/app/tc_cookie.rb

@@ -0,0 +1,34 @@
+# :nodoc: all
+
+require "test/unit"
+
+require "n/app/cookie"
+
+include N::App
+
+
+class TC_Cookie < Test::Unit::TestCase
+	# :nodoc: all
+
+	def setup
+	end
+
+	def teardown
+	end
+
+	def test_initialize
+		# bug: default path should be /
+		cookie = Cookie.new("nsid", "24324234234234234")
+		assert_equal("/", cookie.path)
+	end
+
+	def test_parse
+		res = Cookie.parse("nsid=293230807; nauth=gmosx:meMXs0ifW7JBQ; koko=123&345")
+
+		assert_equal("293230807", res["nsid"][0])
+		assert_equal("gmosx:meMXs0ifW7JBQ", res["nauth"][0])
+		assert_equal("123", res["koko"][0])
+		assert_equal("345", res["koko"][1])
+	end
+
+end

data/test/n/app/tc_request.rb

@@ -0,0 +1,70 @@
+# :nodoc: all
+
+require "test/unit"
+
+require "n/logger"; $log = Logger.new(STDERR) unless $log
+
+require "n/app/cookie"
+require "n/app/request"
+
+include N::App
+
+class TC_Request < Test::Unit::TestCase
+	# :nodoc: all
+
+	def setup
+	end
+
+	def teardown
+	end
+=begin
+	def test_parse
+		request = N::App::Request.new
+
+		request.parse_cookies("nsid=293230807; nauth=gmosx:meMXs0ifW7JBQ; koko=123&345")
+
+		# empty cookie should be converted to nil.
+		assert_nil(request.get_cookie("nonexisting-cookie"))
+
+		assert_equal("293230807", request.get_cookie("nsid"))
+		assert_equal("gmosx:meMXs0ifW7JBQ", request.get_cookie("nauth"))
+
+		# multivalued cookie
+		assert_equal(2, request.get_cookie("koko").length)
+
+		assert_equal("123", request.get_cookie("koko")[0])
+		assert_equal("345", request.get_cookie("koko")[1])
+	end
+=end
+	def test_get_cookie
+		# bug: call get_cookie w/o cookies.
+		request = N::App::Request.new
+		request.in_cookies = nil
+		assert_nothing_raised {
+			request.get_cookie("test")
+		}
+	end
+
+	def test_tx
+		request = N::App::Request.new
+		request.session = {}
+		request.parameters = {}
+		
+		request.new_tx_entity!(1)
+		assert_equal(1, request.session["TXSEQ"])
+		
+		request.new_tx_entity!("test")
+		assert_equal(2, request.session["TXSEQ"])
+		
+		assert_equal("TX2", request["txid"])
+		
+		assert_equal("test", request.get_tx_entity())
+		request.update_tx_entity!("changed")
+		assert_equal("changed", request.get_tx_entity())
+		assert_equal(2, request.session["TXSEQ"])
+		
+		request.del_tx_entity!;
+		assert_equal(nil, request.get_tx_entity())
+	end
+	
+end

data/test/n/app/tc_requestpart.rb

@@ -0,0 +1,28 @@
+# :nodoc: all
+
+require "test/unit"
+
+require "n/app/cookie"
+require "n/app/request"
+
+include N::App
+
+class TC_N2_Web_Server_RequestPart < Test::Unit::TestCase # :nodoc: all
+	# :nodoc: all
+
+	def setup
+	end
+
+	def teardown
+	end
+
+	def test_filename
+		part = RequestPart.new("/home/gmosx/files/pic.gif", "tmp/1232132.0", nil)
+		assert_equal("pic.gif", part.filename)
+
+		# bug: handle \ as separator
+		part = RequestPart.new('C:\gmosx\files\pic.gif', "tmp/1232132.0", nil)
+		assert_equal("pic.gif", part.filename)
+	end
+
+end

data/test/n/app/tc_session.rb

@@ -0,0 +1,34 @@
+# :nodoc: all
+
+require "test/unit"
+
+require "n/app/session"
+
+include N::App
+
+class TC_N2_Web_Server_Session < Test::Unit::TestCase
+	# :nodoc: all
+
+	def setup
+	end
+
+	def teardown
+	end
+
+	def test_calculate_id
+		id1 = Session.calculate_id
+		id2 = Session.calculate_id
+		id3 = Session.calculate_id
+		id4 = Session.calculate_id
+		id5 = Session.calculate_id
+		id6 = Session.calculate_id
+
+		assert_not_equal(id1, id2)
+		assert_not_equal(id2, id3)
+		assert_not_equal(id3, id4)
+		assert_not_equal(id4, id5)
+		assert_not_equal(id5, id6)
+		assert_not_equal(id1, id6)
+	end
+
+end

data/test/n/tc_db.rb

@@ -0,0 +1,223 @@
+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"
+
+	# a marshaled property
+	prop_accessor Array, :options
+	}
+	
+	def initialize
+		@create_time = Time.now
+		@options = []
+	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 => "psql",
+			:address => "localhost",
+			:database => "test",
+			:user => "postgres",
+			: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"
+		@msg2.owner_oid = 2
+	end
+
+	def teardown
+		@art = @msg1 = @msg2 = nil
+		$db.shutdown()
+	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)
+			@msg1.options << "test"
+			@msg1.options << "value"
+			@msg1.options << "exit"
+			@msg2.set_parent(@art)
+			
+			db << @msg1
+			db << @msg2
+		
+			assert_equal(2, @msg2.oid)
+
+			# check marshaling
+
+			msg = db.get(1, Message)
+			assert_equal("value", msg.options[1]) 
+			# 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