remodel-h 0.1.4

data/test/test_many_to_many.rb

@@ -0,0 +1,77 @@
+require 'helper'
+
+class TestManyToMany < Test::Unit::TestCase
+
+  class Person < Remodel::Entity
+    has_many :groups, :class => 'TestManyToMany::Group', :reverse => 'members'
+    property :name
+  end
+
+  class Group < Remodel::Entity
+    has_many :members, :class => 'TestManyToMany::Person', :reverse => 'groups'
+    property :name
+  end
+
+  context "both associations" do
+    should "be empty by default" do
+      assert_equal [], Person.new.groups
+      assert_equal [], Group.new.members
+    end
+
+    context "create" do
+      should "add a new group to both associations" do
+        tim = Person.create :name => 'tim'
+        rugb = tim.groups.create :name => 'rug-b'
+        assert_equal [tim], rugb.members
+      end
+
+      should "add a new person to both associations" do
+        rugb = Group.create :name => 'rug-b'
+        tim = rugb.members.create :name => 'tim'
+        assert_equal [rugb], tim.groups
+      end
+    end
+
+    context "add" do
+      setup do
+        @tim = Person.create :name => 'tim'
+        @rugb = Group.create :name => 'rug-b'
+      end
+
+      should "add a new group to both associations" do
+        @tim.groups.add(@rugb)
+        assert_equal [@tim], @rugb.members
+        assert_equal [@rugb], @tim.groups
+      end
+
+      should "add a new person to both associations" do
+        @rugb.members.add(@tim)
+        assert_equal [@tim], @rugb.members
+        assert_equal [@rugb], @tim.groups
+      end
+    end
+
+    context "remove" do
+      setup do
+        @tim = Person.create :name => 'tim'
+        @rugb = @tim.groups.create(:name => 'rug-b')
+        @erlang = @tim.groups.create(:name => 'erlang')
+        @aws = @tim.groups.create(:name => 'aws')
+      end
+
+      should "remove a group from both associations" do
+        @tim.groups.remove(@erlang)
+        assert_equal [@rugb, @aws], @tim.groups
+        assert_equal [], @erlang.members
+      end
+
+      should "remove a person from both associations" do
+        @erlang.members.remove(@tim)
+        assert_equal [@rugb, @aws], @tim.groups
+        assert_equal [], @erlang.members
+      end
+
+    end
+  end
+
+end

data/test/test_many_to_one.rb

@@ -0,0 +1,107 @@
+require 'helper'
+require 'json'
+
+class TestManyToOne < Test::Unit::TestCase
+
+  class Puzzle < Remodel::Entity
+    has_many :pieces, :class => 'TestManyToOne::Piece', :reverse => 'puzzle'
+    property :topic
+  end
+
+  class Piece < Remodel::Entity
+    has_one :puzzle, :class => 'TestManyToOne::Puzzle'
+    property :color
+  end
+
+  context "has_many" do
+    context "association" do
+      should "exist" do
+        assert Puzzle.create.respond_to?(:pieces)
+      end
+
+      should "return an empty list by default" do
+        assert_equal [], Puzzle.create.pieces
+      end
+
+      should "return any existing children" do
+        puzzle = Puzzle.create
+        red_piece = Piece.create(:color => 'red')
+        blue_piece = Piece.create(:color => 'blue')
+        value = JSON.generate([red_piece.key, blue_piece.key])
+        redis.hset context, "#{puzzle.key}:pieces", value
+        assert_equal 2, puzzle.pieces.size
+        assert_equal Piece, puzzle.pieces[0].class
+        assert_equal 'red', puzzle.pieces[0].color
+      end
+
+      context "create" do
+        should "have a create method" do
+          assert Puzzle.create.pieces.respond_to?(:create)
+        end
+
+        should "work without attributes" do
+          puzzle = Puzzle.create
+          piece = puzzle.pieces.create
+          assert piece.is_a?(Piece)
+        end
+
+        should "create and store a new child" do
+          puzzle = Puzzle.create
+          puzzle.pieces.create :color => 'green'
+          assert_equal 1, puzzle.pieces.size
+          puzzle.reload
+          assert_equal 1, puzzle.pieces.size
+          assert_equal Piece, puzzle.pieces[0].class
+          assert_equal 'green', puzzle.pieces[0].color
+        end
+
+        should "associate the created child with self" do
+          puzzle = Puzzle.create :topic => 'provence'
+          piece = puzzle.pieces.create :color => 'green'
+          assert_equal 'provence', piece.puzzle.topic
+        end
+      end
+
+      context "add" do
+        should "add the given entity to the association" do
+          puzzle = Puzzle.create
+          piece = Piece.create :color => 'white'
+          puzzle.pieces.add piece
+          assert_equal 1, puzzle.pieces.size
+          puzzle.reload
+          assert_equal 1, puzzle.pieces.size
+          assert_equal Piece, puzzle.pieces[0].class
+          assert_equal 'white', puzzle.pieces[0].color
+        end
+      end
+
+      context "find" do
+        setup do
+          @puzzle = Puzzle.create
+          5.times { @puzzle.pieces.create :color => 'blue' }
+        end
+
+        should "find the element with the given id" do
+          piece = @puzzle.pieces[2]
+          assert_equal piece, @puzzle.pieces.find(piece.id)
+        end
+
+        should "raise an exception if no element with the given id exists" do
+          assert_raises(Remodel::EntityNotFound) { @puzzle.pieces.find(-1) }
+        end
+      end
+
+    end
+  end
+
+  context "reload" do
+    should "reset has_many associations" do
+      puzzle = Puzzle.create
+      piece = puzzle.pieces.create :color => 'black'
+      redis.hdel context, "#{puzzle.key}:pieces"
+      puzzle.reload
+      assert_equal [], puzzle.pieces
+    end
+  end
+
+end

data/test/test_mappers.rb

@@ -0,0 +1,67 @@
+require 'helper'
+
+class Item < Remodel::Entity
+  property :boolean, :class => Boolean
+  property :string, :class => String
+  property :integer, :class => Integer
+  property :float, :class => Float
+  property :array, :class => Array
+  property :hash, :class => Hash
+  property :time, :class => Time
+  property :date, :class => Date
+end
+
+class TestMappers < Test::Unit::TestCase
+
+  context "create" do
+    setup do
+      @item = Item.create :time => Time.at(1234567890), :date => Date.parse("1972-06-16")
+    end
+
+    should "store unmapped values" do
+      assert_equal Time, @item.instance_eval { @attributes[:time].class }
+      assert_equal Date, @item.instance_eval { @attributes[:date].class }
+    end
+
+    should "not change mapped values" do
+      assert_equal Time.at(1234567890), @item.time
+      assert_equal Date.parse("1972-06-16"), @item.date
+    end
+
+    should "not change mapped values after reload" do
+      @item.reload
+      assert_equal Time.at(1234567890), @item.time
+      assert_equal Date.parse("1972-06-16"), @item.date
+    end
+
+    should "serialize mapped values correctly" do
+      json = redis.hget(context, @item.key)
+      assert_match /1234567890/, json
+      assert_match /"1972-06-16"/, json
+    end
+
+    should "handle nil values" do
+      item = Item.create
+      assert_nil item.boolean
+      assert_nil item.string
+      assert_nil item.integer
+      assert_nil item.float
+      assert_nil item.array
+      assert_nil item.hash
+      assert_nil item.time
+      assert_nil item.date
+    end
+
+    should "reject invalid types" do
+      assert_raise(Remodel::InvalidType) { Item.create :boolean => 'hello' }
+      assert_raise(Remodel::InvalidType) { Item.create :string => true }
+      assert_raise(Remodel::InvalidType) { Item.create :integer => 33.5 }
+      assert_raise(Remodel::InvalidType) { Item.create :float => 5 }
+      assert_raise(Remodel::InvalidType) { Item.create :array => {} }
+      assert_raise(Remodel::InvalidType) { Item.create :hash => [] }
+      assert_raise(Remodel::InvalidType) { Item.create :time => Date.new }
+      assert_raise(Remodel::InvalidType) { Item.create :date => Time.now }
+    end
+  end
+
+end

data/test/test_monkeypatches.rb

@@ -0,0 +1,30 @@
+require 'helper'
+
+class TestMonkeypatches < Test::Unit::TestCase
+
+  context "Boolean" do
+    should "be the superclass of both true and false" do
+      assert true.is_a?(Boolean)
+      assert false.is_a?(Boolean)
+    end
+  end
+
+  context "Class[]" do
+    should "return given Class objects" do
+      assert_equal String, Class[String]
+    end
+
+    should "return the Class object for a given String" do
+      assert_equal String, Class['String']
+    end
+
+    should "return the Class object for a given Symbol" do
+      assert_equal String, Class[:String]
+    end
+
+    should "work for nested classes" do
+      assert_equal Remodel::Entity, Class['Remodel::Entity']
+    end
+  end
+
+end

data/test/test_one_to_many.rb

@@ -0,0 +1,96 @@
+require 'helper'
+
+
+class TestOneToMany < Test::Unit::TestCase
+
+  class Piece < Remodel::Entity
+    has_one :puzzle, :class => 'TestOneToMany::Puzzle', :reverse => 'pieces'
+    property :color
+  end
+
+  class Puzzle < Remodel::Entity
+    has_many :pieces, :class => 'TestOneToMany::Piece', :reverse => 'puzzle'
+    property :topic
+  end
+
+  context "has_one" do
+    context "association getter" do
+      should "exist" do
+        assert Piece.create.respond_to?(:puzzle)
+      end
+
+      should "return nil by default" do
+        assert_nil Piece.create.puzzle
+      end
+
+      should "return the associated entity" do
+        puzzle = Puzzle.create :topic => 'animals'
+        piece = Piece.create
+        redis.hset(context, "#{piece.key}:puzzle", puzzle.key)
+        assert_equal 'animals', piece.puzzle.topic
+      end
+    end
+
+    context "association setter" do
+      should "exist" do
+        assert Piece.create.respond_to?(:'puzzle=')
+      end
+
+      should "store the key of the associated entity" do
+        puzzle = Puzzle.create
+        piece = Piece.create
+        piece.puzzle = puzzle
+        assert_equal puzzle.key, redis.hget(context, "#{piece.key}:puzzle")
+      end
+
+      should "add the entity to the reverse association" do
+        puzzle = Puzzle.create
+        piece = Piece.create
+        piece.puzzle = puzzle
+        assert_equal 1, puzzle.pieces.size
+        assert_equal piece.id, puzzle.pieces.first.id
+      end
+      
+      should "remove the entity from the old reverse association" do
+        puzzle = Puzzle.create
+        piece = puzzle.pieces.create
+        new_puzzle = Puzzle.create
+        piece.puzzle = new_puzzle
+        assert_equal [], puzzle.reload.pieces
+      end
+
+      should "be settable to nil" do
+        piece = Piece.create
+        piece.puzzle = nil
+        assert_nil piece.puzzle
+      end
+
+      should "remove the key if set to nil" do
+        piece = Piece.create
+        piece.puzzle = Puzzle.create
+        piece.puzzle = nil
+        assert_nil redis.hget(context, "#{piece.key}:puzzle")
+      end
+
+      should "remove the entity from the reverse association if set to nil" do
+        puzzle = Puzzle.create
+        piece = Piece.create
+        piece.puzzle = puzzle
+        piece.puzzle = nil
+        puzzle.reload
+        assert_equal 0, puzzle.pieces.size
+      end
+    end
+  end
+
+  context "reload" do
+    should "reset has_one associations" do
+      piece = Piece.create :color => 'black'
+      piece.puzzle = Puzzle.create
+      redis.hdel context, "#{piece.key}:puzzle"
+      piece.reload
+      assert_nil piece.puzzle
+    end
+  end
+
+end

data/test/test_one_to_one.rb

@@ -0,0 +1,57 @@
+require 'helper'
+
+class TestOneToOne < Test::Unit::TestCase
+
+  class Man < Remodel::Entity
+    has_one :wife, :class => 'TestOneToOne::Woman', :reverse => 'husband'
+    property :name
+  end
+
+  class Woman < Remodel::Entity
+    has_one :husband, :class => 'TestOneToOne::Man', :reverse => 'wife'
+    property :name
+  end
+
+  context "both associations" do
+    should "be nil by default" do
+      assert_equal nil, Man.new.wife
+      assert_equal nil, Woman.new.husband
+    end
+
+    context "setter" do
+      setup do
+        @bill = Man.create :name => 'Bill'
+        @mary = Woman.create :name => 'Mary'
+      end
+
+      context "non-nil value" do
+        should "also set husband" do
+          @bill.wife = @mary
+          assert_equal @bill, @mary.husband
+        end
+
+        should "also set wife" do
+          @mary.husband = @bill
+          assert_equal @mary, @bill.wife
+        end
+      end
+
+      context "nil value" do
+        setup do
+          @bill.wife = @mary
+        end
+
+        should "also clear husband" do
+          @bill.wife = nil
+          assert_equal nil, @mary.husband
+        end
+
+        should "also clear wife" do
+          @mary.husband = nil
+          assert_equal nil, @bill.wife
+        end
+      end
+    end
+  end
+
+end

metadata

@@ -0,0 +1,85 @@
+--- !ruby/object:Gem::Specification 
+name: remodel-h
+version: !ruby/object:Gem::Version 
+  version: 0.1.4
+platform: ruby
+authors: 
+- Tim Lossen
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-07-20 00:00:00 +02:00
+default_executable: redis-monitor.rb
+dependencies: []
+
+description: persist your objects to redis hashes.
+email: tim@lossen.de
+executables: 
+- redis-monitor.rb
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.md
+files: 
+- .gitignore
+- LICENSE
+- README.md
+- Rakefile
+- VERSION
+- bin/redis-monitor.rb
+- docs/docco.css
+- docs/remodel.html
+- example/book.rb
+- lib/remodel.rb
+- lib/remodel/entity.rb
+- lib/remodel/has_many.rb
+- lib/remodel/mapper.rb
+- remodel-h.gemspec
+- remodel.gemspec
+- test/helper.rb
+- test/test_entity.rb
+- test/test_many_to_many.rb
+- test/test_many_to_one.rb
+- test/test_mappers.rb
+- test/test_monkeypatches.rb
+- test/test_one_to_many.rb
+- test/test_one_to_one.rb
+has_rdoc: true
+homepage: http://github.com/tlossen/remodel
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --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.3.5
+signing_key: 
+specification_version: 3
+summary: remodel variant which uses hashes
+test_files: 
+- test/helper.rb
+- test/test_entity.rb
+- test/test_many_to_many.rb
+- test/test_many_to_one.rb
+- test/test_mappers.rb
+- test/test_monkeypatches.rb
+- test/test_one_to_many.rb
+- test/test_one_to_one.rb