require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
require_fixtures
 
Aqua.set_storage_engine('CouchDB') # to initialize CouchDB
CouchDB = Aqua::Store::CouchDB unless defined?( CouchDB )  

require File.dirname(__FILE__) + "/../../lib/aqua/support/set"

describe Aqua::Unpack do
  before(:each) do
    User::Storage.database.delete_all
    @time = Time.now
    @date = Date.parse('12/23/1969')
    @log = Log.new( :message => "Hello World! This is a log entry", :created_at => Time.now )
    @user = User.new(
      :username => 'kane',
      :name => ['Kane', 'Baccigalupi'],
      :dob => @date,
      :created_at => @time,
      :log => @log,
      :password => 'my secret!' 
    )
    @user.commit!
  end  
  
  describe 'loading from storage' do
    
    it 'should raise in error if the id doesn\'t exist in the data store' do 
      user = User.new(:id => 'gerbil_farts')
      user.id.should == 'gerbil_farts'
      lambda{ user.reload! }.should raise_error
    end  
    
    it 'should raise an error if the id is nil' do
      lambda{ User.new.reload! }.should raise_error
    end  
  
  end
  
  describe 'unpacking to a new object' do 
    describe 'init' do
      it 'should initialize an Aquatic object' do
        user = User.load( @user.id )
        user.class.should == User
      end  
      
      describe 'Array derivatives' do
        before(:each) do 
          class Arrayed < Array
            aquatic
            attr_accessor :my_accessor
          end
          arrayish = Arrayed['a', 'b', 'c', 'd']
          arrayish.my_accessor = 'Newt'
          arrayish.commit!
          @id = arrayish.id
        end
           
        it 'should create an aquatic Array derivative' do 
          arrayish_2 = Arrayed.load( @id )
          arrayish_2.class.should == Arrayed 
        end
      
        it 'should load init values into an aquatic Array derivative' do
          arrayish_2 = Arrayed.load( @id )
          arrayish_2.first.should == 'a'
        end 
      end   
      
      describe 'Hash derivatives' do
        before(:each) do 
          class Hashed < Hash
            aquatic
            attr_accessor :my_accessor
          end
          hashish = Hashed.new
          hashish['1'] = '2'
          hashish.my_accessor = 'Newt'
          hashish.commit!
          @id = hashish.id
        end 
           
        it 'should create an aquatic Hash derivative' do 
          Hashed.load( @id ).class.should == Hashed
        end
           
        it 'should load init values into an aquatic Hash derivative' do
          hashish = Hashed.load( @id )
          hashish['1'].should == '2'  
        end  
      end  
    end 
    
    describe 'unpacking the instance variables' do
      it 'should reinstantiate all the instance variables' do 
        user = User.load(@user.id) 
        ['@created_at', '@dob', '@log', '@name', '@username'].each do |ivar|
          user.instance_variables.should include( ivar )
        end   
      end 
      
      it 'should unpack Dates' do
        user = User.load(@user.id)
        user.dob.should == @user.dob
      end 
      
      it 'should unpack Times' do
        user = User.load(@user.id)
        user.created_at.to_s.should == @user.created_at.to_s
      end    
      
      it 'should unpack Strings' do
        user = User.load(@user.id)
        user.username.should == @user.username
      end
      
      it 'should unpack true and false' do 
        # true
        @user.grab_bag = true 
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == true
        # false
        @user.grab_bag = false
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == false
      end    
      
      it 'should unpack Fixnums' do
        @user.grab_bag = 3
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == 3
      end
      
      it 'should unpack Bignums' do
        @user.grab_bag = 12345678901234567890
        @user.grab_bag.class.should == Bignum
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == 12345678901234567890
      end 
      
      it 'should unpack Floats' do 
        @user.grab_bag = 1.681
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == 1.681
      end 
      
      it 'should unpack Rationals' do 
        @user.grab_bag = Rational( 1, 17 )
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == Rational( 1, 17 )
      end
      
      it 'should unpack an Array' do 
        user = User.load(@user.id)
        user.name.should == @user.name
      end
      
      it 'should unpace an Array with non-string objects' do 
        @user.grab_bag = ['1', 2]
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == @user.grab_bag
      end  
      
      it 'should unpack a deeply nested Array' do
        @user.grab_bag = ['1','1','1', ['2','2', ['3']]]
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == @user.grab_bag
      end        
        
      it 'should unpack an Array derivative' do
        array_udder = ArrayUdder['1','2','3']
        array_udder.udder
        @user.grab_bag = array_udder
        @user.commit! 
        user = User.load( @user.id )
        user.grab_bag.should == @user.grab_bag
      end
      
      describe 'hash' do
        it 'should unpack a basic hash' do 
        @user.grab_bag = {'1' => '2'}
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == @user.grab_bag
      end
      
        describe 'hash keys' do
          it 'should unpack as symbol and strings' do  
            @user.grab_bag = {'first' => '1', :second => '2'}
            @user.commit!
            user = User.load(@user.id)
            user.grab_bag.keys.should include('first', :second)
          end
      
          it 'should unpack a numeric object' do
            @user.grab_bag = {1 => 'first', 2 => 'second'}
            @user.commit!
            user = User.load(@user.id)
            user.grab_bag.keys.should include( 1, 2 )
          end
      
          it 'should unpack a more complex object' do
            struct = OpenStruct.new( :gerbil => true ) 
            @user.grab_bag = { struct => 'first' }
            @user.commit!
            user = User.load(@user.id) 
            user.grab_bag.keys.should include( struct )
          end      
        end
      
        it 'should unpack non-string values' do 
          @user.grab_bag = {'1' => 2}
          @user.commit!
          user = User.load(@user.id)
          user.grab_bag.should == @user.grab_bag
        end    
      
        it 'should unpack deep nesting' do
          @user.grab_bag = {'1' => {'2' => {'3' => 4}}}
          @user.commit!
          user = User.load(@user.id)
          user.grab_bag.should == @user.grab_bag 
        end
        
        it 'should unpack a Hash derivative' do
          @struct = OpenStruct.new(
            :gerbil => true, 
            :cat => 'yup, that too!', 
            :disaster => ['pow', 'blame', 'chase', 'spew'],
            :nipples => 'yes'
          )
        
          @hash_derivative = CannedHash.new( 
            :ingredients => ['Corned Beef', 'Potatoes', 'Tin Can'],
            :healthometer => false,
            :random_struct => @struct 
          )
        
          @user.grab_bag = @hash_derivative
          @user.commit! 
        
          user = User.load(@user.id)
          user.grab_bag.should == @user.grab_bag 
        end 
      end  
      
      it 'should unpack a Struct' do 
        @struct = OpenStruct.new(
          :gerbil => true, 
          :cat => 'yup, that too!', 
          :disaster => ['pow', 'blame', 'chase', 'spew'],
          :nipples => 'yes'
        ) 
        
        @user.grab_bag = @struct
        @user.commit!
        user = User.load(@user.id)
        
        user.grab_bag.should == @user.grab_bag
      end 
      
      it 'should unpack a Range' do
        @user.grab_bag = 1..3
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == (1..3)
      end
      
      it 'should unpack a Set' do
        set = Set.new([1,2,3])   
        @user.grab_bag = set
        @user.commit!
        user = User.load(@user.id)
        user.grab_bag.should == set
      end  
      
      describe 'embedded IO:' do
        describe 'File' do
          before(:each) do 
            @file = File.new(File.dirname(__FILE__) + '/../store/couchdb/fixtures_and_data/image_attach.png')
            @user.grab_bag = @file
            @user.commit!
            user = User.load(@user.id) 
            @grab_bag = user.grab_bag
          end
            
          it 'should unpack Files as FileStubs' do 
            @grab_bag.class.should == Aqua::FileStub
          end
          
          it 'stub should have methods for content_type and content_length' do 
            @grab_bag.methods.should include('content_type', 'content_length')
          end
          
          it 'should retrieve the attachment' do  
            data = @grab_bag.read
            data.should_not be_nil
            data.should == @file.read
          end    
        end
      end      
      
      it 'should unpack an aquatic object' do 
        @user.commit!
        @user.log.should == @log
      end
      
      describe 'externally saved aquatic objects' do
        before(:all) do
          User.configure_aqua( :embed => {:stub =>  [:username, :name] } )
        end
        
        after(:all) do
          User.configure_aqua( :embed => {:stub =>  :username } )
        end  
          
        before(:each) do
          @time2 = Time.now - 3600 
          @graeme = User.new(:username => 'graeme', :name => ['Graeme', 'Nelson'], :created_at => @time2 )
          @user = User.new(
            :username => 'kane',
            :name => ['Kane', 'Baccigalupi'],
            :dob => @date,
            :created_at => @time,
            :log => @log,
            :password => 'my secret!',
            :other_user => @graeme 
          )
          @user.commit!  
        end
           
        it 'should load a Stub' do 
          user = User.load(@user.id)
          user.other_user.class.should == Aqua::Stub
        end
          
        it 'should retrieve cached methods' do
          user = User.load(@user.id)
          User.should_not_receive(:load)
          user.other_user.username.should == 'graeme'
          user.other_user.name.should == ['Graeme', 'Nelson']
        end
          
        it 'should retrieve the stubbed object when an additional method is required' do
          user = User.load(@user.id)
          user.other_user.created_at.to_s.should == @time2.to_s
        end  
      end    
      
    end  
  end
end