glue 0.15.0 → 0.16.0

data/test/glue/tc_aspects.rb

@@ -0,0 +1,101 @@
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'test/unit'
+require 'glue/aspects'
+
+include Glue
+
+class TestCaseAspects < Test::Unit::TestCase # :nodoc: all
+
+	class Monitor
+		def self.pre(this)
+			this.ma = 2
+		end
+
+		def self.post(this)
+			this.mb = 5
+		end
+	end
+
+	module Localize
+		def localize
+			@ll = 5
+		end
+	end
+
+	module Tester
+		include Aspects
+
+		attr_accessor :ta
+		pre { |this| this.ta = 5 }
+	end
+	
+	class Dummy
+		include Aspects
+		include Tester
+		
+		attr_accessor :a, :b, :c
+		attr_accessor :oa, :ob
+		attr_accessor :ma, :mb
+		attr_accessor :ll
+		attr_accessor :pa
+
+		pre :pre_advice
+		wrap Monitor
+		wrap Localize, :pre => :localize
+		post { |this| this.pa = 3 }
+
+		def initialize
+			@a = 0
+		end
+		
+		def hello(q)
+			@a += 1 + q
+		end
+
+		def pre_advice
+			@b = 1
+			@a += 1
+		end
+
+		def post_advice
+			@c = 1
+		end
+			
+	end
+
+	# Class aspect.
+	
+	class Observer < Aspect
+		def self.pre(this)
+			this.oa = 9
+		end
+	end
+	
+	# Instance aspect.
+
+	class Epilogue < Aspect
+		def post(this)
+			this.ob = 9
+		end
+	end
+	
+	def test_all
+		Observer.wrap(Dummy, :hello)
+		Epilogue.new.wrap(Dummy, :hello)
+		Aspects.wrap(Dummy, :hello)
+
+		d = Dummy.new
+		d.hello(3)
+		assert_equal 5, d.a
+		assert_equal 1, d.b
+		assert_equal 9, d.oa
+		assert_equal 9, d.ob
+		assert_equal 2, d.ma
+		assert_equal 5, d.mb
+		assert_equal 5, d.ll
+		assert_equal 3, d.pa
+		assert_equal 5, d.ta
+	end
+
+end

data/test/glue/tc_cache.rb

@@ -1,15 +1,15 @@
-require "test/unit"
-require "glue/cache"
+require 'test/unit'
+require 'glue/cache'
 
-class TC_Glue_Cache < Test::Unit::TestCase
-	# :nodoc: all
+class TC_Glue_Cache < Test::Unit::TestCase # :nodoc: all
+	include Glue
 
 	class Dummy
-		include N::LRUCache::Item
+		include LRUCache::Item
 	end
 	
 	def setup
-		@cache = N::LRUCache.new(maxitems = 3)
+		@cache = LRUCache.new(maxitems = 3)
 	end
 
 	def teardown

data/test/glue/tc_hash.rb

@@ -1,13 +1,11 @@
-# :nodoc: all
-
 require "test/unit"
 require "glue/hash"
 
-class TC_N2_Utils_Cache < Test::Unit::TestCase
-	# :nodoc: all
+class TestCaseGlueCache < Test::Unit::TestCase # :nodoc: all
+	include Glue
 
 	def setup
-		@safe_cache = N::SafeHash.new(Hash.new)
+		@safe_cache = SafeHash.new(Hash.new)
 	end
 
 	def teardown

data/test/glue/tc_numbers.rb

@@ -1,10 +1,8 @@
-# :nodoc: all
+require 'test/unit'
+require 'glue/number'
 
-require "test/unit"
-require "glue/number"
-
-class TC_N_NumberUtils < Test::Unit::TestCase
-	# :nodoc: all
+class TestCaseNumberUtils < Test::Unit::TestCase # :nodoc: all
+	include Glue
 
 	def setup
 	end
@@ -13,8 +11,8 @@ class TC_N_NumberUtils < Test::Unit::TestCase
 	end
 
 	def test_ceil_multiple
-		assert_equal(20, N::NumberUtils.ceil_multiple(15, 10))
-		assert_equal(10, N::NumberUtils.ceil_multiple(1, 10))
+		assert_equal(20, NumberUtils.ceil_multiple(15, 10))
+		assert_equal(10, NumberUtils.ceil_multiple(1, 10))
 	end
 
 end

data/test/glue/tc_property.rb

@@ -6,8 +6,6 @@ require 'og'
 require 'glue/logger'
 require 'glue/property'
 
-include N
-
 def VarChar(size)
 	return String, :sql => "VARCHAR(#{ size })"
 end
@@ -95,4 +93,4 @@ class TC_N_Properties < Test::Unit::TestCase
 	
 end
 
-end # module
+end

data/test/glue/tc_property_mixins.rb

@@ -1,15 +1,10 @@
-#! /usr/bin/env ruby
-# vim:sw=2:ai
-
-#--
-# Thomas Quas  <tquas@yahoo.com>
-# George Moschovitis  <gm@navel.gr>
-# $Id$
-#++
+# * Thomas Quas  <tquas@yahoo.com>
+# * George Moschovitis  <gm@navel.gr>
+# $Id: tc_property_mixins.rb 1 2005-04-11 11:04:30Z gmosx $
 
 $LOAD_PATH.unshift 'lib'
 
-require "test/unit"
+require 'test/unit'
 require 'glue/property'
 
 module Mixin

data/test/glue/tc_property_type_checking.rb

@@ -5,7 +5,7 @@ require 'test/unit'
 require 'glue/logger'
 require 'glue/property'
 
-N::Property.type_checking = true
+Glue::Property.type_checking = true
 
 module Test # :nodoc: all
 

data/test/glue/tc_strings.rb

@@ -1,30 +1,29 @@
-# :nodoc: all
 
-require "test/unit"
-require "glue/string"
+require 'test/unit'
+require 'glue/string'
 
-class TC_StringUtilsUtils < Test::Unit::TestCase
-	# :nodoc: all
+class TCStringUtilsUtils < Test::Unit::TestCase # :nodoc: all
+	include Glue
 
 	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))
+		assert_equal(true, StringUtils.valid?("test"))
+		assert_equal(false, StringUtils.valid?(""))
+		assert_equal(false, 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))
+		assert_equal(nil, StringUtils.head(nil))
+		assert_equal("this...", StringUtils.head(@s, 3))
+		assert_equal("this+++", StringUtils.head(@s, 3, false, "+++"))
+		assert_equal("thi...", StringUtils.head(@s, 3, true))
+		assert_equal("this is...", StringUtils.head(@s, 8))
+		assert_equal(nil, StringUtils.head(@s, 0))
+		assert_equal(nil, StringUtils.head(@s, 0, true))
+		assert_equal("this is...", StringUtils.head(@s, 8, true))
 	end
 
 	def test_rewrite
@@ -34,65 +33,65 @@ class TC_StringUtilsUtils < Test::Unit::TestCase
 			[/^games/, "../../games"],
 			[/^tmp/, "/n/theseas/var/tmp"],
 		]
-		string = N::StringUtils.rewrite("games/arkanoid.html", rules)
+		string = StringUtils.rewrite("games/arkanoid.html", rules)
 		assert_equal("../../games/arkanoid.html", string)
-		string = N::StringUtils.rewrite("tmp/garbage.html", rules)
+		string = StringUtils.rewrite("tmp/garbage.html", rules)
 		assert_equal("/n/theseas/var/tmp/garbage.html", string)
-		string = N::StringUtils.rewrite("root/index.html", rules)
+		string = 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_equal(nil, StringUtils.rewrite(nil, rules))
+		assert_equal("", StringUtils.rewrite("", rules))
 
 		assert_raises(ArgumentError) {
-			assert_equal("koko", N::StringUtils.rewrite("koko", nil))
+			assert_equal("koko", StringUtils.rewrite("koko", nil))
 		}
 
 		# bug: should keep order
-		s = N::StringUtils.rewrite("/$/koko.html", rules)
+		s = 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, " "))
+		assert_equal(r, StringUtils::wrap(s, 4, " "))
 
 		s = "111111111111111111111111111111111111111111111111"
 		r = "1111111111 1111111111 1111111111 1111111111 11111111"
-		assert_equal(r, N::StringUtils::wrap(s, 10, " "))
+		assert_equal(r, 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, " "))
+		assert_equal(r, 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, " "))
+		assert_equal(r, 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(r, StringUtils::wrap(s, 4, " "))
 
-		assert_equal("", N::StringUtils::wrap("", 4, " "))
-		assert_equal(nil, N::StringUtils::wrap(nil, 4, " "))
+		assert_equal("", StringUtils::wrap("", 4, " "))
+		assert_equal(nil, StringUtils::wrap(nil, 4, " "))
 	end
 =begin
 	def test_rationalize_filename
-		filename = N::StringUtils.rationalize_filename("hello my friend!.gif")
+		filename = StringUtils.rationalize_filename("hello my friend!.gif")
 		assert_equal("hello-my-friend.gif", filename)
-		filename = N::StringUtils.rationalize_filename("���� ����.gif")
+		filename = StringUtils.rationalize_filename("���� ����.gif")
 		assert_equal("pame-pali.gif", filename)
-		filename = N::StringUtils.rationalize_filename("�� ���.gif")
+		filename = StringUtils.rationalize_filename("�� ���.gif")
 		assert_equal("ti-les.gif", filename)
 
 		# bug:
-		filename = N::StringUtils.rationalize_filename("image-(10).gif")
+		filename = 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()
+		s1 = StringUtils.random()
+		s2 = StringUtils.random()
 		assert_not_equal(s1, s2)
 		assert(s1.size == s2.size)
 	end

data/test/glue/tc_validation.rb

@@ -6,12 +6,13 @@ require 'glue'
 require 'glue/property'
 require 'glue/validation'
 
-N::Property.type_checking = false
+Glue::Property.type_checking = false
 
 class TC_Validation < Test::Unit::TestCase # :nodoc: all
-
+	include Glue
+	
 	# Override the default error message
-	N::Validation::Errors.invalid_format = 'INVALID'
+	Validation::Errors.invalid_format = 'INVALID'
 
 	module Mixin
 		prop_accessor :value, String

data/vendor/breakpoint.rb

@@ -21,7 +21,7 @@ require 'drb'
 require 'drb/acl'
 
 module Breakpoint
-  id = %q$Id: breakpoint.rb 92 2005-02-04 22:35:53Z flgr $
+  id = %q$Id: breakpoint.rb 1 2005-04-11 11:04:30Z gmosx $
   Version = id.split(" ")[2].to_i
 
   extend self

data/vendor/breakpoint_client.rb

@@ -70,7 +70,7 @@ ARGV.options do |opts|
   opts.on("-v", "--version",
     "Display the version information."
   ) do
-    id = %q$Id: breakpoint_client.rb 91 2005-02-04 22:34:08Z flgr $
+    id = %q$Id: breakpoint_client.rb 1 2005-04-11 11:04:30Z gmosx $
     puts id.sub("Id: ", "")
     puts "(Breakpoint::Version = #{Breakpoint::Version})"
     exit

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.8.10
 specification_version: 1
 name: glue
 version: !ruby/object:Gem::Version 
-  version: 0.15.0
-date: 2005-04-04
+  version: 0.16.0
+date: 2005-04-18
 summary: Glue utilities
 require_paths: 
   - lib
@@ -21,72 +21,74 @@ required_ruby_version: !ruby/object:Gem::Version::Requirement
     - 
       - ">="
       - !ruby/object:Gem::Version 
-        version: 1.8.1
+        version: 1.8.2
   version: 
 platform: ruby
 authors: 
   - George Moschovitis
 files: 
+  - CHANGELOG
   - Rakefile
   - INSTALL
-  - CHANGELOG
   - README
   - install.rb
+  - doc/RELEASES
   - doc/LICENSE
   - doc/AUTHORS
-  - doc/RELEASES
-  - lib/glue.rb
   - lib/glue
-  - lib/glue/mixins.rb
+  - lib/glue.rb
   - lib/glue/logger.rb
-  - lib/glue/pool.rb
-  - lib/glue/inflector.rb
+  - lib/glue/array.rb
+  - lib/glue/validation.rb
+  - lib/glue/flexob.rb
   - lib/glue/hash.rb
-  - lib/glue/number.rb
-  - lib/glue/time.rb
   - lib/glue/property.rb
+  - lib/glue/inflector.rb
+  - lib/glue/number.rb
+  - lib/glue/dynamic_include.rb
+  - lib/glue/aspects.rb
   - lib/glue/misc.rb
-  - lib/glue/flexob.rb
+  - lib/glue/time.rb
+  - lib/glue/attribute.rb
   - lib/glue/cache.rb
   - lib/glue/string.rb
-  - lib/glue/dynamic_include.rb
   - lib/glue/object.rb
-  - lib/glue/array.rb
-  - lib/glue/validation.rb
-  - lib/glue/attribute.rb
+  - lib/glue/mixins.rb
+  - lib/glue/pool.rb
   - test/glue
   - test/glue/tc_strings.rb
-  - test/glue/tc_property_type_checking.rb
-  - test/glue/tc_logger.rb
   - test/glue/tc_validation.rb
-  - test/glue/tc_property.rb
-  - test/glue/tc_hash.rb
-  - test/glue/tc_attribute.rb
+  - test/glue/tc_numbers.rb
   - test/glue/tc_property_mixins.rb
+  - test/glue/tc_logger.rb
+  - test/glue/tc_aspects.rb
+  - test/glue/tc_property_type_checking.rb
   - test/glue/tc_cache.rb
-  - test/glue/tc_numbers.rb
-  - vendor/breakpoint_client.rb
+  - test/glue/tc_hash.rb
+  - test/glue/tc_attribute.rb
+  - test/glue/tc_property.rb
   - vendor/extensions
   - vendor/binding_of_caller.rb
-  - vendor/blankslate.rb
   - vendor/breakpoint.rb
+  - vendor/blankslate.rb
   - vendor/README
+  - vendor/breakpoint_client.rb
+  - vendor/extensions/kernel.rb
+  - vendor/extensions/array.rb
   - vendor/extensions/enumerable.rb
-  - vendor/extensions/all.rb
   - vendor/extensions/hash.rb
-  - vendor/extensions/continuation.rb
   - vendor/extensions/module.rb
-  - vendor/extensions/binding.rb
+  - vendor/extensions/numeric.rb
   - vendor/extensions/ostruct.rb
-  - vendor/extensions/kernel.rb
   - vendor/extensions/class.rb
-  - vendor/extensions/numeric.rb
-  - vendor/extensions/_base.rb
-  - vendor/extensions/io.rb
+  - vendor/extensions/symbol.rb
   - vendor/extensions/string.rb
   - vendor/extensions/object.rb
-  - vendor/extensions/array.rb
-  - vendor/extensions/symbol.rb
+  - vendor/extensions/io.rb
+  - vendor/extensions/all.rb
+  - vendor/extensions/_base.rb
+  - vendor/extensions/binding.rb
+  - vendor/extensions/continuation.rb
   - vendor/extensions/_template.rb
 test_files: []
 rdoc_options: 
@@ -97,31 +99,11 @@ rdoc_options:
   - "--all"
   - "--inline-source"
 extra_rdoc_files: 
+  - CHANGELOG
   - Rakefile
   - INSTALL
-  - CHANGELOG
   - README
 executables: []
 extensions: []
 requirements: []
-dependencies: 
-  - !ruby/object:Gem::Dependency 
-    name: extensions
-    version_requirement: 
-    version_requirements: !ruby/object:Gem::Version::Requirement 
-      requirements: 
-        - 
-          - ">="
-          - !ruby/object:Gem::Version 
-            version: "0.5"
-      version: 
-  - !ruby/object:Gem::Dependency 
-    name: flexmock
-    version_requirement: 
-    version_requirements: !ruby/object:Gem::Version::Requirement 
-      requirements: 
-        - 
-          - ">="
-          - !ruby/object:Gem::Version 
-            version: 0.0.3
-      version: 
+dependencies: []