gorillib 0.1.11 → 0.4.0pre

data/spec/gorillib/exception/raisers_spec.rb

@@ -0,0 +1,60 @@
+require 'spec_helper'
+require 'gorillib/exception/raisers'
+
+describe 'raisers' do
+  def should_raise_my_error(msg=nil)
+    msg ||= error_message
+    expect{ yield }.to raise_error(described_class, msg)
+  end
+  def should_return_true
+    yield.should be_true
+  end
+  def capture_error
+    message = 'should have raised, did not'
+    begin
+      yield
+    rescue described_class => err
+      message = err.message
+    end
+    return message.gsub(/of arguments\(/, 'of arguments (')
+  end
+
+  describe ArgumentError do
+
+    context '.check_arity!' do
+      let(:error_message){ /wrong number of arguments/ }
+      it 'checks against a range' do
+        should_raise_my_error{ described_class.check_arity!(['a'], 2..5) }
+        should_raise_my_error{ described_class.check_arity!(['a'], 2..2) }
+        should_return_true{    described_class.check_arity!(['a'], 0..5) }
+        should_return_true{    described_class.check_arity!(['a'], 1..1) }
+      end
+      it 'checks against an array' do
+        should_raise_my_error{ described_class.check_arity!( ['a', 'b'], [1, 3, 5] ) }
+        should_return_true{    described_class.check_arity!( ['a', 'b'], [1, 2] ) }
+      end
+      it 'given a single number, requires exactly that many args' do
+        should_raise_my_error{ described_class.check_arity!( ['a', 'b'], 1 ) }
+        should_raise_my_error{ described_class.check_arity!( ['a', 'b'], 3 ) }
+        should_return_true{    described_class.check_arity!( ['a', 'b'], 2 ) }
+      end
+      it 'matches the message a native arity error would' do
+        should_raise_my_error(capture_error{ [].fill()   }){ described_class.check_arity!([],  1..3) }
+        should_raise_my_error(capture_error{ [].to_s(1)  }){ described_class.check_arity!([1], 0) }
+      end
+    end
+
+    context '.arity_at_least!' do
+      let(:error_message){ /wrong number of arguments/ }
+      it 'raises if there are fewer than that many args' do
+        should_raise_my_error{ described_class.arity_at_least!(['a'], 2) }
+        should_raise_my_error{ described_class.arity_at_least!([],    1) }
+      end
+      it ('returns true if there are that many args or more') do
+        should_return_true{    described_class.arity_at_least!([],    0) }
+        should_return_true{    described_class.arity_at_least!(['a'], 0) }
+        should_return_true{    described_class.arity_at_least!(['a'], 1) }
+      end
+    end
+  end
+end

data/spec/{hash → gorillib/hash}/compact_spec.rb

@@ -1,7 +1,7 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hash/compact'
 
-describe Hash do
+describe Hash, :hashlike_spec => true do
   describe '#compact' do
     it 'scrubs nil' do
       hsh = { 1 => nil }

data/spec/{hash → gorillib/hash}/deep_compact_spec.rb

@@ -1,8 +1,8 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hash/deep_compact'
 require 'gorillib/array/deep_compact'
 
-describe Hash do
+describe Hash, :hashlike_spec => true do
   describe 'array/deep_compact and hash/deep_compact' do
     it "should respond to the method deep_compact!" do
       { }.should respond_to :deep_compact!
@@ -19,7 +19,7 @@ describe Hash do
   end
 end
 
-describe Array do
+describe Array, :hashlike_spec => true do
   describe 'array/deep_compact and hash/deep_compact' do
     it "should respond to the method deep_compact!" do
       [ ].should respond_to :deep_compact!

data/spec/{hash → gorillib/hash}/deep_merge_spec.rb

@@ -1,7 +1,7 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hash/deep_merge'
 
-describe Hash do
+describe Hash, :hashlike_spec => true do
   describe '#deep_merge' do
     before do
       @hash_1 =

data/spec/{hash → gorillib/hash}/keys_spec.rb

@@ -1,7 +1,7 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hash/keys'
 
-describe Hash do
+describe Hash, :hashlike_spec => true do
   class SubclassingArray < Array
   end
 

data/spec/{hash → gorillib/hash}/reverse_merge_spec.rb

@@ -1,7 +1,7 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hash/reverse_merge'
 
-describe Hash do
+describe Hash, :hashlike_spec => true do
   describe 'reverse_merge' do
 
     before do

data/spec/{hash → gorillib/hash}/slice_spec.rb

@@ -1,9 +1,9 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hash/slice'
 
 class HashSubclass < Hash ; end
 
-describe Hash do
+describe Hash, :hashlike_spec => true do
   describe '#slice' do
     it 'should return a new hash with only the given keys' do
       original = { :a => 'x', :b => 'y', :c => 10 }

data/spec/{hash → gorillib/hash}/zip_spec.rb

@@ -1,7 +1,7 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hash/zip'
 
-describe Hash do
+describe Hash, :hashlike_spec => true do
   describe '#zip' do
     it 'builds a hash from keys and values' do
       Hash.zip([:a, :b, :c], [1, 2, 3]).should == { :a => 1, :b => 2, :c => 3 }

data/spec/{hashlike → gorillib/hashlike}/behave_same_as_hash_spec.rb

@@ -1,8 +1,11 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'enumerator'
 require 'gorillib/hashlike'
 require 'gorillib/enumerable/sum'
 
+require 'gorillib/utils/capture_output'
+RSpec.configure{|c| c.include Gorillib::TestHelpers }
+
 require GORILLIB_ROOT_DIR('spec/support/hashlike_helper')
 require GORILLIB_ROOT_DIR('spec/support/hashlike_fuzzing_helper')
 require GORILLIB_ROOT_DIR('spec/support/hashlike_via_delegation')
@@ -13,7 +16,7 @@ class InternalHashWithEquality < InternalHash
   def ==(other_hash)     @myhsh == other_hash ; end
 end
 
-describe Gorillib::Hashlike do
+describe Gorillib::Hashlike, :hashlike_spec => true do
 
   if ENV['FULL_SPECS']
 
@@ -100,6 +103,6 @@ describe Gorillib::Hashlike do
     end
 
   else
-    it 'skipping full specs -- set environment variable FULL_SPECS=true to run all specs'
+    it 'skipping lengthy example-based testing -- set environment variable FULL_SPECS=true to run all specs'
   end
 end

data/spec/{hashlike → gorillib/hashlike}/deep_hash_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hashlike/deep_hash'
 
 class AwesomeHash < Hash
@@ -6,7 +6,7 @@ class AwesomeHash < Hash
 end
 class AwesomeHashSubclass < AwesomeHash ; end
 
-describe Gorillib::Hashlike::DeepHash do
+describe Gorillib::Hashlike::DeepHash, :hashlike_spec => true do
 
   before(:each) do
     @deep_hash = AwesomeHash.new({ :nested_1 => { :nested_2 => { :leaf_3 => "val3" }, :leaf_2 => ['arr'] }, :leaf_at_top => 'val1b' })

data/spec/{hashlike → gorillib/hashlike}/hashlike_behavior_spec.rb

@@ -1,5 +1,7 @@
-unless defined?(HASHLIKE_BEHAVIOR_SPEC)
-describe '' do
+require 'gorillib/utils/capture_output'
+RSpec.configure{|c| c.include Gorillib::TestHelpers }
+
+describe '', :hashlike_spec => true do
 
   # ===========================================================================
   #
@@ -14,7 +16,7 @@ describe '' do
 
     it 'returns nil on a missing (but valid) key' do
       @hshlike[:new_key].should == nil
-    end    
+    end
   end
 
   shared_examples_for :references_string_and_symbol_keys_equivalently do
@@ -48,7 +50,7 @@ describe '' do
       obj = Object.new
       @hshlike[obj] = :i_haz_obj ; @hshlike[obj].should == :i_haz_obj; @hshlike.delete(obj).should == :i_haz_obj
       @hshlike.should be_hash_eql(HashlikeHelper::BASE_HSH)
-    end    
+    end
   end
 
   shared_examples_for :accepts_arbitrary_keys do
@@ -56,7 +58,7 @@ describe '' do
       @hshlike[:fnord] = 69
       @hshlike[:fnord].should == 69
       @hshlike.delete(:fnord).should == 69
-      @hshlike[:boink].should be_nil     
+      @hshlike[:boink].should be_nil
     end
   end
 
@@ -100,7 +102,7 @@ describe '' do
   # ===========================================================================
   #
   # Iteration
-  
+
   shared_examples_for :with_no_block_returns_enumerator do |method_to_test|
     it('returns an enumerator'){ @hshlike.send(method_to_test).should enumerate_method(@hshlike, method_to_test) }
   end
@@ -163,7 +165,7 @@ describe '' do
     end
   end
 
-  shared_examples_for :each_key_on_stringlike_keys do 
+  shared_examples_for :each_key_on_stringlike_keys do
     it 'calls block once for each key in hsh' do
       seen_keys = []
       @hshlike.each_key{|k| seen_keys << k }
@@ -299,7 +301,7 @@ describe '' do
       seen_args.should be_array_eql([[:a, nil, :aa], [:b, nil, nil], [:c, nil, :cc], [1, nil, 2]])
     end
   end
-  
+
   # ===========================================================================
   #
   # Retrieval and Membership
@@ -307,7 +309,7 @@ describe '' do
   shared_examples_for :hashlike_values do
     it 'returns a new array populated with the values from hsh' do
       @hshlike.values.should be_array_eql([100, 200, 300, nil, false])
-    end    
+    end
   end
 
   shared_examples_for :hashlike_values_at_or_of do |method_to_test|
@@ -330,7 +332,7 @@ describe '' do
     end
     it 'is zero for an empty hashlike' do
       @empty_hshlike.send(method_to_test).should == 0
-    end    
+    end
   end
 
   shared_examples_for :hashlike_has_key? do |method_to_test|
@@ -347,7 +349,7 @@ describe '' do
       @hshlike.should evaluate_to_true(method_to_test, :nil_val)
       @hshlike.should evaluate_to_true(method_to_test, :false_val)
     end
-    it 'something something convert_key'
+    it 'something something convert_key' unless ENV['QUIET_RSPEC']
   end
 
   shared_examples_for :hashlike_has_key_predefined_always_present do |method_to_test|
@@ -364,7 +366,7 @@ describe '' do
       @hshlike.should evaluate_to_true(method_to_test, :nil_val)
       @hshlike.should evaluate_to_true(method_to_test, :false_val)
     end
-    it 'something something convert_key'
+    it 'something something convert_key' unless ENV['QUIET_RSPEC']
   end
 
   shared_examples_for :hashlike_has_key_string_and_symbol_equivalent do |method_to_test|
@@ -405,7 +407,7 @@ describe '' do
       @hshlike.send(method_to_test, false).should == true
       @hshlike.send(method_to_test, nil).should   == true
     end
-    it 'something something convert_key'
+    it 'something something convert_key' unless ENV['QUIET_RSPEC']
   end
 
   shared_examples_for :hashlike_has_value_on_complex_keys do |method_to_test|
@@ -441,13 +443,15 @@ describe '' do
         ret_val.should      == :returned_as_default
       end
       it 'if block and default are both given, issues a warning and runs the block' do
-        set_in_block = nil
-        ret_val = @hshlike.fetch(:new_key, :spurious_default){|k| set_in_block = "got: #{k}" ; "hello!" }
-        ret_val.should      == "hello!"
-        set_in_block.should == "got: new_key"
+        quiet_output do
+          set_in_block = nil
+          ret_val = @hshlike.fetch(:new_key, :spurious_default){|k| set_in_block = "got: #{k}" ; "hello!" }
+          ret_val.should      == "hello!"
+          set_in_block.should == "got: new_key"
+        end
       end
     end
-    it 'something something convert_key'
+    it 'something something convert_key' unless ENV['QUIET_RSPEC']
   end
 
   shared_examples_for :hashlike_key do
@@ -463,7 +467,7 @@ describe '' do
       if (RUBY_VERSION >= '1.9')
         @hshlike.key(999).should == :a
       end
-    end    
+    end
   end
 
   shared_examples_for :hashlike_assoc do
@@ -474,7 +478,7 @@ describe '' do
     it 'returns nil if missing' do
       @hshlike.assoc(:i_am_missing).should be_nil
     end
-    it 'something something convert_key'
+    it 'something something convert_key' unless ENV['QUIET_RSPEC']
   end
 
   shared_examples_for :hashlike_rassoc do
@@ -485,7 +489,7 @@ describe '' do
     end
     it 'returns nil if missing' do
       @hshlike.rassoc(:i_am_missing).should be_nil
-    end    
+    end
   end
 
   shared_examples_for :hashlike_empty? do
@@ -496,7 +500,7 @@ describe '' do
       @empty_hshlike.empty?.should == false
     end
   end
-  
+
   # ===========================================================================
   #
   # Update, merge!, merge
@@ -537,7 +541,7 @@ describe '' do
       obj = Object.new
       lambda{ @hshlike.send(method_to_test, obj) }.should raise_error(TypeError, "can't convert Object into Hash")
     end
-    it 'something something convert_key'
+    it 'something something convert_key' unless ENV['QUIET_RSPEC']
   end
 
   shared_examples_for :merging_method_with_normal_keys do |method_to_test|
@@ -617,7 +621,7 @@ describe '' do
       ret_val = @hshlike.send(method_to_test, {:a => "aaa", :b => 200, :nil_val => "here", :new_key => "zzz" })
       ret_val.should equal(@hshlike)
       @hshlike.should be_hash_eql({:a=>"aaa", :b=>200, :c=>300, :nil_val=>"here", :false_val=>false, :new_key=>"zzz"})
-    end    
+    end
   end
 
   shared_examples_for :merging_method_returning_new do |method_to_test|
@@ -741,7 +745,7 @@ describe '' do
       ret_val.should be_hash_eql(@empty_hshlike)
       ret_val.should be_empty
       @hshlike.should be_empty
-    end    
+    end
   end
 
   # ===========================================================================
@@ -753,7 +757,7 @@ describe '' do
       ret_val = @hshlike.to_hash
       ret_val.should be_an_instance_of(Hash)
       ret_val.should == HashlikeHelper::BASE_HSH
-    end    
+    end
   end
 
   shared_examples_for :hashlike_invert do
@@ -818,7 +822,5 @@ describe '' do
     end
   end
 
-  
-  
-end
-end ; HASHLIKE_BEHAVIOR_SPEC = true
+  ::HASHLIKE_BEHAVIOR_SPEC = true
+end unless defined?(::HASHLIKE_BEHAVIOR_SPEC)

data/spec/{hashlike → gorillib/hashlike}/hashlike_via_accessors_spec.rb

@@ -1,9 +1,9 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hashlike'
 require 'gorillib/hashlike/hashlike_via_accessors'
 require GORILLIB_ROOT_DIR('spec/support/hashlike_via_delegation')
 require GORILLIB_ROOT_DIR('spec/support/hashlike_helper')
-require GORILLIB_ROOT_DIR('spec/hashlike/hashlike_behavior_spec')
+require GORILLIB_ROOT_DIR('spec/gorillib/hashlike/hashlike_behavior_spec')
 
 class SimpleHashlikeViaAccessors
   attr_accessor :a, :b, :c, :nil_val, :false_val, :new_key
@@ -11,7 +11,7 @@ class SimpleHashlikeViaAccessors
   include Gorillib::Hashlike
 end
 
-describe Gorillib::Hashlike::HashlikeViaAccessors do
+describe Gorillib::Hashlike::HashlikeViaAccessors, :hashlike_spec => true do
 
   before do
     @hshlike                 = SimpleHashlikeViaAccessors.new.merge(HashlikeHelper::HASH_TO_TEST_HL_V_A.dup)

data/spec/{hashlike_spec.rb → gorillib/hashlike_spec.rb}

@@ -1,8 +1,8 @@
-require File.expand_path('spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/hashlike'
 require GORILLIB_ROOT_DIR('spec/support/hashlike_via_delegation')
 require GORILLIB_ROOT_DIR('spec/support/hashlike_helper')
-require GORILLIB_ROOT_DIR('spec/hashlike/hashlike_behavior_spec')
+require GORILLIB_ROOT_DIR('spec/gorillib/hashlike/hashlike_behavior_spec')
 
 
 
@@ -10,7 +10,7 @@ require GORILLIB_ROOT_DIR('spec/hashlike/hashlike_behavior_spec')
 
 
 
-describe Gorillib::Hashlike do
+describe Gorillib::Hashlike, :hashlike_spec => true do
 
   before do
     @hshlike                 = InternalHash.new.merge(HashlikeHelper::BASE_HSH.dup)

data/spec/{logger → gorillib/logger}/log_spec.rb

@@ -1,8 +1,8 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/logger/log'
 
 
-describe 'Logger' do
+describe 'Logger', :simple_spec => true do
   # so we can practice loading and unloading
   def logger_code_file
     GORILLIB_ROOT_DIR('lib/gorillib/logger/log.rb')

data/spec/{metaprogramming → gorillib/metaprogramming}/aliasing_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/metaprogramming/aliasing'
 
 module BarMethodAliaser
@@ -32,7 +32,7 @@ module BarMethods
   end
 end
 
-describe 'metaprogramming' do
+describe 'metaprogramming', :metaprogramming_spec => true do
   before do
     Object.const_set :FooClassWithBarMethod, Class.new{ def bar() 'bar' end }
     @instance = FooClassWithBarMethod.new
@@ -44,7 +44,7 @@ describe 'metaprogramming' do
 
   describe 'alias_method_chain' do
 
-    it 'does not have an effect if already provided by another library.'
+    it 'does not have an effect if already provided by another library.' unless ENV['QUIET_RSPEC']
 
     it 'creates a with_ and without_ method that chain' do
       @instance.should respond_to(:bar)

data/spec/{metaprogramming → gorillib/metaprogramming}/class_attribute_spec.rb

@@ -1,14 +1,14 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/metaprogramming/class_attribute'
 
-describe 'metaprogramming' do
+describe 'metaprogramming', :metaprogramming_spec => true do
   describe 'class_attribute' do
     before do
       @klass = Class.new { class_attribute :setting }
       @sub = Class.new(@klass)
     end
 
-    it 'does not have an effect if already provided by another lib.'
+    it 'does not have an effect if already provided by another lib.' unless ENV['QUIET_RSPEC']
 
     it 'defaults to nil' do
       @klass.setting.should be_nil

data/spec/{metaprogramming → gorillib/metaprogramming}/delegation_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/metaprogramming/delegation'
 
 module One
@@ -63,13 +63,13 @@ end
 #
 # Tests start
 
-describe 'metaprogramming' do
+describe 'metaprogramming', :metaprogramming_spec => true do
   describe 'delegation' do
     before do
       @david = Someone.new("David", Somewhere.new("Paulina", "Chicago"))
     end
 
-    it 'does not have an effect if already provided by another library.'
+    it 'does not have an effect if already provided by another library.' unless ENV['QUIET_RSPEC']
 
     it 'delegates to methods' do
       @david.street.should == "Paulina"

data/spec/{metaprogramming → gorillib/metaprogramming}/singleton_class_spec.rb

@@ -1,12 +1,12 @@
-require File.expand_path('../spec_helper', File.dirname(__FILE__))
+require 'spec_helper'
 require 'gorillib/metaprogramming/singleton_class'
 
-describe 'Singleton Class' do
+describe 'Singleton Class', :metaprogramming_spec => true do
   it 'returns the singleton class' do
     o = Object.new
     class << o; self end.should == o.singleton_class
   end
 
-  it 'does not have an effect if already provided by another library.'
+  it 'does not have an effect if already provided by another library.' unless ENV['QUIET_RSPEC']
 
 end

data/spec/gorillib/model/record/defaults_spec.rb

@@ -0,0 +1,108 @@
+require 'spec_helper'
+
+require 'gorillib/model'
+require 'gorillib/model/field'
+require 'gorillib/model/defaults'
+
+module Gorillib::Test       ; end
+module Meta::Gorillib::Test ; end
+
+describe Gorillib::Model, :model_spec => true do
+  after(:each){   Gorillib::Test.nuke_constants ; Meta::Gorillib::Test.nuke_constants }
+
+  let(:car_class) do
+    class Gorillib::Test::Car
+      include Gorillib::Model
+      field    :name,          Symbol
+      field    :make_model,    String
+      field    :year,          Integer
+      field    :style,         Symbol, :default => :sedan
+      field    :doors,         Integer,
+        :default => ->{ [:coupe, :convertible].include?(style) ? 2 : 4 }
+      self
+    end
+    Gorillib::Test::Car
+  end
+  let(:wildcat) do
+    car_class.receive( :name => :wildcat, :make_model => 'Buick Wildcat', :year => 1968, :doors => 2 )
+  end
+  let(:ford_39) do
+    car_class.receive( :name => :ford_39 )
+  end
+  let(:year_field ){ car_class.fields[:year] }
+  let(:doors_field){ car_class.fields[:doors] }
+  let(:style_field){ car_class.fields[:style] }
+
+  describe 'Field#default' do
+    it 'is itself a field on Gorillib::Model::Field (boy that is confusing)' do
+      Gorillib::Model::Field.should have_field(:default)
+    end
+    context '#has_default?' do
+      it 'is true if the default is set' do
+        year_field.should_not have_default
+        year_field.default = '2012'
+        year_field.should have_default
+      end
+    end
+  end
+
+  describe '#attribute_default' do
+    before{ car_class.class_eval{ public :attribute_default } }
+
+    it "if the default does not exist, returns nil" do
+      ford_39.attribute_default(year_field).should be_nil
+    end
+    it "if the default is a value, returns it, dup'd if possible" do
+      ford_39.attribute_default(style_field).should == :sedan
+      year_val = mock ; dupd_year_val = mock
+      year_val.should_receive(:try_dup).and_return(dupd_year_val)
+      year_field.default = year_val
+      ford_39.attribute_default(year_field).should equal(dupd_year_val)
+    end
+    it "if the default is a proc with no args, instance_exec it" do
+      ford_39.style = :sedan
+      ford_39.attribute_default(doors_field).should == 4
+      ford_39.style = :coupe
+      ford_39.attribute_default(doors_field).should == 2
+    end
+    it "if the default is a proc with no args, instance_exec it" do
+      year_field.default = ->{ self }
+      ford_39.attribute_default(year_field).should equal(ford_39)
+    end
+    it "if the default responds_to #call, call it, passing the instance and field name" do
+      callable = mock ; expected = mock
+      year_field.default = callable
+      callable.should_receive(:respond_to?).with(:call).and_return(true)
+      callable.should_receive(:call).with(ford_39, :year).and_return(expected)
+      ford_39.stub(:read_unset_attribute).and_return('bob')
+      ford_39.attribute_default(year_field).should equal(expected)
+    end
+    it "if the default is a proc with args, call it in current context with the model and field name" do
+      this = self ; expected = mock
+      year_field.default = ->(inst, field_name){ [self, inst, field_name, expected] }
+      ford_39.attribute_default(year_field).should == [this, ford_39, :year, expected]
+    end
+  end
+
+  describe 'reading an attribute with a default' do
+    it "sets the default value on the field and returns it" do
+      ford_39.attribute_set?(:doors).should be_false
+      ford_39.read_attribute(:doors).should == 4
+    end
+    it "only calls a block default if the attribute is unset" do
+      val = 0
+      year_field.default = ->{ val += 1 }
+      ford_39.read_attribute(:year).should == 1
+      year_field.default.call.should == 2       # the next call to the block will return 3
+      ford_39.read_attribute(:year).should == 1 # repeated calls give the same value
+      ford_39.unset_attribute(:year)
+      ford_39.read_attribute(:year).should == 3 # see! since it was unset, the block was called again.
+    end
+    it "is attribute_set? after" do
+      ford_39.attribute_set?(:doors).should be_false
+      ford_39.read_attribute(:doors)
+      ford_39.attribute_set?(:doors).should be_true
+    end
+  end
+
+end