og 0.13.0 → 0.14.0

data/lib/og/mixins/tree.rb

@@ -0,0 +1,228 @@
+# * George Moschovitis  <gm@navel.gr>
+# (c) 2004-2005 Navel, all rights reserved.
+# $Id: tree.rb 326 2005-03-28 11:07:17Z gmosx $
+
+# NOT WORKING YET !!!
+
+require 'glue/attribute'
+
+module Og
+
+# A useful encapsulation of the nested intervals pattern for 
+# hierarchical SQL queries. Slightly adapted from the original
+# article (http://www.dbazine.com/tropashko4.shtml)
+
+module TreeTraversal
+	
+	# The default prefix for the tree traversal helpers.
+	
+	cattr_accessor :prefix, 'tree'	
+
+	def self.child(sum, n)
+		power = 2 ** n
+
+		return sum * power
+	end
+
+end
+
+end
+
+
+__END__
+
+def xcoord(numer, denom)
+	num = numer + 1
+	den = denom * 2
+
+	while (num / 2).floor == (num / 2)
+		num /= 2
+		den /= 2
+	end
+
+	return num, den
+end
+
+#--
+# TODO: optimize this
+#++
+
+def ycoord(numer, denom)
+	num, den = xcoord(numer, denom)
+
+	while den < denom
+		num *= 2
+		den *= 2
+	end
+
+	num = numer - num
+
+	while (num / 2).floor == (num / 2)
+		num /= 2
+		den /= 2
+	end
+
+	return num, den
+end
+
+def parent(numer, denom)
+	return nil if numer == 3
+
+	num = (numer - 1) / 2
+	den = denom / 2
+
+	while ((num-1)/4).floor == ((num-1)/4)
+		num = (num + 1) / 2
+		den = den / 2
+	end
+	
+	return num, den
+end
+
+def sibling(numer, denom)
+	return nil if numer == 3
+
+	num = (numer - 1) / 2
+	den = denom / 2
+	sib = 1
+	
+	while ((num-1)/4).floor == ((num-1)/4)
+		return sib if num == 1 and den == 1
+		num = (num + 1) / 2
+		den /= 2
+		sib += 1
+	end
+	
+	return sib
+end
+
+def child(numer, denom, n)
+	power = 2 ** n
+
+	num =  (numer * power) + 3 - power
+	den = denom * power
+
+	return num, den
+end
+
+def path(numer, denom)
+	return '' if numer == nil
+	n, d = parent(numer, denom)
+	return "#{path(n, d)}.#{sibling(numer, denom)}"
+end
+
+def encode(path)
+	num = den = 1
+	postfix = ".#{path}."
+
+	while postfix.length > 1
+		sibling, postfix = postfix.split('.', 2)
+		num, den = child(num, den, sibling.to_i)
+	end
+
+	return num, den
+end
+
+
+require 'og'
+
+class Comment
+	property :path, String
+	property :x, :y, Float
+
+	def initialize(path = nil, x = nil, y = nil)
+		@path, @x, @y = path, x, y
+	end
+end
+
+Og::Database.new(
+	:database => 'test',
+	:adapter => 'psql',
+	:user => 'postgres',
+	:password => 'navelrulez',
+	:connection_count => 1,
+	:drop => true
+)
+
+def dp(path)
+	n, d =  encode(path)
+	n, d = Float(n), Float(d)
+	# puts "#{path} -> n: #{n} d: #{d} c: #{n/d}"
+	p = path(n, d)
+	# puts "=== #{p}"
+	xn, xd = xcoord(n, d)
+	yn, yd = ycoord(n, d)
+	Comment.create(path, xn/xd, yn/yd)
+end
+
+dp '1.1'
+dp '1.2'
+dp '1.3'
+dp '1.1.2.1'
+dp '1.5.2.1'
+dp '1.2.1.1.1'
+dp '1.4.1.1'
+dp '1.4.3'
+dp '1.4.1'
+dp '1.2.1'
+dp '1.2.1.2'
+dp '1.5'
+dp '1.5.1'
+
+for c in Comment.all('ORDER BY x DESC, y ASC')
+	puts "#{c.path.ljust(16)}#{c.inspect}"
+end
+
+class Article
+	property :title, :body, String
+	has_many: :comments, Comment, :tree => true
+end
+
+class Comment
+	property :body, String
+	belongs_to :article, Article
+	belongs_to :parent, Comment
+	has_many :children, Comment, :tree => true
+	has_many :roles, Role, :list => true
+end
+
+
+article.comments_tree
+comment.add_child(Comment.new('hello'))
+comment.children_tree
+comment.children
+
+		if options[:tree]
+			code << %{
+				property :#{prefix}_x, Fixnum
+				property :#{prefix}_y, Fixnum
+				sql_index '#{prefix}_x, #{prefix}_y'
+			}
+		end
+
+		if options[:tree]
+
+			code << %{
+				def #{name}_tree(extrasql = nil)
+					Og.db.select("SELECT * FROM #{Og::Adapter.table(klass)} WHERE #{linkback}=\#\@oid \#\{extrasql\} ORDER BY #{prefix}_x DESC, #{prefix}_y ASC", #{klass})
+				end
+			}
+
+		elsif options[:list]
+
+		else
+
+		end
+
+		}
+		
+		if options[:tree]
+			code << %{
+				n = Og.db.count("#{linkback}=\#\@oid", #{klass})
+				ptx = @#{prefix}_x || 0
+				pty = @#{prefix}_y || 0
+				obj.#{prefix}_x, obj.#{prefix}_y = TreeTraversal.child(ptx + pty, n)
+			}
+		end
+		
+		code << %{

data/test/og/mixins/tc_list.rb

@@ -0,0 +1,104 @@
+$:.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 TestCaseOgList < Test::Unit::TestCase # :nodoc: all
+	include N
+
+	class Comment; end
+
+	class Article
+		property :title, :body, String
+		has_many :comments, Comment, :list => true, :order => 'position DESC'
+
+		def initialize(title = nil)
+			@title = title
+		end
+	end
+
+	class Comment 
+		property :body, String
+		belongs_to :article, Article
+		acts_as_list :scope => :article
+		
+		def initialize(body = nil)
+			@body = body
+		end
+	end
+
+	def test_all
+		$og.auto_manage_classes		
+
+		a = Article.create('article')
+		a.save
+
+		c1 = Comment.new('1')
+		a.add_comment(c1)
+		c2 = Comment.new('2')
+		a.add_comment(c2)
+		c3 = Comment.new('3')
+		a.add_comment(c3)
+
+		assert_equal 1, c1.position
+		assert_equal 2, c2.position
+		assert_equal 3, c3.position
+
+		c3.move_higher
+
+		c1.reload
+		c2.reload
+		c3.reload
+
+		assert_equal 1, c1.position
+		assert_equal 2, c3.position
+		assert_equal 3, c2.position
+
+		c2.move_to_top
+
+		c1.reload
+		c2.reload
+		c3.reload
+
+		assert_equal 1, c2.position
+		assert_equal 2, c1.position
+		assert_equal 3, c3.position
+
+		c2.move_to_bottom
+
+		c1.reload
+		c2.reload
+		c3.reload
+
+		assert_equal 1, c1.position
+		assert_equal 2, c3.position
+		assert_equal 3, c2.position
+
+		c3.delete!
+
+		c1.reload
+		c2.reload
+
+		assert_equal 1, c1.position
+		assert_equal 2, c2.position
+
+		c2.delete!
+
+		c1.reload
+
+		assert_equal 1, c1.position
+
+		c1.delete!
+	end
+
+end

data/test/og/mixins/tc_tree.rb

@@ -0,0 +1,59 @@
+$:.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 TestCaseOgTree < Test::Unit::TestCase # :nodoc: all
+	include N
+
+	class Comment; end
+
+	class Article
+		property :title, :body, String
+		has_many :comments, Comment, :tree => true
+
+		def initialize(title = nil)
+			@title = title
+		end
+	end
+
+	class Comment 
+		property :body, String
+		belongs_to :article, Article
+		belongs_to :comment, Comment
+		has_many :comments, Comment, :tree => true
+		
+		def initialize(body = nil)
+			@body = body
+		end
+	end
+
+	def test_all
+		$og.auto_manage_classes		
+
+		a = Article.new('article')
+		a.save
+
+		c1 = Comment.new('1')
+		a.add_comment(c1)
+		c11 = Comment.new('1.1')
+		c1.add_comment(c11)
+		c1.save
+
+		puts "\n\n"
+		a.comments_tree.each do |c|
+			puts "#{c.body.ljust(16)}[#{c.tree_x},#{c.tree_y}]"
+		end
+	end
+
+end

data/test/og/tc_automanage.rb

@@ -0,0 +1,45 @@
+$:.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
+	include N
+
+	# Define a class after the Database is created.
+
+	class User
+		property :name
+
+		# auto forward ref.
+		has_many :articles, TestCaseOgObserver::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/tc_og.rb

@@ -336,6 +336,35 @@ class TC_N_OG < Test::Unit::TestCase
 
 		# 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