nitro 0.12.0 → 0.13.0

data/test/og/tc_lifecycle.rb

@@ -1,104 +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/logger'
-require 'og/mock'
-
-$DBG = false
-
-class Dummy
-  prop_accessor :date, Time
-  attr_reader :call_stack
-
-  def og_pre_insert( oid )
-    @call_stack << 'pre_insert'
-  end
-
-  def og_post_insert( oid )
-    @call_stack << 'post_insert'
-  end
-
-  def og_pre_update( oid )
-    @call_stack << 'pre_update'
-  end
-
-  def og_post_update( oid )
-    @call_stack << 'post_update'
-  end
-
-  def self.og_pre_delete( conn, oid )
-    raise 'undeletable'
-  end
-
-  def initialize
-    @call_stack = []
-  end
-end
-
-# Tests the Og managed objects lifecycle.
-class TC_CallbackTest < ::Test::Unit::TestCase
-  def test_insert
-    obj = Dummy.new
-    obj.save!
-
-    assert( obj.call_stack.shift == 'pre_insert' )
-    assert( obj.call_stack.shift == 'post_insert' )
-    assert( obj.call_stack.empty? )
-  end
-
-  def test_update
-    obj = Dummy.new
-    obj.save!
-    obj.call_stack.shift
-    obj.call_stack.shift
-
-    obj.date = Time.now
-    obj.save
-    assert( obj.call_stack.shift == "pre_update" )
-    assert( obj.call_stack.shift == "post_update" )
-    assert( obj.call_stack.empty? )
-  end
-
-  def test_delete
-    obj = Dummy.new
-    obj.save!
-    obj.call_stack.shift
-    obj.call_stack.shift
-
-    assert_raise( RuntimeError, 'undeletable' ) { obj.delete! }
-  end
-
-  def setup
-		psql = true
-
-		if psql
-			config = {
-				:adapter => 'psql',
-				#	:address => 'localhost',
-				:database => 'test',
-				:user => 'postgres',
-				:password => 'navelrulez',
-				:connection_count => 1
-			}
-		else
-			config = {
-				:adapter => 'mysql',
-				#	:address => 'localhost',
-				:database => 'test',
-				:user => 'root',
-				:password => 'navelrulez',
-				:connection_count => 1
-			}
-		end
-    Og::Database.drop_db!(config)
-    $og = Og::Database.new(config)
-    $og.get_connection()
-  end
-end

data/test/og/tc_many_to_many.rb

@@ -1,62 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-require 'ostruct'
-
-require 'og'
-
-class TC_OgManyToMany < Test::Unit::TestCase # :nodoc: all
-	include N
-
-	class Attribute
-		property :name, String
-		
-		def initialize(name = nil)
-			@name = name
-		end
-	end
-
-	class Klass
-		property :name, String
-		many_to_many :observed_attributes, Attribute, :linkback => :klass_observers
-		many_to_many :controlled_attributes, Attribute, :linkback => :klass_controllers
-
-		def initialize(name = nil)
-			@name = name
-		end
-	end
-
-	def test_all
-		config = {
-			:adapter => 'psql',
-			:database => 'test',
-			:user => 'postgres',
-			:password => 'navelrulez',
-			:connection_count => 2
-		}
-
-		Og::Database.drop_db!(config)
-		og = Og::Database.new(config)
-
-		og.get_connection
-
-		k = Klass.create('klass1')
-		a1 = Attribute.create('attr1')
-		a2 = Attribute.create('attr2')
-
-		k.add_observed_attribute(a1)
-		k.add_observed_attribute(a2)
-
-		assert_equal 2, k.observed_attributes.size
-		assert_equal 1, a1.klass_observers.size
-
-		k.add_controlled_attribute(a1)
-
-		assert_equal 1, k.controlled_attributes.size
-		assert_equal 1, a1.klass_controllers.size
-
-		og.put_connection
-		og.shutdown
-	end
-
-end

data/test/og/tc_meta.rb

@@ -1,55 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-require 'ostruct'
-
-require 'og'
-
-class TC_OgMeta < Test::Unit::TestCase # :nodoc: all
-	include N
-
-	# Forward declaration.
-
-	class Comment; end
-	
-	class Article
-		property :name, String
-		property :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
-	end
-
-	def teardown
-	end
-
-	def test_all
-		par = Article.__meta[:props_and_relations]
-		assert_equal 3, par.size
-		assert_equal N::Property, par[1].class
-		assert_equal Og::HasMany, par[2].class
-
-		par = Comment.__meta[:props_and_relations]
-		assert_equal 3, par.size
-		assert_equal N::Property, par[0].class
-		assert_equal Og::BelongsTo, par[1].class
-		assert_equal 'article_oid', par[1].meta[:property].to_s
-		assert_equal String, par[0].klass
-		assert_equal Article, par[1].foreign_class
-	end
-
-end

data/test/og/tc_observer.rb

@@ -1,85 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-require 'ostruct'
-
-require 'og'
-
-class TC_OgObserver < Test::Unit::TestCase # :nodoc: all
-	include N
-
-	class User
-		property :name
-	end
-
-	class Article
-		property :name, String
-		property :age, Fixnum
-
-		def initialize (name = nil, age = nil)
-			@name, @age = name, age
-		end
-	end
-
-	# Example of a simple class that acts as an observer.
-
-	class ArticleObserver
-		attr :count
-
-		def initialize
-			@count = 0
-		end
-		
-		def og_pre_insert(conn, obj)
-			@count += 1
-		end
-	end
-
-	# Rails style observer, baaah...
-
-	class MultiObserver < Og::Observer
-		observe Article, User
-
-		attr :count
-		
-		def initialize
-			@count = 0
-		end
-		
-		def og_pre_insert(conn, obj)
-			@count += 1
-		end
-	end
-	
-	def setup
-	end
-
-	def teardown
-	end
-
-	def test_all
-		config = {
-			:adapter => 'psql',
-			:database => 'test',
-			:user => 'postgres',
-			:password => 'navelrulez',
-			:connection_count => 2
-		}
-
-		Og::Database.drop_db!(config)
-		og = Og::Database.new(config)
-
-		og.get_connection
-
-		ao = ArticleObserver.new
-		Article.add_observer(ao)
-		Article.create('Hello', 5)
-
-		assert_equal 1, ao.count
-		assert_equal 1, MultiObserver.instance.count
-
-		og.put_connection
-		og.shutdown
-	end
-
-end

data/test/og/tc_sqlite.rb

@@ -1,87 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-=begin
-
-require 'test/unit'
-require 'ostruct'
-
-require 'og'
-require 'og/adapters/sqlite'
-
-class TC_OgSqlite3 < Test::Unit::TestCase # :nodoc: all
-	include N
-
-	# 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 => 'sqlite',
-			:database => 'test',
-			:connection_count => 2 
-		}
-		
-		$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)
-
-		articles = Article.all
-
-		assert_equal 5, articles.size
-
-		a3 = Article[3]
-
-		assert_equal 'ekarak', a3.name
-
-		c1 = Comment.new('a comment')
-		c1.save!
-		a3.add_comment(c1)
-		
-		a5 = Article[3]
-		assert_equal 1, a5.comments.size
-	end
-
-end
-
-=end

data/test/tc_og.rb

@@ -1,355 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
-
-$DBG = true
-
-require 'test/unit'
-
-require 'og'
-
-module Test # :nodoc: all
-
-# bug: creates a table that fucks-up postgres if not
-# correctly escaped.
-class User
-	prop_accessor :name, String, :unique => true
-	prop_accessor :banned, TrueClass
-
-	def initialize(name = nil)
-		@name = name
-	end
-end
-
-class Role
-	prop_accessor :title, String
-	property :chk_not_null, Fixnum, :default => 2
-end
-
-class Comment; end
-class Article; end
-
-class Category
-	prop_accessor :title, String
-	many_to_many :articles, Article
-end
-
-class Article
-	prop_accessor :title, String
-	prop_accessor :body, String
-	prop_accessor :owner_oid, Fixnum, :sql_index => true
-	prop_accessor :another_oid, Fixnum
-	property :create_time, Time
-	property :rate, Float
-	sql_index 'owner_oid, another_oid'
-	prop_accessor :options, Hash
-	has_many :comments, Test::Comment
-	
-	def initialize(title = nil, body = nil)
-		@title = title
-		@body = body
-		@options = {"hello" => "world"}
-	end
-	
-	def og_pre_insert(conn)
-		puts "-- PRE INSERT CALLED FOR ARTICLE"
-	end
-	
-	def og_post_insert_update(conn)
-		puts "-- POST INSERT UPDATE CALLED FOR ARTICLE"
-	end
-
-	def og_post_update(conn)
-		puts "-- POST UPDATE CALLED FOR ARTICLE"
-	end
-end
-
-class Comment
-	prop_accessor :body, String
-	prop_accessor :create_time, Time
-	belongs_to :article, Test::Article, :extra_sql => 'NOT NULL' 
-	belongs_to :author, Test::User
-	
-	def initialize(body = nil)
-		@create_time = Time.now
-		@body = body
-	end
-	
-	def og_pre_insert(conn)
-		puts "-- PRE INSERT CALLED FOR COMMENT"
-	end
-
-	def og_post_insert(conn)
-		puts "-- POST INSERT CALLED FOR COMMENT"
-	end	
-end
-
-module MyMixin
-	prop_accessor :title, String
-end
-
-class MyClass
-	include Test::MyMixin
-end
-
-class OrderItem
-	prop_accessor :onumber, Fixnum
-	refers_to :article, Article
-end
-
-class TC_N_OG < Test::Unit::TestCase
-
-	@@adapter = :psql
-
-	case @@adapter
-
-	when :psql
-		def test_psql
-			config = {
-				:adapter => 'psql',
-				# :address => 'localhost',
-				:database => 'test',
-				:user => 'postgres',
-				:password => 'navelrulez',
-				:connection_count => 2
-			}
-
-			run_all_tests(config)
-		end
-
-	when :mysql
-		def test_mysql
-			config = {
-				:adapter => 'mysql',
-				# :address => 'localhost',
-				:database => 'test',
-				:user => 'root',
-				:password => 'navelrulez',
-				:connection_count => 2
-			}
-
-			run_all_tests(config)
-		end
-
-	when :oracle
-		def test_oracle
-			config = {
-				:adapter => 'oracle',
-				# :address => 'localhost',
-				:database => 'test',
-				:user => 'root',
-				:password => 'navelrulez',
-				:connection_count => 2
-			}
-
-			run_all_tests(config)
-		end
-
-	when :sqlite
-		def test_sqlite
-			config = {
-				:adapter => 'sqlite',
-				:database => 'test',
-				:connection_count => 2 
-			}
-
-			run_all_tests(config)
-		end
-	end
-
-	# gmosx: hmm, implemented in one method to enforce order.
-		
-	def run_all_tests(config)
-		Og::Database.drop_db!(config)
-		og = Og::Database.new(config)
-
-		og.get_connection
-		
-		article = Article.new("Title", "Here comes the body")
-		article.create_time = now = Time.now
-		article.rate = rate = 12.33
-		og << article
-		
-		article.title = "Changed"
-		article.save!
-		
-		og.pupdate("body='Hello'", article)
-
-		article.update_properties "body='Hello'"
-		
-		another = Article[1]
-		assert_equal(1, another.oid)
-		assert_equal now.to_i, another.create_time.to_i
-		assert_equal rate, another.rate
-		
-		# bug: yaml load problem.
-		assert_equal("world", another.options["hello"])
-		
-		# bug: YAMLing nil property
-		another.options = nil
-		another.save!
-		
-		assert_equal(nil, og.load(30000, Article))
-		
-		articles = og.load_all(Article)
-
-#		p articles
-#		p Article[23]
-		
-		user = User.new("gmosx")
-		user.save!
-		
-		user = User["gmosx"]
-		
-		assert_equal("gmosx", user.name)
-		
-		users1 = og.select("name='gmosx' ORDER BY oid", User)
-		
-		users = og.select("SELECT * FROM #{User::DBTABLE} WHERE name='gmosx' ORDER BY oid", User)
-		
-		users2 = User.select "name='gmosx' ORDER BY oid"
-		
-		assert_equal(users1.size, users2.size)
-		
-		article = Article.new("Title", "Body")
-		article.save!
-
-		# advanced finder
-
-		users3 = User.find_by_banned(true)
-		assert users3.empty? 
-
-		user3 = User.find_by_name('gmosx')
-		assert_equal 'gmosx', user3.name
-
-		user3.banned = true
-		user3.save
-
-		users3 = User.find_by_banned(true)
-		assert !users3.empty? 
-
-		comment = Comment.new("This is a comment")
-		comment.article = article
-		comment.author = User["gmosx"]
-		comment.save!
-
-		# test automatically generated add_comment
-		comment = Comment.new("This is another comment")
-		comment.author = User["gmosx"]
-		article.add_comment(comment)
-
-		# test add_comment with block.
-		article.add_comment do |c|
-			c.body = 'Another one'
-			c.author = User['gmosx']
-		end
-		
-		assert_equal(article.oid, comment.article_oid)
-		
-		comments = article.comments
-		
-		assert_equal(3, comments.size)		
-
-		# test many_to_many relations.
-
-		category = Category.create
-		category.add_article(article)
-
-		assert_equal 1, category.articles.size
-
-		# bug: test many_to_many with non-saved object.
-	
-		ans = Article.new
-		ans.title = 'non saved'
-		category.add_article(ans)
-
-		category.add_article do |a|
-			a.title = 'another'
-		end
-
-		assert_equal 3, category.articles.size
-
-		assert_equal 1, article.categories.size
-	
-		assert_equal("gmosx", comments[0].author.name)
-
-		article.delete_all_comments
-		assert article.comments.empty?
-
-		# test cascading delete
-
-		article.add_comment(Comment.new("hello"))
-		article.add_comment(Comment.new("world"))
-
-		assert_equal 2, Comment.count
-
-		Article.delete(article)
-
-		assert Comment.all.empty?
-
-		comment.delete!		
-
-		# test extra_sql
-		
-		for p in Comment.__props
-			if :article_oid == p.symbol
-				assert_equal('NOT NULL', p.meta[:extra_sql])
-				break
-			end
-		end
-
-		assert(og.managed_classes.include?(Test::Article))
-		
-		# bug: indirectly managed (includes managed Module)
-		assert(og.managed_classes.include?(Test::MyClass))
-
-		# test create
-		article = Article.create("title", "body")
-		# assert_equal(3, article.oid)
-
-		# test refers_to
-
-		oi = OrderItem.new
-		oi.article = article
-		oi.save
-
-		assert_equal article.oid, oi.article_oid
-
-		# bug
-
-		user = User['gmosx']
-		user.banned = true
-		user.save!
-
-		user = User['gmosx']
-		assert_equal true, user.banned
-
-		# test not null
-
-		role = Role.new
-
-		begin
-			role.save
-		rescue Exception, StandardError
-			# drink it
-		end
-		
-		role = Role[1]
-
-		# not saved due to not nul constraint.
-		assert_equal nil, role
-		
-		og.put_connection
-		og.shutdown
-
-		# Test database allready exists
-
-		og = Og::Database.new(config)
-
-		user = User.new("kokoriko")
-		user.save!
-		
-		og.shutdown
-	end
-
-end
-
-end