thingtank 0.0.1

data/test/test_fakebase.rb

@@ -0,0 +1,389 @@
+require 'helper'
+
+describe "should role a CouchRest::Database" do
+
+  it "create a couchrest doc" do
+    
+    doc = CouchRest::Document.new("_id" => 'test', "_rev" => 'hiho')
+    assert !doc.new?
+  end
+
+  it "create an couchrest model" do
+    
+    doc = Testmodel.new({"_id" => 'test', "_rev" => 'hiho'}, :directly_set_attributes => true)
+    assert !doc.new?
+  end
+
+  it "should role" do
+    doc = create :a => 'A', :b => 'B'
+    role = doc.to_role(Check)
+    assert_equal "pong", role.ping
+    assert_equal "A", role.a
+    assert_equal "A", role["a"]
+  end
+
+
+  it "should update a role" do
+    doc = create :a => 'A', :b => 'B', :roles => ['Check']
+    role = doc.to_role(Check)
+    assert_equal false, role.new?
+    role.c = "C"
+    role.save
+    doc.reload
+    assert_equal "ThingTank", doc["type"]
+    assert_equal "B", doc["b"]
+    assert_equal "C", doc["c"]
+    assert_equal true, doc["check_saved"]
+    assert_equal true, doc["check_updated"]
+    assert doc["check_created"].nil?
+  end
+
+  it "should create a role, based on doc that did not have this role" do    
+    doc = create :a => 'A', :b => 'B'
+    role = doc.add_role(Check)
+    assert role.new?, "role should be new when freshly added"
+    role.c = "C"
+    doc.save
+    doc.reload
+    assert_equal "ThingTank", doc["type"]
+    assert_equal "B", doc["b"]
+    assert_equal "C", doc["c"]
+    assert_equal true, doc["check_saved"]
+    assert_equal true, doc["check_created"]
+    assert doc["check_updated"].nil?
+
+    doc.reload
+    role = doc.to_role(Check)
+    assert_equal false, role.new?
+  end
+
+  it "should create a role, based on a new doc" do
+    doc = new :a => 'A', :b => 'B', :roles => ['Check']
+    role = doc.to_role(Check)
+    assert role.new?
+    role.c = "C"
+    role.save
+    assert_equal false, role.changed?
+    doc.reload
+    assert_equal "ThingTank", doc["type"]
+    assert_equal "B", doc["b"]
+    assert_equal "C", doc["c"]
+    assert_equal true, doc["check_saved"]
+    assert_equal true, doc["check_created"]
+    assert doc["check_updated"].nil?
+
+    doc.reload
+    role = doc.to_role(Check)
+    assert_equal false, role.new?
+    assert_equal false, role.changed?
+  end
+
+  it "should not be valid if the requirements aren't met" do    
+    doc = new 
+    role = doc.to_role(Check)
+    assert !role.valid?
+  end
+
+  it "should be able to access other roles and autosave the accessed roles if they are not saved by themselves" do    
+    doc = new :a => 'A'
+    role = doc.to_role(Check)
+    role.access_other_role
+    doc.save
+    doc.reload
+    assert_equal "I was here", doc["checker1"]
+    assert_equal true, doc["roles"].include?(Checker.to_s)
+    assert_equal true, doc["roles"].include?(Check.to_s)
+  end
+
+  it "should not be able to save properties we don't have" do
+    doc = new :a => 'A'
+    role = doc.to_role(Check)
+    role.set_properties_we_don_t_have
+
+    assert_raises RuntimeError do
+      role.save
+    end
+  end
+
+  it "should be able to save properties of the doc" do    
+    doc = new :a => 'A'
+    role = doc.to_role(Check)
+    role.set_properties_of_doc
+    role.save
+    doc.reload
+    assert_equal "got it", doc["ooops"]
+  end
+
+  it "should only destroy it's own properties" do
+    doc = create :a => 'A', :c => 'C', :b => 'B', :shared => 'keep me too', :checker1 => 'keep me!', :roles => ['Check', 'Checker']
+    role = doc.to_role(Check)
+    doc.save
+    doc.reload
+    assert 'A', doc["a"]
+    assert 'C', doc["c"]
+    assert_equal "keep me!", doc["checker1"]
+    assert_equal "keep me too", doc["shared"]
+    assert doc["roles"].include?(Check.to_s)
+
+    # now destroy Check
+    role = doc.to_role(Check)
+    role.destroy
+    doc.save
+    doc.reload
+    assert_equal ['Checker'], doc["roles"]
+    assert_equal "B", doc["b"]
+    assert_equal "keep me!", doc["checker1"]
+    assert_equal "keep me too", doc["shared"]
+    assert doc["a"].nil?
+  end
+
+  it "should trying to make a role from a property" do
+    doc = create :simple => { :a => 'A', :c => 'C', :b => 'B', :roles => ['Check']}, :checker1 => 'keep me!', :roles => ['Checker']
+    role = doc.to_role(Check,'simple')
+    role.c = "BC"
+    doc.save
+    assert_equal "BC", doc["simple"]["c"]
+    assert doc["simple"]["check_saved"]
+  end
+
+  it "should trying to make a array of roles from a property" do
+    doc = create :simple => [{ :a => 'A1', :c => 'C1', :b => 'B1', :roles => ['Check']}, { :a => 'A2', :c => 'C2', :b => 'B2', :roles => ['Check']}], :checker1 => 'keep me!', :roles => ['Checker']
+    roles = doc.to_role(Check, 'simple')
+    roles.each do |fk|
+      fk.c = fk.c.downcase
+    end
+       
+    doc.save
+    assert_equal "c1", doc["simple"].first["c"]
+    assert doc["simple"].first["check_saved"]
+    assert_equal "c2", doc["simple"].last["c"]
+    assert doc["simple"].last["check_saved"]
+  end
+
+
+  it "should also possible to use a role as property of a role" do
+    checks = [{ :a => 'A1', :c => 'C1', :b => 'B1', :roles => ['Check']}, { :a => 'A2', :c => 'C2', :b => 'B2', :roles => ['Check']}]
+    doc = create :checker1 => checks, :roles => ['Checker']
+    role = doc.to_role(Checker)
+
+    role.to_role(Check, 'checker1').each do |fk|
+      fk.c = fk.c.downcase
+    end
+
+    doc.save
+    assert_equal "c1", doc["checker1"].first["c"]
+    assert_equal "c2", doc["checker1"].last["c"]
+  end
+
+  it "should also possible to use a role as property of anotherone" do
+    doc = create :simple => { :a => 'AAAA', :c => {:checker1 => 'modify me!!!!!', :roles => ['Checker']}, :b => 'B', :roles => ['Check']}
+    role1 = doc.to_role(Check, 'simple')
+    role2 = role1.to_role(Checker, 'c')
+    role2.checker1 = "modified!!!!"
+    doc.save
+    assert_equal "modified!!!!", doc["simple"]["c"]["checker1"]
+  end
+
+  it "should also possible to use a role as property of anotherone (array)" do
+    doc = create :simple => { :a => 'AAAA', :c => [{:checker1 => 'mod1', :roles => ['Checker']},{:checker1 => 'mod2', :roles => ['Checker']}], :b => 'B', :roles => ['Check']}
+    role1 = doc.to_role(Check, 'simple')
+    roles = role1.to_role(Checker, 'c')
+    roles.each do |fk|
+      fk.checker1 = fk.checker1.upcase
+    end
+
+    doc.save
+    assert_equal "MOD1", doc["simple"]["c"].first["checker1"]
+    assert_equal "MOD2", doc["simple"]["c"].last["checker1"]
+  end
+
+  it "should also possible to use a role as property of anotherone (array.save)" do
+    doc = create :simple => { :a => 'AAAA', :c => [{:checker1 => 'mod1', :roles => ['Checker']},{:checker1 => 'mod2', :roles => ['Checker']}], :b => 'B', :roles => ['Check']}
+    role1 = doc.to_role(Check, 'simple')
+    roles = role1.to_role(Checker, 'c')
+    roles.each do |fk|
+      fk.checker1 = fk.checker1.upcase
+    end
+
+    # saves only the first
+    roles.first.save
+    assert_equal "MOD1", doc["simple"]["c"].first["checker1"]
+    assert_equal "mod2", doc["simple"]["c"].last["checker1"]
+    
+    # saves all
+    doc.save
+    assert_equal "MOD1", doc["simple"]["c"].first["checker1"]
+    assert_equal "MOD2", doc["simple"]["c"].last["checker1"]
+  end
+
+  it "should also possible to use a role as property of anotherone (destroy hook)" do
+    doc = create :simple => { :a => 'AAAA', :c => {:checker1 => 'modify me!!!!!', :roles => ['Checker'], :a => 'A'}, :b => 'B', :roles => ['Check', 'Checker']}
+    role1 = doc.to_role(Check, 'simple')
+    role2 = role1.to_role(Checker, 'c')
+    role2.destroy
+    doc.save
+    assert_equal 'A', doc["simple"]["c"]["a"]
+    assert doc["simple"]["c"]["checker1"].nil?
+  end
+
+
+  it "should also possible to use a role as property of anotherone (array. trigger destroy hook)" do
+    doc = create :simple => { :a => 'AAAA', :c => [{:checker1 => 'mod1', :a => 'A', :roles => ['Checker']},{:checker1 => 'mod2', :roles => ['Checker']}], :b => 'B', :roles => ['Check']}
+    role1 = doc.to_role(Check, 'simple')
+    f = role1.first_role(Checker, 'c')
+
+    assert_equal 'mod1', doc["simple"]["c"].first["checker1"]
+    assert_equal 'A', doc["simple"]["c"].first["a"]
+
+
+    assert_equal 'mod1', f.checker1
+    f.destroy
+    assert_equal nil, f.checker1
+    assert_equal 'A', f._role_doc["a"]
+    doc.save
+    doc.reload
+
+    assert_equal nil, doc["simple"]["c"].first["checker1"]
+    assert_equal 'A', doc["simple"]["c"].first["a"]
+  end
+
+
+  it "should allow adding of a role as property with properties directly set" do
+    doc = create 
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A'
+    end
+  
+    assert_equal 'A', doc["check"]["a"]
+  end
+
+  it "should allow adding of a role as property without properties directly set" do
+    doc = create 
+    doc.add_role(Check, 'check')
+    
+    doc.last_role(Check, 'check') do |c|
+      c.a = 'A'
+    end
+
+    doc.last_role(Check, 'check') do |c|
+      c.c = 'C'
+    end
+
+  
+    assert_equal 'A', doc["check"]["a"]
+    assert_equal 'C', doc["check"]["c"]
+  end
+
+  it "should allow adding of a role as property multiple times transforming into an array by the way" do
+    doc = create 
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A1'
+    end
+
+    assert_equal 'A1', doc["check"]["a"]
+    
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A2'
+    end
+
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A3'
+    end
+
+    assert_equal 'A1', doc["check"].first["a"]
+    assert_equal 'A2', doc["check"][1]["a"]
+    assert_equal 'A3', doc["check"].last["a"]
+  end
+
+  it "should allow adding of a role of a role as property with properties directly set 1" do
+    doc = create 
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A'
+    end
+
+    role = doc.to_role(Check, 'check')
+
+    role.add_role(Checker, 'sub') do |ck|
+      ck.checker1 = 'hiho'
+    end
+
+    assert_equal 'hiho', doc["check"]["sub"]["checker1"]
+
+    role.add_role(Checker, 'sub') do |ck|
+      ck.checker1 = 'hoho'
+    end
+
+  
+    assert_equal 'A', doc["check"]["a"]
+    assert_equal 'hiho', doc["check"]["sub"].first["checker1"]
+    assert_equal 'hoho', doc["check"]["sub"].last["checker1"]
+  end
+
+
+  it "should allow adding of a role of a role as property with properties directly set 2" do
+    doc = create 
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A1'
+    end
+
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A2'
+    end
+
+
+    role1 = doc.first_role(Check, 'check')
+
+    role1.add_role(Checker, 'sub') do |ck|
+      ck.checker1 = 'A1sub1'
+    end
+
+    assert_equal 'A1sub1', doc["check"].first["sub"]["checker1"]
+
+    role1.add_role(Checker, 'sub') do |ck|
+      ck.checker1 = 'A1sub2'
+    end
+
+    role2 = doc.last_role(Check, 'check')
+
+    role2.add_role(Checker, 'sub') do |ck|
+      ck.checker1 = 'A2sub1'
+    end
+
+    assert_equal 'A2sub1', doc["check"].last["sub"]["checker1"]
+
+    role2.add_role(Checker, 'sub') do |ck|
+      ck.checker1 = 'A2sub2'
+    end
+
+
+    assert_equal 'A1sub1', doc["check"].first["sub"].first["checker1"]
+    assert_equal 'A1sub2', doc["check"].first["sub"].last["checker1"]
+    assert_equal 'A2sub1', doc["check"].last["sub"].first["checker1"]
+    assert_equal 'A2sub2', doc["check"].last["sub"].last["checker1"]
+
+  
+    assert_equal 'A1', doc["check"].first["a"]
+    assert_equal 'A2', doc["check"].last["a"]
+  end
+
+
+  it "should allow adding of a role as property without properties directly set" do
+    doc = create 
+    doc.add_role(Check, 'check') do |c|
+      c.a = 'A'
+    end
+    
+    role1 = doc.last_role(Check, 'check')
+
+    role1.add_role(Checker, 'sub')
+
+    role1.last_role(Checker, 'sub') do |ck|
+      ck.checker1 = 'A1sub1'
+    end
+
+    assert_equal 'A', doc["check"]["a"]
+    assert_equal 'A1sub1', doc["check"]["sub"]["checker1"]
+  end
+
+end
+

data/test/test_thingtank.rb

@@ -0,0 +1,282 @@
+require 'helper'
+
+class DrivingLicense < ThingTank::Role
+  property :date_of_driving_license, String
+  property :driving_license_state
+  property :tester
+
+  def driving_license_valid?
+    self["tester"] = "huha"
+    self["driving_license_state"] == "valid"
+  end
+
+
+  before_save do
+    #p :before_save_licence
+    true
+  end
+end
+
+class Car < ThingTank::Role  
+  property :color,     String
+  property :model,     String
+
+  wants DrivingLicense
+
+  validates_presence_of :model
+  validates_presence_of :color
+
+  before_save do
+    #p :before_save_car
+    true
+  end
+end
+
+
+describe "a general test" do
+  
+  before do
+    reset_test_db!    
+  end
+
+  it "should work with with" do
+    doc = create 
+    doc.with('check') do |c|
+      c.as(Check).a = 'A'
+      c.as(Checker).checker1 = 'C'
+    end
+
+    assert_equal 'A', doc['check']['a']
+    assert_equal 'C', doc['check']['checker1']
+  end
+
+  it "should work with 'with' and doc ids" do
+    first = create :name => 'A thing'
+    doc = create 'my_thing' => first.id
+    doc.with 'my_thing' do |c|
+      assert_equal 'A thing', c["name"]
+      c["name"] = 'renamed'
+    end
+
+    first.reload
+    assert_equal 'renamed', first["name"]
+  end
+
+  it "should work with with and subs" do
+    doc = create 
+    doc.with('check') do |c|
+      c.with('sub') do |s|
+        s.as(Check).a = 'subA'
+        s.as(Checker).checker1 = 'subC'
+      end
+      c.as(Check).a = 'A'
+      c.as(Checker).checker1 = 'C'
+    end
+
+    assert_equal 'A', doc['check']['a']
+    assert_equal 'C', doc['check']['checker1']
+    assert_equal 'subA', doc['check']['sub']['a']
+    assert_equal 'subC', doc['check']['sub']['checker1']
+  end
+
+  it "should work with with and subs" do
+    doc = create 'check' => []
+    doc.with_first('check') do |c|
+      c.with('sub1') do |s|
+        s.as(Check).a = 'sub1A'
+        s.as(Checker).checker1 = 'sub1C'
+      end
+      c.as(Check).a = 'A1'
+      c.as(Checker).checker1 = 'C1'
+    end
+
+    doc["check"] << {}
+
+    doc.with_last('check') do |c|
+      c.with('sub2') do |s|
+        s.as(Check).a = 'sub2A'
+        s.as(Checker).checker1 = 'sub2C'
+      end
+      c.with('sub3') do |s|
+        s.as(Check).a = 'sub3A'
+        s.as(Checker).checker1 = 'sub3C'
+      end
+      c.as(Check).a = 'A2'
+      c.as(Checker).checker1 = 'C2'
+    end
+
+    doc.with_first('check') do |c|
+      c.as(Check).a = 'A-changed'
+    end
+
+    assert_equal 'A-changed', doc['check'].first['a']
+    assert_equal 'C1', doc['check'].first['checker1']
+    assert_equal 'sub1A', doc['check'].first['sub1']['a']
+    assert_equal 'sub1C', doc['check'].first['sub1']['checker1']
+
+    assert_equal 'A2', doc['check'].last['a']
+    assert_equal 'C2', doc['check'].last['checker1']
+    assert_equal 'sub2A', doc['check'].last['sub2']['a']
+    assert_equal 'sub2C', doc['check'].last['sub2']['checker1']
+
+    assert_equal 'sub3A', doc['check'].last['sub3']['a']
+    assert_equal 'sub3C', doc['check'].last['sub3']['checker1']
+  end
+
+
+  it "make the changed test" do
+    doc = create :a => "A", :roles => ["Check"]
+    assert doc.is? Check
+    assert !doc.as(Check).changed?
+    chk = doc.as(Check) do |c|
+      c.a = 'AAA'
+    end
+
+    assert_equal false, chk.changed?
+    assert_equal 'AAA', doc["a"]
+
+    doc["a"] = 'AA'
+
+    assert_equal 'AA', doc["a"]
+    assert_equal 'AA', chk.reload["a"]
+    assert_equal 'AA', doc.as(Check)["a"]
+    doc.save
+    doc.reload
+    assert_equal 'AA', doc["a"]
+  end
+
+  it "should export a property to its doc" do
+    other = { "sub" => "hash" }
+    doc = create :weather => "fine", :other => other
+    assert_equal other, doc["other"]
+    doc.export "other"
+    doc2 = load doc["other_id"]
+    assert_equal "fine", doc["weather"]
+    assert_equal "hash", doc2["sub"]
+    assert_equal nil, doc["other"]
+  end
+
+  it "should allow same access if property is a thing or if it is a array of things or if it is a Hash" do
+    doc = create "thingie" => "hiho"
+    assert_equal "hiho", doc["thingie"]
+    doc["thingie"] = ["huhu", "hiho"]
+    doc.save
+    doc.reload
+    assert_equal ["huhu", "hiho"], doc["thingie"]
+    doc["thingie"] = { "hi" => "ho" }
+    doc.save
+    doc.reload
+    assert_equal({ "hi" => "ho" }, doc["thingie"])
+  end
+
+  it "can play a car" do
+    doc = create :color => 'black', :model => 'Carrera', :roles => ['Car']
+    assert_equal true, doc.is?(Car)
+  end
+
+  it "cannot be a car" do
+    doc = create :model => 'Carrera'
+    doc["roles"] = ['Car']
+    assert_equal false, doc.is?(Car)
+    assert_equal ["Car"], doc.invalid_roles
+    #assert_raises RuntimeError do
+    #  doc.save
+    #end
+    doc["color"] = 'blue'
+    assert_equal true, doc.is?(Car)
+    assert_equal [], doc.invalid_roles
+    doc.save
+    doc.reload
+    assert_equal true, doc.is?(Car)
+
+    doc = create :color => 'black', :model => 'Carrera'
+    assert_equal false, doc.is?(Car)
+  end
+
+  it "could be a car" do
+    doc = create :color => 'black', :model => 'Carrera'
+    assert_equal true, doc.could_be?(Car)
+  end
+
+  it "should wish a driving license" do
+    assert_equal [DrivingLicense], Car.wishes
+  end
+
+  it "should have a driving license" do
+    doc = create :date_of_driving_license => Time.now.to_s, :driving_license_state => 'valid'
+    assert !doc.has?(DrivingLicense)
+    doc.have(DrivingLicense) do |licence|
+      assert_equal true, licence.driving_license_valid?
+    end
+    assert doc.has?(DrivingLicense)
+    doc.save
+    assert_equal "huha", doc["tester"]
+    assert_equal [DrivingLicense], Car.wishes
+  end
+
+
+  #it "should try to validate something" do
+  #  doc = CouchRest::Document.new :hi => "ho"
+  #  p doc.valid?
+  #end
+
+end
+
+=begin
+describe "a thingtank" do
+
+  before do
+    #skip "temporary disabled"
+    reset_test_db!
+  end
+
+  after do
+  end
+  
+  it "should allow same access if property is a thing or if it is a array of things" do
+  end
+
+  it "should allow same access if property is a thing or if it is the doc_id of a thing" do
+  end
+
+  it "should allow same access if property is a array of things or if it is array of doc_ids that are things" do
+  end
+
+  it "should be able to change the name of a property" do
+  end
+
+  it "should be able to share properties with different roles" do
+  end
+
+  it "should trigger all affected callbacks when a property is shared between roles" do
+  end
+
+  it "should allow an alias for a property if the property needs disambiguation between the different meanings for the different roles" do
+  end
+
+  it "should allow general handlers for roles that only are affected if a doc fits to a role and ignore the docs otherwise" do
+  end
+
+  it "should allow views that handle only the chosen roles" do
+  end
+
+  it "should recommend interesting new roles" do
+  end
+
+  it "should validate with validatable" do
+  end
+
+  it "should convert basic types as Time" do
+  end
+
+  it "should handle pagination" do
+  end
+
+  it "should have roles" do
+  end
+
+end
+
+
+
+=end