MarkMenard-sattr_accessor 0.1.0

data/VERSION.yml

@@ -0,0 +1,4 @@
+--- 
+:patch: 0
+:major: 0
+:minor: 1

data/lib/sattr_accessor.rb

@@ -0,0 +1,50 @@
+class Class
+  
+  def sattr_reader (sym, options = {})
+    options = { :inheritable => false }.merge(options)
+    class_eval(<<-EOS, __FILE__, __LINE__)
+      def self.#{sym}
+        @#{sym}
+      end
+      
+      def #{sym}
+        result = self.class.#{sym}
+        #{
+        "
+        if result.is_a?(Array)
+          # Get the value from our ancestor if there is one.
+          if self.class.superclass.respond_to? :#{sym}
+            result << self.class.superclass.#{sym} if self.class.superclass.#{sym}.is_a?(Array)
+          end
+          result.flatten!
+        end
+        if result.is_a?(Hash)
+          # Get the value from our ancestor if there is one.
+          if self.class.superclass.respond_to? :#{sym}
+            result = self.class.superclass.#{sym}.merge(result) if self.class.superclass.#{sym}.is_a?(Hash)
+          end
+        end
+        " if options[:inheritable] }
+        result
+      end
+    EOS
+  end
+  
+  def sattr_writer (sym)
+    class_eval %Q{
+      def self.#{sym}= (value)
+        @#{sym} = value
+      end
+      
+      def #{sym}= (value)
+        self.class.#{sym} = value
+      end
+    }
+  end
+  
+  def sattr_accessor (sym, options = {})
+   sattr_reader(sym, options)
+   sattr_writer(sym)
+ end
+
+end

data/test/sattr_accessor_test.rb

@@ -0,0 +1,129 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class SattrAccessorTest < Test::Unit::TestCase
+  context "SingletonAttrExample1" do
+    setup do
+      @ob = SingletonAttrExample1.new
+      SingletonAttrExample1.name = '1'
+    end
+
+    should "have name == '1' " do
+      assert_equal @ob.name, '1'
+    end
+
+    context "with a SingletonAttrExample2" do
+      setup do
+        @ob2 = SingletonAttrExample2.new
+        SingletonAttrExample2.name = '2'
+      end
+
+      should "have name == '2'" do
+        assert_equal @ob2.name, '2'
+      end
+
+      context "instance changes name on SingletonAttrExample1 to '1prime' " do
+        setup do
+          @ob.name = '1prime'
+        end
+
+        context "SingletonAttrExample1" do
+          should "have name == '1prime'" do
+            assert_equal SingletonAttrExample1.name, '1prime'
+          end
+        end
+
+        context "SingletonAttrExample1 instance" do
+          should "have name == '1prime' " do
+            assert_equal @ob.name, '1prime'
+          end
+        end
+
+      end
+
+      context "SingletonAttrExample1" do
+        should "have name == '1' " do
+          assert_equal SingletonAttrExample1.name, '1'
+        end
+      end
+
+      context "SingletonAttrExample2 instance changes name" do
+        setup do
+          @ob2.name = '2prime'
+        end
+
+        context "SingletonAttrExample2 name" do
+          should "== '2prime'" do
+            assert_equal SingletonAttrExample2.name, '2prime'
+          end
+        end
+      end
+
+
+    end
+  end
+  
+  context "Using [] attributes in a hierarchy" do
+    setup do
+      @ex1 = SingletonAttrExample1.new
+      @ex2 = SingletonAttrExample2.new
+      @ex3 = SingletonAttrExample3.new
+      
+      @ex1.name = [ '1' ]
+      @ex2.name = [ '2' ]
+      @ex3.name = [ '3' ]
+    end
+    
+    context "@ex1.name" do
+      should "have one entry" do
+        puts @ex1.name.inspect
+        assert_equal @ex1.name.size, 1
+      end
+      
+      should "have a '1' entry in name" do
+        assert_equal @ex1.name[0], '1'
+      end
+    end
+    
+    context "@ex2.name" do
+      should "have 2 entries" do
+        puts "\n@ex2.name.inspect #{@ex2.name.inspect}"
+        puts "@ex2.name.size = #{@ex2.name.size}"
+        puts "@ex2.name.size = #{@ex2.name.size}"
+        puts "@ex2.name.size = #{@ex2.name.size}"
+        puts "@ex2.name.size = #{@ex2.name.size}"
+        puts "@ex2.name.size = #{@ex2.name.size}"
+        assert @ex2.name.size == 2, "@ex2.name.size = #{@ex2.name.size}"
+        assert @ex2.name.size == 2, "@ex2.name.size = #{@ex2.name.size}"
+        assert @ex2.name.size == 2, "@ex2.name.size = #{@ex2.name.size}"
+        assert @ex2.name.size == 2, "@ex2.name.size = #{@ex2.name.size}"
+      end
+      
+      should "should contain '1'" do
+        assert @ex2.name.any? { |v| v == '1' }
+      end
+    end
+    
+    context "@ex3.name" do
+      should "have 3 entries" do
+        puts "\n@ex3.name.inspect = #{@ex3.name.inspect}"
+        puts "@ex3.name.size = #{@ex3.name.size}"
+        assert_equal @ex3.name.size, 3
+      end
+    end
+    
+
+  end
+  
+
+end
+
+
+class SingletonAttrExample1
+  sattr_accessor :name, :inheritable => true
+end
+
+class SingletonAttrExample2 < SingletonAttrExample1
+end
+
+class SingletonAttrExample3 < SingletonAttrExample2
+end

data/test/test_helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require 'mocha'
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'sattr_accessor'
+
+class Test::Unit::TestCase
+end

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification 
+name: MarkMenard-sattr_accessor
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Mark Menard
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-02-06 00:00:00 -08:00
+default_executable: 
+dependencies: []
+
+description: TODO
+email: mark@mjm.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- VERSION.yml
+- lib/sattr_accessor.rb
+- test/sattr_accessor_test.rb
+- test/test_helper.rb
+has_rdoc: true
+homepage: http://github.com/MarkMenard/sattr_accessor
+post_install_message: 
+rdoc_options: 
+- --inline-source
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: TODO
+test_files: []
+