trust 0.5.0

data/test/dummy/test/unit/permissions_test.rb

@@ -0,0 +1,171 @@
+# Copyright (c) 2012 Bingo Entreprenøren AS
+# Copyright (c) 2012 Teknobingo Scandinavia AS
+# Copyright (c) 2012 Knut I. Stenmark
+# Copyright (c) 2012 Patrick Hanevold
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'test_helper'
+
+class PermissionsTest < ActiveSupport::TestCase
+  setup do
+    def login_as(role)
+      Trust::Authorization.user = @user = User.find_or_create_by_name(role)
+    end
+  end
+  context 'Client' do
+    should 'be managed by system admins' do
+      login_as(:system_admin)
+      assert Client.permits?(:create)
+      assert Client.new.permits?(:create)
+    end
+    should 'be audited by system admins' do
+      login_as(:system_admin)
+      assert Client.permits?(:audit)
+      assert Client.new.permits?(:audit)
+    end
+    should 'be managed by accauntants' do
+      login_as(:accountant)
+      assert Client.permits?(:create)
+      assert Client.new.permits?(:create)
+    end
+    should 'not be managed by guests' do
+      login_as(:guest)
+      assert !Client.permits?(:create)
+      assert !Client.new.permits?(:create)
+    end
+    should 'be read by all roles' do
+      Permissions::Default.all do |role|
+        login_as(role)
+        assert Client.permits?(:read)
+        assert Client.new.permits?(:read)
+      end
+    end
+    should 'not be read by other roles' do
+      login_as(:blind_man)
+      assert !Client.permits?(:read)
+      assert !Client.new.permits?(:read)
+    end
+  end
+  context 'Account' do
+    should 'be managed by system admins' do
+      login_as(:system_admin)
+      assert Account.permits?(:create)
+      assert Account.new.permits?(:create)
+    end
+    should 'be audited by system admins' do
+      login_as(:system_admin)
+      assert Account.permits?(:audit)
+      assert Account.new.permits?(:audit)
+    end
+    should 'not be managed by accauntants' do
+      login_as(:accountant)
+      assert !Account.permits?(:destroy)
+      assert !Account.new.permits?(:destroy)
+      assert !Account.permits?(:create)
+      assert !Account.new.permits?(:create)
+    end
+    should 'be created by accauntants associated to clients' do
+      login_as(:accountant)
+      parent = Client.new
+      parent.expects(:accountant).returns(@user.name).twice
+      assert Account.permits?(:create,parent)
+      assert Account.new.permits?(:create,parent)
+    end
+    should 'not be created by accauntants unless associated to clients' do
+      login_as(:accountant)
+      parent = Client.new
+      parent.expects(:accountant).returns(stub('bogus', :accountant => :bogus)).times(4)
+      assert !Account.permits?(:create,stub('bogus', :accountant => :bogus))
+      assert !Account.new.permits?(:create,stub('bogus', :accountant => :bogus))
+      assert !Account.permits?(:create,parent)
+      assert !Account.new.permits?(:create,parent)
+    end
+    should 'be created by department managers if parent is superspecial' do
+      login_as(:department_manager)
+      parent = Client.new
+      parent.expects(:accountant).returns(:superspecial).twice
+      assert Account.permits?(:create,parent)
+      assert Account.new.permits?(:create,parent)
+    end
+    should 'be created by accauntants if parent is superspecial' do
+      login_as(:accountant)
+      parent = Client.new
+      parent.expects(:accountant).returns(:superspecial).times(4)
+      assert Account.permits?(:create,parent)
+      assert Account.new.permits?(:create,parent)
+    end
+    should 'not be created by department managers unless parent is superspecial' do
+      login_as(:department_manager)
+      parent = Client.new
+      parent.expects(:accountant).returns(:not_so_superspecial).twice
+      assert !Account.permits?(:create,parent)
+      assert !Account.new.permits?(:create,parent)
+    end
+    should 'not be created by accauntants unless parent is superspecial' do
+      login_as(:accountant)
+      parent = Client.new
+      parent.expects(:accountant).returns(:not_so_superspecial).times(4)
+      assert !Account.permits?(:create,parent)
+      assert !Account.new.permits?(:create,parent)
+    end
+    should 'not be created by guests if parent' do
+      login_as(:guest)
+      assert !Account.permits?(:create)
+      assert !Account.new.permits?(:create)
+    end
+    should 'be updateable by creator' do
+      login_as(:accountant)
+      assert Account.create.permits?(:update)
+    end
+    should 'be not be updateable by others' do
+      login_as(:guest)
+      account = Account.create
+      login_as(:accountant)
+      assert !account.permits?(:update)
+    end
+  end
+  context 'Account::Credit' do
+    should 'be managed by system admins' do
+      login_as(:system_admin)
+      assert Account::Credit.permits?(:create)
+      assert Account::Credit.new.permits?(:create)
+    end
+    should 'be audited by system admins' do
+      login_as(:system_admin)
+      assert Account::Credit.permits?(:audit)
+      assert Account::Credit.new.permits?(:audit)
+    end
+    should 'be created by guests if guest is wife' do
+      login_as(:guest)
+      User.any_instance.stubs(:role_symbols).returns([:guest])
+      User.any_instance.stubs(:name).returns('wife')
+      assert Account::Credit.permits?(:create)
+      assert Account::Credit.new.permits?(:create)
+    end
+    should 'not be created by guests unless guest is wife' do
+      login_as(:guest)
+      User.any_instance.stubs(:role_symbols).returns([:guest])
+      User.any_instance.stubs(:name).returns('mistress')
+      assert !Account::Credit.permits?(:create)
+      assert !Account::Credit.new.permits?(:create)
+    end
+  end
+end

data/test/dummy/test/unit/user_test.rb

@@ -0,0 +1,31 @@
+# Copyright (c) 2012 Bingo Entreprenøren AS
+# Copyright (c) 2012 Teknobingo Scandinavia AS
+# Copyright (c) 2012 Knut I. Stenmark
+# Copyright (c) 2012 Patrick Hanevold
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'test_helper'
+
+class UserTest < ActiveSupport::TestCase
+  # test "the truth" do
+  #   assert true
+  # end
+end

data/test/test_helper.rb

@@ -0,0 +1,45 @@
+# Copyright (c) 2012 Bingo Entreprenøren AS
+# Copyright (c) 2012 Teknobingo Scandinavia AS
+# Copyright (c) 2012 Knut I. Stenmark
+# Copyright (c) 2012 Patrick Hanevold
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+# Configure Rails Environment
+ENV["RAILS_ENV"] = "test"
+
+require File.expand_path("../dummy/config/environment.rb",  __FILE__)
+require "rails/test_help"
+
+Rails.backtrace_cleaner.remove_silencers!
+
+# Load support files
+Dir["#{File.dirname(__FILE__)}/support/**/*.rb"].each { |f| require f }
+
+# Load fixtures from the engine
+if ActiveSupport::TestCase.method_defined?(:fixture_path=)
+  ActiveSupport::TestCase.fixture_path = File.expand_path("../fixtures", __FILE__)
+end
+
+class ActionController::TestCase
+  def login_as(role = :guest)
+    User.current = @controller.send(:current_user=, User.find_or_create_by_name(role.to_s))
+  end
+end

data/test/trust_test.rb

@@ -0,0 +1,31 @@
+# Copyright (c) 2012 Bingo Entreprenøren AS
+# Copyright (c) 2012 Teknobingo Scandinavia AS
+# Copyright (c) 2012 Knut I. Stenmark
+# Copyright (c) 2012 Patrick Hanevold
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'test_helper'
+
+class TrustTest < ActiveSupport::TestCase
+  test "truth" do
+    assert_kind_of Module, Trust
+  end
+end

data/test/unit/trust/active_record_test.rb

@@ -0,0 +1,56 @@
+# Copyright (c) 2012 Bingo Entreprenøren AS
+# Copyright (c) 2012 Teknobingo Scandinavia AS
+# Copyright (c) 2012 Knut I. Stenmark
+# Copyright (c) 2012 Patrick Hanevold
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'test_helper'
+
+class Trust::ActiveRecordTest < ActiveSupport::TestCase
+  context 'permits?' do
+    setup do
+      @user = User.new
+      @account = Account.new
+    end
+    should 'support calls to athorized? on class level' do
+      Trust::Authorization.expects(:authorized?).with(:manage,Account,:foo)
+      Account.permits? :manage, :foo
+    end
+    should 'support calls to athorized? on instance' do
+      Trust::Authorization.expects(:authorized?).with(:manage,@account,:foo)
+      @account.permits? :manage, :foo
+    end
+  end
+  context 'ensure_permitted!' do
+    setup do
+      @user = User.new
+      @account = Account.new
+    end
+    should 'support calls to athorized? on class level' do
+      Trust::Authorization.expects(:authorize!).with(:manage,Account,:foo)
+      Account.ensure_permitted! :manage, :foo
+    end
+    should 'support calls to athorized? on instance' do
+      Trust::Authorization.expects(:authorize!).with(:manage,@account,:foo)
+      @account.ensure_permitted! :manage, :foo
+    end
+  end
+end

data/test/unit/trust/authorization_test.rb

@@ -0,0 +1,108 @@
+# Copyright (c) 2012 Bingo Entreprenøren AS
+# Copyright (c) 2012 Teknobingo Scandinavia AS
+# Copyright (c) 2012 Knut I. Stenmark
+# Copyright (c) 2012 Patrick Hanevold
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'test_helper'
+
+class Trust::AuthorizationTest < ActiveSupport::TestCase
+  context 'user' do
+    should 'be set in thread' do
+      Trust::Authorization.user = 1
+      assert_equal 1, Thread.current["current_user"]
+    end
+    should 'be retrieved from thread' do
+      Thread.current["current_user"] = 2
+      assert_equal 2, Trust::Authorization.user
+    end
+  end
+  
+  context 'authorizing_class' do
+    setup do
+      class ::TestBase < ActiveRecord::Base
+      end
+      class ::TestDescendant < TestBase
+      end
+      def authorizing_class(klass)
+        Trust::Authorization.send(:authorizing_class, klass)
+      end
+    end
+    should 'return associated Authorization class if it exists' do
+      class ::Permissions::TestBase < Trust::Permissions
+      end
+      assert_equal ::Permissions::TestBase, authorizing_class(::TestBase)
+    end
+    should 'return Authorization::Default if no assocated Authorization class' do
+      assert_equal ::Permissions::Default, authorizing_class(::TestDescendant)
+    end
+    should 'return parent Authorization if specified and none exist for the class' do
+      class ::Permissions::TestBase < Trust::Permissions
+      end
+      assert_equal ::Permissions::TestBase, authorizing_class(::TestDescendant)
+    end
+  end
+  
+  context 'authorize?' do
+    setup do
+      class Validator
+      end
+      class TestAuthorizing
+        def initialize(user, action, klass, object, parent)
+          Validator.values user, action, klass, object, parent
+        end
+      end
+      Trust::Authorization.expects(:user).returns(:user)
+      TestAuthorizing.any_instance.expects(:authorized?).returns(true)
+      Trust::Authorization.expects(:authorizing_class).with(String).returns(TestAuthorizing)
+    end
+    should 'instanciate authorizing class and set correct parameters for object' do
+      Validator.expects(:values).with(:user, :action, String, 'object_or_class', :parent)
+      assert Trust::Authorization.authorized?('action', 'object_or_class', :parent)
+    end
+    should 'instanciate authorizing class and set correct parameters for class' do
+      Validator.expects(:values).with(:user, :action, String, nil, :parent)
+      assert Trust::Authorization.authorized?('action', String, :parent)
+    end
+  end
+
+  context 'authorize!' do
+    should 'call access_denied! unless authorized?' do
+      Trust::Authorization.expects(:access_denied!).once
+      Trust::Authorization.expects(:authorized?).with(1, 2, 3).returns(false)
+      Trust::Authorization.authorize!(1,2,3)
+    end
+    should 'call access_denied! if authorized?' do
+      Trust::Authorization.expects(:access_denied!).never
+      Trust::Authorization.expects(:authorized?).with(1, 2, 3).returns(true)
+      Trust::Authorization.authorize!(1,2,3)
+    end    
+  end
+  
+  context 'access_denied!' do
+    should 'raise exception' do
+      assert_raises Trust::AccessDenied do
+        Trust::Authorization.access_denied!
+      end
+    end
+  end
+  
+end

data/test/unit/trust/controller/properties_test.rb

@@ -0,0 +1,132 @@
+# Copyright (c) 2012 Bingo Entreprenøren AS
+# Copyright (c) 2012 Teknobingo Scandinavia AS
+# Copyright (c) 2012 Knut I. Stenmark
+# Copyright (c) 2012 Patrick Hanevold
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'test_helper'
+
+class Trust::Controller::PropertiesTest < ActiveSupport::TestCase
+  setup do
+    class Controller
+      def self.properties
+        # traditional new, but controversiol code
+        @properties ||= Trust::Controller::Properties.instantiate(self)
+      end
+      def self.controller_path
+        'controller'
+      end
+    end
+    class PeopleController < Controller
+      def self.controller_path
+        'people'
+      end
+    end
+    class ::Person
+    end
+  end
+
+  context 'instantiating' do
+    should 'make a fresh object' do
+      Trust::Controller::Properties.expects(:new).with(PeopleController, nil).once
+      assert !Trust::Controller::Properties.instantiate(PeopleController).instance_variable_get(:@controller)
+    end
+
+    should 'clone controllers properties' do
+      new_actions = [:new, :create, :confirm]
+      parent = Trust::Controller::Properties.new(Controller, nil)
+      parent.new_actions = new_actions
+      child = Trust::Controller::Properties.new(PeopleController, parent)
+      assert_equal PeopleController, child.instance_variable_get(:@controller)
+      assert_equal new_actions, child.new_actions
+      child.new_actions = [:confirm]
+      assert_equal new_actions, parent.new_actions
+      assert_equal [:confirm], child.new_actions
+    end
+  end
+  
+  context 'information' do
+    should 'resolve class from model' do
+      assert_equal Person, PeopleController.properties.model_class
+    end
+  end
+
+  context 'actions' do
+    setup do
+       @properties = Trust::Controller::Properties.instantiate(Controller)
+    end
+    should 'accumulate add actions' do
+      @properties.actions(:add => {:new => :yes, :member => :no, :collection => :maybe})
+      assert_equal [:new, :create, :yes], @properties.new_actions
+      assert_equal [:show, :edit, :update, :destroy, :no], @properties.member_actions
+      assert_equal [:index, :maybe], @properties.collection_actions
+    end
+    should 'overide actions on new, member and collection' do
+      @properties.actions(:add => {:new => :yes, :member => :no, :collection => :maybe}, :new => :really, :member => :do, :collection => :override)
+      assert_equal [:really], @properties.new_actions
+      assert_equal [:do], @properties.member_actions
+      assert_equal [:override], @properties.collection_actions
+    end
+    should 'mask with only' do
+      @properties.actions(:add => {:new => :yes, :member => :no, :collection => :maybe}, :only => [:yes,:no,:maybe])
+      assert_equal [:yes], @properties.new_actions
+      assert_equal [:no], @properties.member_actions
+      assert_equal [:maybe], @properties.collection_actions
+    end
+    should 'filter with except' do
+      @properties.actions(:add => {:new => :yes, :member => :no, :collection => :maybe}, :except => [:yes, :no, :maybe])
+      assert_equal [:new, :create], @properties.new_actions
+      assert_equal [:show, :edit, :update, :destroy], @properties.member_actions
+      assert_equal [:index], @properties.collection_actions
+    end
+  end
+  
+  context 'belongs_to' do
+    setup do
+      @properties = Trust::Controller::Properties.instantiate(Controller)
+    end
+    should 'affect has_associations?' do
+      assert !@properties.has_associations?
+    end
+    should 'accept simple association' do
+      @properties.belongs_to :heaven
+      assert @properties.has_associations?
+      expected = {:heaven => nil}
+      assert_equal expected, @properties.associations
+    end
+    should 'accept multiple associations' do
+      @properties.belongs_to :heaven, :hell
+      assert @properties.has_associations?
+      expected = {:heaven => nil, :hell => nil}
+      assert_equal expected, @properties.associations
+      @properties.belongs_to :earth
+      expected = {:heaven => nil, :hell => nil, :earth => nil}
+      assert_equal expected, @properties.associations      
+    end
+    should 'accept association as' do
+      @properties.belongs_to :heaven, :as => :earth
+      assert @properties.has_associations?
+      expected = {:heaven => :earth}
+      assert_equal expected, @properties.associations
+    end
+  end
+
+end