og 0.16.0 → 0.17.0

data/test/og/tc_automanage.rb

@@ -1,46 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-require 'ostruct'
-
-require 'og'
-
-$og = Og::Database.new(
-	:adapter => 'psql',
-	:database => 'test',
-	:user => 'postgres',
-	:password => 'navelrulez',
-	:drop => true
-)
-
-class TestCaseOgObserver < Test::Unit::TestCase # :nodoc: all
-
-	# Define a class after the Database is created.
-
-	class Article; end
-
-	class User
-		property :name
-
-		# auto forward ref.
-		has_many :articles, Article
-	end
-
-	class Article
-		property :name, String
-		property :age, Fixnum
-
-		def initialize (name = nil, age = nil)
-			@name, @age = name, age
-		end
-	end
-
-	def test_all
-		assert_equal 0, $og.managed_classes.size
-		$og.auto_manage_classes		
-		assert_equal 2, $og.managed_classes.size
-		assert $og.managed_classes.include?(User)
-		assert $og.managed_classes.include?(Article)
-	end
-
-end

data/test/og/tc_lifecycle.rb

@@ -1,105 +0,0 @@
-#! /usr/bin/env ruby
-# vim:sw=2:ai
-
-# * Thomas Quas  <tquas@yahoo.com>
-# * George Moschovitis  <gm@navel.gr>
-# $Id: tc_lifecycle.rb 17 2005-04-14 16:03:40Z gmosx $
-
-$LOAD_PATH.unshift 'lib'
-
-require 'test/unit'
-require 'glue/logger'
-require 'og/testing/mock'
-
-$DBG = false
-
-class Dummy
-	include Aspects
-
-  prop_accessor :date, Time
-  attr_accessor :call_stack
-
-	pre(:on => :og_insert) { |this| this.call_stack << 'pre_insert' }
-	post(:on => :og_insert) { |this| this.call_stack << 'post_insert' }
-
-  def og_pre_update
-    @call_stack << 'pre_update'
-  end
-	pre :og_pre_update, :on => :og_update
-
-	post(:on => :og_update) { |this| this.call_stack << 'post_update' }
-
-	# faster :) 
-	
-	post "@call_stack << 'post_update2'", :on => :og_update
-
-  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.shift == "post_update2" )
-    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,61 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-require 'ostruct'
-
-require 'og'
-
-class TC_OgManyToMany < Test::Unit::TestCase # :nodoc: all
-
-	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 Og 
-
-	# 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 Property, par[1].class
-		assert_equal HasMany, par[2].class
-
-		par = Comment.__meta[:props_and_relations]
-		assert_equal 3, par.size
-		assert_equal Property, par[0].class
-		assert_equal 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_validation.rb

@@ -1,89 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-
-require 'og'
-require 'og/validation'
-
-Property.type_checking = false
-
-class TC_OgValidation < Test::Unit::TestCase # :nodoc: all
-
-	class Group; end
-
-	class User
-		property :name, String
-		validate_unique :name
-
-		def initialize(name = nil)
-			@name = name
-		end
-	end
-
-	class Filler
-		property :name, String
-		validate_length :name, :min => 3
-
-		belongs_to :group, Group
-
-		def initialize(name = nil)
-			@name = name
-		end
-	end
-	
-	class Group
-		property :name, String
-
-		has_many :fillers, Filler
-		validate_related :fillers
-	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
-
-		# validate_unique
-		
-		u1 = User.create('gmosx')
-
-		u2 = User.new('gmosx')
-		assert !u2.valid?
-		assert_equal 1, u2.errors.count
-
-		u2.name = 'stella'
-		u2.valid?
-		assert u2.valid?
-
-		# validate_related
-
-		f1 = Filler.new('g')
-		f2 = Filler.new('ok')
-
-		g = Group.create
-		g.add_filler(f1)
-		g.add_filler(f2)
-
-		assert !g.valid?
-
-		f1.name = 'george'
-		f1.save
-		f2.name = 'stella'
-		f2.save
-
-		assert g.valid?
-
-		og.put_connection
-		og.shutdown
-	end
-
-end

data/test/tc_og.rb

@@ -1,364 +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
-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
-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
-	
-		# test reload.
-
-		User.create('karras')
-
-		u1 = User['karras']
-		u2 = User['karras']
-
-		u1.name = 'vaio'
-		u1.save
-
-		assert_equal 'vaio', u1.name
-		assert_equal 'karras', u2.name
-
-		u2.reload!
-
-		assert_equal 'vaio', u2.name
-		
-		# test raise db exception.
-
-		assert_raises(Og::SqlException) {
-			User.select('SEGECT *')
-		}
-
-		Og.raise_db_exceptions = false
-
-		assert_nothing_raised {
-			User.select('SEGECT *')
-		}
-		
-		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