nitro 0.7.0 → 0.8.0

data/lib/parts/README

@@ -0,0 +1,9 @@
+= Parts
+
+Parts are 'modules of functionality'. This is a higher level concept.
+Examples of parts could be a Forum,  a Content/User management system,
+etc.
+
+Nitro is a low level framework and does not include functionality parts
+in the standard distribution. Libraries of modules will be available from
+Navel and other vendors.

data/lib/parts/content.rb

@@ -1,10 +1,8 @@
-# = Content 
-#
-# Content Management Foundation
+# = Content
 #
-# code: 
-# * George Moschovitis  <gm@navel.gr>
+# Content management foundation.
 #
+# George Moschovitis  <gm@navel.gr>
 # (c) 2004 Navel, all rights reserved.
 # $Id$
 
@@ -23,15 +21,31 @@ module BaseContent
 	prop_accessor :body, String, :markup => true, :ui => :textarea
 end
 
+# = CreateTime mixin.
+#
+module CreateTime
+	prop_accessor :create_time, Time
+	prop_accessor :update_time, Time
+
+	def og_pre_insert(conn)
+		@create_time = @update_time = Time.now
+	end
+	
+	def og_pre_update(conn)
+		@update_time = Time.now
+	end
+end
+
 # = Content
 #
 # The foundamental Content Unit.
-#
 #--
 # THINK: rename this to Entity?
 #++
+
 module Content
 	include N::BaseContent
+	prop_accessor :name, String
 	prop_accessor :ctime, Time
 	prop_accessor :mtime, Time
 
@@ -41,7 +55,7 @@ module Content
 end
 
 # = Category
-#
+
 class Category 
 	include N::BaseContent
 end
@@ -49,7 +63,7 @@ end
 # = ACL
 #
 # Unix style permissions.
-#
+
 module ACL
 	# bits:
 	# 0, 1, 2: owner read, write, execute
@@ -58,4 +72,4 @@ module ACL
 	prop_accessor :permissions
 end
 
-end # module
+end

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

@@ -1,17 +1,15 @@
-# :nodoc: all
-
 require "test/unit"
 require "glue/cache"
 
-class TC_N_Utils_Cache < Test::Unit::TestCase
+class TC_Glue_Cache < Test::Unit::TestCase
 	# :nodoc: all
 
 	class Dummy
-		include G::LRUCache::Item
+		include N::LRUCache::Item
 	end
 	
 	def setup
-		@cache = G::LRUCache.new(maxitems = 3)
+		@cache = N::LRUCache.new(maxitems = 3)
 	end
 
 	def teardown
@@ -44,4 +42,4 @@ class TC_N_Utils_Cache < Test::Unit::TestCase
 		assert_equal(d4, @cache.first)		
 	end
 
-end
+end

data/test/glue/tc_hash.rb

@@ -7,7 +7,7 @@ class TC_N2_Utils_Cache < Test::Unit::TestCase
 	# :nodoc: all
 
 	def setup
-		@safe_cache = G::SafeHash.new(Hash.new)
+		@safe_cache = N::SafeHash.new(Hash.new)
 	end
 
 	def teardown
@@ -35,4 +35,4 @@ class TC_N2_Utils_Cache < Test::Unit::TestCase
 		assert_equal(3, @safe_cache.values.size)
 	end
 
-end
+end

data/test/glue/tc_logger.rb

@@ -0,0 +1,36 @@
+$:.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)
+	end
+
+end

data/test/glue/tc_numbers.rb

@@ -13,8 +13,8 @@ class TC_N_NumberUtils < Test::Unit::TestCase
 	end
 
 	def test_ceil_multiple
-		assert_equal(20, G::NumberUtils.ceil_multiple(15, 10))
-		assert_equal(10, G::NumberUtils.ceil_multiple(1, 10))
+		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_mixins.rb

@@ -1,11 +1,11 @@
 #! /usr/bin/env ruby
 # vim:sw=2:ai
 
-# code: 
-# * Thomas Quas  <tquas@yahoo.com>
-# * George Moschovitis  <gm@navel.gr>
-#
+#--
+# Thomas Quas  <tquas@yahoo.com>
+# George Moschovitis  <gm@navel.gr>
 # $Id$
+#++
 
 $LOAD_PATH.unshift 'lib'
 
@@ -14,9 +14,16 @@ 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
 
@@ -33,6 +40,18 @@ 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
@@ -59,4 +78,16 @@ class TC_MixinsTest < ::Test::Unit::TestCase
     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_strings.rb

@@ -11,20 +11,20 @@ class TC_StringUtilsUtils < Test::Unit::TestCase
 	end
 
 	def test_valid?
-		assert_equal(true, G::StringUtils.valid?("test"))
-		assert_equal(false, G::StringUtils.valid?(""))
-		assert_equal(false, G::StringUtils.valid?(nil))
+		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, G::StringUtils.head(nil))
-		assert_equal("this...", G::StringUtils.head(@s, 3))
-		assert_equal("this+++", G::StringUtils.head(@s, 3, false, "+++"))
-		assert_equal("thi...", G::StringUtils.head(@s, 3, true))
-		assert_equal("this is...", G::StringUtils.head(@s, 8))
-		assert_equal(nil, G::StringUtils.head(@s, 0))
-		assert_equal(nil, G::StringUtils.head(@s, 0, true))
-		assert_equal("this is...", G::StringUtils.head(@s, 8, true))
+		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
@@ -34,65 +34,65 @@ class TC_StringUtilsUtils < Test::Unit::TestCase
 			[/^games/, "../../games"],
 			[/^tmp/, "/n/theseas/var/tmp"],
 		]
-		string = G::StringUtils.rewrite("games/arkanoid.html", rules)
+		string = N::StringUtils.rewrite("games/arkanoid.html", rules)
 		assert_equal("../../games/arkanoid.html", string)
-		string = G::StringUtils.rewrite("tmp/garbage.html", rules)
+		string = N::StringUtils.rewrite("tmp/garbage.html", rules)
 		assert_equal("/n/theseas/var/tmp/garbage.html", string)
-		string = G::StringUtils.rewrite("root/index.html", rules)
+		string = N::StringUtils.rewrite("root/index.html", rules)
 		assert_equal("root/index.html", string)
-		assert_equal(nil, G::StringUtils.rewrite(nil, rules))
-		assert_equal("", G::StringUtils.rewrite("", rules))
+		assert_equal(nil, N::StringUtils.rewrite(nil, rules))
+		assert_equal("", N::StringUtils.rewrite("", rules))
 
 		assert_raises(ArgumentError) {
-			assert_equal("koko", G::StringUtils.rewrite("koko", nil))
+			assert_equal("koko", N::StringUtils.rewrite("koko", nil))
 		}
 
 		# bug: should keep order
-		s = G::StringUtils.rewrite("/$/koko.html", rules)
+		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, G::StringUtils::wrap(s, 4, " "))
+		assert_equal(r, N::StringUtils::wrap(s, 4, " "))
 
 		s = "111111111111111111111111111111111111111111111111"
 		r = "1111111111 1111111111 1111111111 1111111111 11111111"
-		assert_equal(r, G::StringUtils::wrap(s, 10, " "))
+		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, G::StringUtils::wrap(s, 10, " "))
+		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, G::StringUtils::wrap(s, 4, " "))
+		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, G::StringUtils::wrap(s, 4, " "))
+		assert_equal(r, N::StringUtils::wrap(s, 4, " "))
 
-		assert_equal("", G::StringUtils::wrap("", 4, " "))
-		assert_equal(nil, G::StringUtils::wrap(nil, 4, " "))
+		assert_equal("", N::StringUtils::wrap("", 4, " "))
+		assert_equal(nil, N::StringUtils::wrap(nil, 4, " "))
 	end
 	
 	def test_rationalize_filename
-		filename = G::StringUtils.rationalize_filename("hello my friend!.gif")
+		filename = N::StringUtils.rationalize_filename("hello my friend!.gif")
 		assert_equal("hello-my-friend.gif", filename)
-		filename = G::StringUtils.rationalize_filename("���� ����.gif")
+		filename = N::StringUtils.rationalize_filename("���� ����.gif")
 		assert_equal("pame-pali.gif", filename)
-		filename = G::StringUtils.rationalize_filename("�� ���.gif")
+		filename = N::StringUtils.rationalize_filename("�� ���.gif")
 		assert_equal("ti-les.gif", filename)
 
 		# bug:
-		filename = G::StringUtils.rationalize_filename("image-(10).gif")
+		filename = N::StringUtils.rationalize_filename("image-(10).gif")
 		assert_equal("image-10.gif", filename)
 	end
 
 	def test_random_string
-		s1 = G::StringUtils.random()
-		s2 = G::StringUtils.random()
+		s1 = N::StringUtils.random()
+		s2 = N::StringUtils.random()
 		assert_not_equal(s1, s2)
 		assert(s1.size == s2.size)
 	end
@@ -100,4 +100,4 @@ class TC_StringUtilsUtils < Test::Unit::TestCase
 	def teardown
 		@s = nil
 	end
-end
+end

data/test/glue/tc_validation.rb

@@ -0,0 +1,186 @@
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'test/unit'
+
+require 'glue'
+require 'glue/validation'
+
+class TC_Validation < Test::Unit::TestCase # :nodoc: all
+
+	# Override the default error message
+	N::Validation::Errors.invalid_format = 'INVALID'
+
+	module Mixin
+		prop_accessor :value, String
+		validate_format :value, :format => /123/, :msg => 'mixin error'
+	end
+	
+	class User
+		include Mixin
+
+		prop_accessor :name, String
+		validate_format :name, :format => /Leo/, :msg => 'per class override'
+	end
+	
+	class Article
+		prop_accessor :name, String
+		validate_format :name, :format => /news/
+	end
+
+	class Dummy1
+		prop_accessor :test, Fixnum
+		prop_accessor :str, String
+		validate_value :test, :str
+	end
+
+	class Dummy2 
+		prop_accessor :password, String
+		validate_confirmation :password
+	end
+
+	class Dummy3 
+		prop_accessor :vmin, String
+		validate_length :vmin, :min => 2
+		
+		prop_accessor :vmax, String
+		validate_length :vmax, :max => 3, :msg => 'LOOONG'
+
+		prop_accessor :vran, String
+		validate_length :vran, :range => 2..4, :msg_long => 'argh'
+
+		prop_accessor :vlen, String
+		validate_length :vlen, :length => 3, :msg => 'argh'
+	end
+
+	class Dummy4
+		prop_accessor :sex, String
+		validate_inclusion :sex, :in => %w{ Male Female }, :msg => 'huh?'
+
+		prop_accessor :age, Fixnum
+		validate_inclusion :age, :in => 5..99
+	end
+
+	# bug
+
+	class NoProp
+		include Mixin
+		validate_length :value, :min => 3
+	end
+		
+	def test_validate_value
+		d = Dummy1.new
+		
+		assert !d.valid?
+		assert_equal 2, d.errors.count
+		d.test = 1
+		assert !d.valid?
+		assert_equal 1, d.errors.count
+		d.str = 'yeah'
+		assert d.valid?
+	end
+
+	def test_validate_confirmation
+		d = Dummy2.new
+
+		assert_respond_to d, :password_confirmation
+
+		d.password = 'hello'
+		assert !d.valid?
+		d.password_confirmation = 'hel'
+		assert !d.valid?
+		d.password_confirmation = 'hello'
+		assert d.valid?
+	end
+
+	def test_validate_format
+		u = User.new
+
+		u.value = '1234'
+
+		u.name = 'George'
+		assert !u.valid?
+
+		assert_equal 'per class override', u.errors[:name].first
+
+		u.name = 'Leonard'
+		assert u.valid?
+
+		a = Article.new
+
+		a.name = 'In the news'
+		assert a.valid?
+
+		a.name = 'Sports'
+		assert !a.valid?
+		
+		assert_equal 1, a.errors.count
+		assert_equal 1, a.errors.on(:name).size
+		assert_kind_of Array, a.errors[:name]
+		
+		assert_equal 'INVALID', a.errors[:name].first
+
+		# test mixin
+
+		u.value = '543'
+		assert !u.valid?
+	end
+
+	def test_validate_length
+		d = Dummy3.new
+
+		d.vmin = 'q'
+		d.vmax = '2'
+		d.vlen = '123'
+		d.vran = '123'
+
+		assert !d.valid?
+		assert_equal 'Too short, must be more than 2 characters long', d.errors.on(:vmin).first
+		d.vmin = 'longer'
+		assert d.valid?
+
+		d.vmax = 'loooooooooooong'
+		assert !d.valid?
+		assert_equal 'LOOONG', d.errors.on(:vmax).first
+
+		d.vmax = nil
+		assert !d.valid?
+		assert_equal 'No value provided', d.errors.on(:vmax).first
+
+		d.vlen = '12'
+		assert !d.valid?
+		assert_equal 'argh', d.errors.on(:vlen).first
+		
+		d.vlen = '1234565'
+		assert !d.valid?
+		
+		d.vran = '1'
+		assert !d.valid?
+		assert_equal 'Too short, must be more than 2 characters long', d.errors.on(:vran).first
+
+		d.vran = '11111111'
+		assert !d.valid?
+		assert_equal 'argh', d.errors.on(:vran).first
+	end
+
+	def test_validate_inclusion
+		d = Dummy4.new
+
+		d.sex = 'Alien'
+		d.age = 1
+
+		assert !d.valid?
+		assert_equal 2, d.errors.count
+
+		d.sex = 'Male'
+		assert !d.valid?
+		assert_equal 1, d.errors.count
+
+		d.age = 110
+		assert !d.valid?
+		assert_equal 1, d.errors.count
+
+		d.age = 90
+		assert d.valid?
+	end
+
+end