thingtank 0.0.1

data/lib/thingtank/shared_methods.rb

@@ -0,0 +1,63 @@
+class ThingTank 
+  module SharedMethods
+    def self.included(klass)
+      klass.class_eval do
+
+        # only export the changed properties
+        def changed_to_role_hash(exclude_roles=false)
+          skips = skip_keys(exclude_roles)
+          hsh = {}
+          changes.each do |key,arr|
+            _old, _new = arr
+            unless skips.include? key
+              hsh[key] = _new
+            end
+          end
+          hsh
+        end
+
+        def skip_keys(exclude_roles=false)
+          arr = %w|_id _rev type update_me updated_at created_at|
+          arr << 'roles' if exclude_roles
+          arr
+        end
+
+        def to_role_hash(exclude_roles=false)
+          hsh = to_hash
+          skip_keys(exclude_roles).each{ |k|  hsh.delete k }
+          hsh
+        end
+
+        def nth_role(klass, key, n, &code)
+          orig_role = to_role(klass, key)
+          list = [orig_role].flatten
+          role = case n
+          when :last
+            list.last
+          when :first
+            list.first
+          else
+            list[n]
+          end
+          if code
+            code.call(role)
+            role.flush_to_doc
+          end
+          if orig_role.is_a?(Array)
+            role._role_doc.dependencies.refresh_parent
+          end
+          role
+        end
+
+        def last_role(klass, key, &code)
+          nth_role(klass, key, :last, &code)
+        end
+
+        def first_role(klass, key, &code)
+          nth_role(klass, key, :first, &code)
+        end
+
+      end
+    end
+  end
+end

data/lib/thingtank/shortcuts.rb

@@ -0,0 +1,36 @@
+class ThingTank 
+  module Shortcuts
+    def self.included(klass)
+      klass.class_eval do
+
+        def >(klass_or_hash)
+          case klass_or_hash
+          when Array
+            last_role(klass_or_hash.first, klass_or_hash.last)
+          else
+            to_role(klass_or_hash)
+          end
+        end
+
+        def <(klass_or_hash)
+          case klass_or_hash
+          when Array
+            first_role(klass_or_hash.first, klass_or_hash.last)
+          else
+            to_role(klass_or_hash)
+          end
+        end
+
+        def << (arr)
+          klass, key, code= arr.flatten
+          if code
+            add_role(klass, key, &code)
+          else
+            add_role(klass, key)
+          end
+        end
+
+      end
+    end
+  end
+end

data/lib/thingtank/thingtank.rb

@@ -0,0 +1,21 @@
+require 'couchrest'
+require 'couchrest_model'
+
+class ThingTank < CouchRest::Model::Base
+
+  mass_assign_any_attribute true # should always allow to set non defined arbitrary properties
+  timestamps!
+
+  def role_view_by(klass, *keys)
+    opts = keys.pop if keys.last.is_a?(Hash)
+    opts ||= {}
+    opts[:guards] ||= []
+    # there is no "inArray" like function in couchdb, see http://stackoverflow.com/questions/3740464/i-have-to-write-every-function-i-need-for-couchdb
+    opts[:guards] << "((doc['roles'] !== undefined) && (function (item,arr) { for(p=0;p<arr.length;p++) if (item == arr[p]) return true; return false;})('#{klass.to_s}',doc['roles']))"
+    view_by(*keys, opts)
+  end
+
+end
+
+
+

data/lib/thingtank.rb

@@ -0,0 +1,27 @@
+require_relative File.join('thingtank', 'thingtank.rb')
+require_relative File.join('couchrest', 'extensions', 'view.rb')
+require_relative File.join('thingtank', 'dependencies.rb')
+require_relative File.join('thingtank', 'callbacks.rb')
+require_relative File.join('thingtank', 'force_update.rb')
+require_relative File.join('thingtank', 'shared_methods.rb')
+require_relative File.join('thingtank', 'instance_methods.rb')
+require_relative File.join('thingtank', 'shortcuts.rb')
+require_relative File.join('thingtank', 'role_handling.rb')
+require_relative File.join('thingtank', 'role.rb')
+require_relative File.join('thingtank', 'fakebase.rb')
+
+# TODO: 
+# role validator
+
+class ThingTank
+
+  include ThingTank::ForceUpdate
+  include ThingTank::SharedMethods
+  include ThingTank::InstanceMethods
+  include ThingTank::RoleHandling
+  include ThingTank::Shortcuts
+  include ThingTank::Callbacks
+
+end
+
+

data/test/examples/test_bear_julius.rb

@@ -0,0 +1,15 @@
+require 'helper'
+require 'bear_julius'
+
+describe "bear a julius" do
+
+  before do
+    reset_test_db!
+  end
+
+  it "should be him" do
+    test_bear_julius()
+  end
+
+end
+

data/test/examples/test_first_marriage.rb

@@ -0,0 +1,20 @@
+require 'helper'
+require 'first_marriage'
+
+
+describe "with first marriage" do
+
+  before do
+    reset_test_db!
+  end
+
+  it "should make the first marriage" do
+    test_first_marriage()
+  end
+
+  it "should make the first marriage with shortcuts" do
+    test_first_marriage_shortcuts()
+  end
+
+end
+

data/test/examples/test_immortal_julius.rb

@@ -0,0 +1,16 @@
+require 'helper'
+require 'immortal_julius'
+
+describe "immortal julius" do
+
+  before do
+    reset_test_db!
+  end
+
+  it "should be an immortal julius" do
+    test_julius_immortal
+  end
+
+end
+
+

data/test/examples/test_marriage_improvement.rb

@@ -0,0 +1,22 @@
+require_relative File.join('..', 'helper')
+require 'marriage_improvement'
+
+describe "with improved marriage" do
+
+  before do
+    reset_test_db!
+  end
+
+  it "should make the improved marriage" do
+    test_improved_marriage()
+  end
+
+  it "should make the improved marriage with shortcuts" do
+    test_improved_marriage_shortcuts()
+  end
+
+  it "should divorce properly" do
+    test_improved_marriage_divorce()
+  end
+end 
+  

data/test/examples/test_second_marriage.rb

@@ -0,0 +1,18 @@
+require 'helper'
+require 'second_marriage'
+
+describe "second marriage" do
+
+  before do
+    reset_test_db!
+  end
+
+  it "make a second marriage" do
+    test_second_marriage
+  end
+
+  it "should make a second marriage after conny died" do
+    test_second_marriage_after_conny_died()
+  end
+end
+

data/test/helper.rb

@@ -0,0 +1,118 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+#$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib', 'thingtank'))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'examples'))
+require 'thingtank'
+
+require 'minitest/autorun'
+
+unless defined?(COUCHHOST)
+  COUCHHOST = ENV['COUCH_POTATO_TEST_DB']
+  db_config = CouchRest.parse(ENV['COUCH_POTATO_TEST_DB'])
+  db_config.delete(:doc)
+  protocol, host = db_config.delete(:host).split('://')
+  username, *host = host.split(':')
+  password, host = host.join(':').split('@')
+  host, port = host.split(':')
+  DB_CONFIG = db_config.merge :protocol => protocol, :host => host, :username => username, :port => port, :password => password
+  #p [COUCHHOST, DB_CONFIG]
+
+  DB = CouchRest.database COUCHHOST
+end
+
+CouchRest::Model::Base.configure do |config|
+  config.connection = DB_CONFIG
+end
+
+require 'ruby-debug'
+
+class ThingTank
+  use_database "test_potato"
+end
+
+def reset_test_db!
+  ThingTank.database.recreate! rescue nil 
+  ThingTank.database
+end
+
+def create(hsh={})
+  doc = ThingTank.create hsh
+  doc.save
+  doc.reload
+  doc
+end
+
+def new(hsh={})
+  ThingTank.new hsh
+end
+
+def load(id)
+  "ThingTank".constantize.new(ThingTank.database.get(id), :directly_set_attributes => true) # same as ThingTank.get id
+end
+
+class Check < ThingTank::Role
+  property :a
+  property :c
+  property :check_saved
+  property :check_updated
+  property :check_created
+  property :check_destroyed
+  property :shared 
+
+  def ping
+    "pong"
+  end
+
+  def access_other_role
+    checker = database.to_role(Checker)
+    checker["checker1"] = "I was here"
+  end
+
+  def set_properties_we_don_t_have
+    self["ooops"] = "got it"
+  end
+
+  def set_properties_of_doc
+    _doc["ooops"] = "got it"
+  end
+
+  before_save do
+    self["check_saved"] = true
+  end
+
+  before_update do
+    self["check_updated"] = true
+  end
+
+  before_create do
+    self["check_created"] = true
+  end
+
+  before_destroy do
+    self["check_destroyed"] = true
+    #p :check_destroyed
+    true
+  end
+
+  validates_presence_of :a
+end
+
+class Checker < ThingTank::Role
+  property :shared
+  property :checker1
+
+end
+
+class Testmodel < CouchRest::Model::Base
+end
+