nitro 0.12.0 → 0.13.0

data/lib/og/mock.rb

@@ -1,165 +0,0 @@
-# * George Moschovitis  <gm@navel.gr>
-# * Thomas Quas  <tquas@yahoo.com>
-# (c) 2004-2005 Navel, all rights reserved.
-# $Id$
-
-require 'flexmock'
-
-require 'og'
-
-module Og
-	
-# A utility object to Mock a Database in test units.
-# Extends the standard FlexMock object.
-#--
-# TODO: Factor out common functionality with Database
-# to avoid code duplication.
-
-class MockDatabase < ::FlexMock 
-	include Og::Enchant
-
-	# Managed class metadata
-	#
-	class ManagedClassMeta
-		# The managed class.
-		attr_accessor :klass
-		
-		# A mapping of the database fields to the object properties.
-		attr_accessor :field_index
-		
-		def initialize(klass = nil)
-			@klass = klass
-			@field_index = {}
-		end
-	end
-
-	# hash of configuration options.
-	
-	attr_accessor :config
-
-	# Pool of connections to the backend.
-	
-	attr_accessor :connection_pool
-
-	# Managed classes.
-
-	attr_accessor :managed_classes
-
-	# Initialize the database interface.
-	
-	def initialize
-		# Initialize FlexMock
-		super
-		
-		@managed_classes = N::SafeHash.new
-		
-		Logger.info "Using mock database."
-		
-		if Og.auto_manage_classes
-			# automatically manage classes with properties and metadata.
-			# gmosx: Any idea how to optimize this?
-
-			classes_to_manage = []
-			ObjectSpace.each_object(Class) do |c|
-				if c.respond_to?(:__props) and c.__props
-					classes_to_manage << c
-				end
-			end
-			Logger.info "Og auto manages the following classes:"
-			Logger.info "#{classes_to_manage.inspect}"
-			manage_classes(*classes_to_manage)
-		end
-
-		# use the newly created database.
-
-		Og.use(self)
-	end
-		
-	# Shutdown the database interface.
-	
-	def shutdown
-	end
-	alias_method :close, :shutdown
-
-	# Get a connection from the pool to access the database.
-	# Stores the connection in a thread-local variable.
-	
-	def get_connection
-		# nop
-	end
-	alias_method :connection, :get_connection
-	
-	# Restore an unused connection to the pool.
-	
-	def put_connection
-		# nop
-	end	
-
-	# Register a standard Ruby class as managed.
-	
-	def manage(klass)
-		return if managed?(klass) or klass.ancestors.include?(Og::Unmanageable)
-		
-		@managed_classes[klass] = ManagedClassMeta.new(klass)
-		
-		# Add standard og methods to the class.
-		convert(klass)
-		
-		# Add helper methods to the class.
-		enchant(klass) if Og.enchant_managed_classes 
-	end
-	
-	# Helper method to set multiple managed classes.
-	
-	def manage_classes(*klasses)
-		for klass in klasses
-			manage(klass)
-		end
-	end
-	
-	# Stop managing a Ruby class
-	
-	def unmanage(klass)
-		@managed_classes.delete(klass)
-	end
-	
-	# Is this class managed?
-		
-	def managed?(klass)
-		return @managed_classes.include?(klass)
-	end
-	
-	# Add standard og functionality to the class
-	
-	def convert(klass)
-		klass.class_eval %{
-			DBTABLE = "#{Og::Backend.table(klass)}"
-			DBSEQ = "#{Og::Backend.table(klass)}_oids_seq" 
-			
-			def to_i()
-				@oid
-			end			
-		}
-	end
-
-	# Automatically wrap connection methods.
-	
-	def self.wrap_method(method, args)
-		args = args.split(/,/)
-		class_eval %{
-			def #{method}(#{args.join(", ")})
-				# nop
-			end
-		}
-	end
-
-	def self.create_db!(config)
-		# nop
-	end
-
-	def self.drop_db!(config)
-		# nop
-	end
-end
-
-end 

data/lib/og/observer.rb

@@ -1,53 +0,0 @@
-# * George Moschovitis  <gm@navel.gr>
-# (c) 2004-2005 Navel, all rights reserved.
-# $Id: observer.rb 271 2005-03-07 17:56:45Z gmosx $
-
-module Og
-
-# Classes that include this module can be tracked by 
-# Observers. The observer mechanism utilizes duck typing
-# so you can attach any class that responds to the
-# Og lifycycle callback methods. However, classes extended 
-# from the Observer base class are typically used.
-
-module Observable
-	def add_observer(*observer)
-		for o in observer.flatten
-			meta :og_observers, o
-			self.og_db.adapter.eval_lifecycle_methods(self, self.og_db)
-		end
-	end
-end
-
-# Observers are attached to managed classes to track their
-# Lifecycle.  This way, the 'polution' of the original class 
-# with excess responsibility is avoided.
-#
-# An observer can implement the standard Og lifecycle 
-# callbacks:
-#
-# * og_pre_read
-# * og_post_read
-# * og_pre_insert
-# * og_post_insert
-#	* og_pre_update
-# * og_post_update
-# * og_pre_insert_update
-# * og_post_insert_update
-# * self.og_pre_delete
-#
-# Based on code from ActiveRecord (http://www.rubyonrails.com)
-
-class Observer
-	include Singleton
-
-	# Attaches the observer to the supplied classes.
-	
-	def self.observe(*classes)
-		for c in classes.flatten
-			c.meta :og_observers, self
-		end
-	end
-end
-
-end

data/lib/og/typemacros.rb

@@ -1,23 +0,0 @@
-# * George Moschovitis  <gm@navel.gr>
-# (c) 2004-2005 Navel, all rights reserved.
-# $Id: typemacros.rb 267 2005-02-28 14:52:41Z gmosx $
-
-module Og
-
-# Some useful type macros to help when defining managed 
-# objects. You can easily code your own type macros.
-# Just return the array that should be passed
-#
-# === Example
-#
-# property :name, Og.VarChar(30)
-
-def VarChar(size)
-	return String, :sql => "VARCHAR(#{size})"
-end
-
-NotNull = {:sql => "NOT NULL"}.freeze
-
-Null = {:sql => "NULL"}.freeze
-
-end

data/lib/parts/README

@@ -1,9 +0,0 @@
-= 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/test/glue/tc_attribute.rb

@@ -1,22 +0,0 @@
-$:.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,45 +0,0 @@
-require "test/unit"
-require "glue/cache"
-
-class TC_Glue_Cache < Test::Unit::TestCase
-	# :nodoc: all
-
-	class Dummy
-		include N::LRUCache::Item
-	end
-	
-	def setup
-		@cache = N::LRUCache.new(maxitems = 3)
-	end
-
-	def teardown
-		@cache = nil
-	end
-
-	def test_safe_cache
-		d1 = Dummy.new
-		d2 = Dummy.new
-		d3 = Dummy.new
-		d4 = Dummy.new
-
-		@cache[1] = d1		
-		@cache[2] = d2		
-		@cache[3] = d3
-
-		assert_equal(d1, @cache.last)
-		assert_equal(d3, @cache.first)
-
-		val = @cache[2]
-		assert_equal(d2, @cache.first)
-
-		@cache[4] = d4
-		assert_equal(3, @cache.size)
-		assert_equal(d4, @cache.first)
-
-		# insert the same key		
-		@cache[4] = d4
-		assert_equal(3, @cache.size)
-		assert_equal(d4, @cache.first)		
-	end
-
-end

data/test/glue/tc_hash.rb

@@ -1,38 +0,0 @@
-# :nodoc: all
-
-require "test/unit"
-require "glue/hash"
-
-class TC_N2_Utils_Cache < Test::Unit::TestCase
-	# :nodoc: all
-
-	def setup
-		@safe_cache = N::SafeHash.new(Hash.new)
-	end
-
-	def teardown
-		@safe_cache = nil
-	end
-
-	def test_safe_cache
-		assert_equal(nil, @safe_cache["no_item"])
-		item1 =  "item1"
-		@safe_cache["key1"] = item1
-		assert_equal(item1, @safe_cache["key1"])
-
-		@safe_cache["rem1"] = item1
-		@safe_cache.delete("rem1")
-		assert_equal(nil, @safe_cache["rem1"])
-
-		@safe_cache.clear()
-		assert_equal(0, @safe_cache.size)
-
-		@safe_cache["i1"] = "i1"
-		@safe_cache["i2"] = "i1"
-		@safe_cache["i3"] = "i1"
-		assert_equal(3, @safe_cache.size)
-
-		assert_equal(3, @safe_cache.values.size)
-	end
-
-end

data/test/glue/tc_logger.rb

@@ -1,39 +0,0 @@
-$:.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)
-
-		# bug:
-		Logger.error 'Have forgotten that :)'
-	end
-
-end

data/test/glue/tc_numbers.rb

@@ -1,20 +0,0 @@
-# :nodoc: all
-
-require "test/unit"
-require "glue/number"
-
-class TC_N_NumberUtils < Test::Unit::TestCase
-	# :nodoc: all
-
-	def setup
-	end
-
-	def teardown
-	end
-
-	def test_ceil_multiple
-		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.rb

@@ -1,89 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
-
-require 'test/unit'
-
-require 'og'
-require 'glue/logger'
-require 'glue/property'
-
-def VarChar(size)
-	return String, :sql => "VARCHAR(#{ size })"
-end
-NotNull = {:sql => "NOT NULL"}.freeze
-Null = {:sql => "NULL"}.freeze
-
-Property.type_checking = false
-
-module Test # :nodoc: all
-
-class Msg
-	include Og::Unmanageable
-	
-	prop Fixnum, :owner_oid
-	prop_accessor :val1, :val2, :val3, Fixnum, :sql => "smallint"
-	prop_accessor :title, :body, String
-	prop_accessor :test, String, :sql => "char(10) NOT NULL"
-	prop_accessor :count, Fixnum
-	prop_accessor :create_time, Time	
-
-	# a marshaled property
-	prop_accessor Array, :options
-
-	# property with macro arguments!
-	prop_accessor :address, VarChar(30), NotNull
-	
-	def initialize
-		@create_time = Time.now
-		@options = []
-	end
-
-end
-
-class SubMsg < Msg
-	# to avoid conflicts with tc_og.rb
-	include Og::Unmanageable
-	
-	# duplicate definition with different type!
-	prop_accessor :count, Float
-end
-
-class TC_N_Properties < Test::Unit::TestCase
-
-	def setup
-		@msg1 = Msg.new
-	end
-
-	def teardown
-		@msg1 = nil
-	end
-
-	def test_props
-		
-		# bug: props for subclasses.
-
-		assert(SubMsg.__props)
-		assert_equal(Msg.__props.size(), SubMsg.__props.size())
-
-		# bug: duplicate definition 			
-		
-		assert_equal(Float, SubMsg.__props.find { |p| :count == p.symbol }.klass)
-
-		# dont force conversion
-		
-		@msg1.count = 2.4
-		assert_equal(Float, @msg1.count.class)
-
-		# force conversion
-		
-		@msg1.__force_count(2.4)
-		assert_equal(Fixnum, @msg1.count.class)		
-	end
-
-	def test_macro_params
-		sql = Msg.__props.find { |p| :address == p.symbol }.meta[:sql]
-		assert_equal 'VARCHAR(30) NOT NULL', sql
-	end
-	
-end
-
-end # module