nitro 0.12.0 → 0.13.0

data/test/glue/tc_property_mixins.rb

@@ -1,93 +0,0 @@
-#! /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

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

@@ -1,103 +0,0 @@
-# :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

data/test/glue/tc_validation.rb

@@ -1,188 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-
-require 'glue'
-require 'glue/validation'
-
-Property.type_checking = false
-
-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

data/test/og/tc_filesys.rb

@@ -1,83 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-require 'ostruct'
-
-require 'og'
-require 'og/adapters/filesys'
-
-class TC_OgFilesys < Test::Unit::TestCase # :nodoc: all
-	include N, Og
-
-	# Forward declaration.
-
-	class Comment; end
-	
-	class Article
-		prop_accessor :name, String
-		prop_accessor :age, Fixnum
-		has_many :comments, Comment
-
-		def initialize (name = nil, age = nil)
-			@name, @age = name, age
-		end
-	end
-
-	class Comment
-		prop_accessor :text, String
-		belongs_to :article, Article
-
-		def initialize(text = nil)
-			@text = text
-		end
-	end
-
-	def setup
-		config = {
-			:adapter => 'filesys',
-			:database => 'fstest',
-		}
-		
-		$DBG = true
-
-		Og::Database.drop_db!(config)
-		@og = Og::Database.new(config)
-	end
-
-	def teardown
-		@og.shutdown
-	end
-
-	def test_all
-		a = Article.new('gmosx', 30)
-		a.save!
-
-		a1 = Article[1]
-
-		assert_equal 'gmosx', a1.name
-		assert_equal 30, a1.age
-		assert_equal 1, a1.oid
-
-		Article.create('drak', 12)
-		Article.create('ekarak', 34)
-		Article.create('mario', 53)
-		Article.create('elathan', 34)
-=begin
-		articles = Article.all
-
-		assert_equal 5, articles.size
-=end
-		a3 = Article[3]
-
-		assert_equal 'ekarak', a3.name
-
-		c1 = Comment.new('a comment')
-		c1.save!
-		a3.add_comment(c1)
-=begin
-		a5 = Article[3]
-		assert_equal 1, a5.comments.size
-=end
-	end
-
-end