veritas-do-adapter 0.0.5

data/spec/unit/veritas/adapter/data_objects/statement/to_s_spec.rb

@@ -0,0 +1,53 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/adapter/data_objects/statement'
+
+describe Adapter::DataObjects::Statement, '#to_s' do
+  subject { object.to_s }
+
+  let(:sql)        { mock('SQL')                       }
+  let(:connection) { stub                              }
+  let(:relation)   { mock('Relation')                  }
+  let(:generator)  { mock('Generator', :to_sql => sql) }
+
+  context 'without a visitor' do
+    let(:visitor) { SQL::Generator::Relation                  }  # default visitor
+    let(:object)  { described_class.new(connection, relation) }
+
+    before do
+      visitor.stub!(:visit).and_return(generator)
+    end
+
+    it_should_behave_like 'an idempotent method'
+
+    it { should be_frozen }
+
+    it { should equal(sql) }
+
+    it 'visits the relation' do
+      visitor.should_receive(:visit).with(relation)
+      subject
+    end
+  end
+
+  context 'with a visitor' do
+    let(:visitor) { mock('Visitor', :visit => generator)               }
+    let(:object)  { described_class.new(connection, relation, visitor) }
+
+    before do
+      visitor.stub!(:visit).and_return(generator)
+    end
+
+    it_should_behave_like 'an idempotent method'
+
+    it { should be_frozen }
+
+    it { should equal(sql) }
+
+    it 'visits the relation' do
+      visitor.should_receive(:visit).with(relation)
+      subject
+    end
+  end
+end

data/spec/unit/veritas/relation/gateway/class_methods/new_spec.rb

@@ -0,0 +1,16 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '.new' do
+  subject { object.new(adapter, relation) }
+
+  let(:adapter)  { stub            }
+  let(:relation) { stub            }
+  let(:object)   { described_class }
+
+  it { should be_instance_of(described_class) }
+
+  it { should be_frozen }
+end

data/spec/unit/veritas/relation/gateway/difference_spec.rb

@@ -0,0 +1,17 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#difference' do
+  subject { object.difference(other) }
+
+  let(:adapter)         { mock('Adapter')                        }
+  let(:relation)        { mock('Relation')                       }
+  let(:object)          { described_class.new(adapter, relation) }
+  let(:operation)       { :difference                            }
+  let(:factory)         { Algebra::Difference                    }
+  let(:binary_relation) { mock(factory)                          }
+
+  it_should_behave_like 'a binary relation method'
+end

data/spec/unit/veritas/relation/gateway/drop_spec.rb

@@ -0,0 +1,21 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#drop' do
+  subject { object.drop(args) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :drop => response)     }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#drop' do
+    relation.should_receive(:drop).with(args)
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/each_spec.rb

@@ -0,0 +1,84 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#each' do
+  subject { object.each { |tuple| yields << tuple } }
+
+  let(:header)   { mock('Header')                         }
+  let(:reader)   { mock('Reader')                         }
+  let(:tuple)    { mock('Tuple')                          }
+  let(:adapter)  { mock('Adapter')                        }
+  let(:relation) { mock('Relation')                       }
+  let!(:object)  { described_class.new(adapter, relation) }
+  let(:yields)   { []                                     }
+
+  context 'with an unmaterialized relation' do
+    let(:wrapper) { stub }
+
+    before do
+      adapter.stub!(:read).and_return(reader)
+
+      relation.stub!(:header).and_return(header)
+      relation.stub!(:materialized?).and_return(false)
+      relation.stub!(:each).and_return(relation)
+
+      wrapper.stub!(:each).and_yield(tuple)
+      Relation.stub!(:new).and_return(wrapper)
+    end
+
+    it_should_behave_like 'an #each method'
+
+    it 'yields each tuple' do
+      expect { subject }.to change { yields.dup }.
+        from([]).
+        to([ tuple ])
+    end
+
+    it 'passes in the relation to the adapter reader' do
+      adapter.should_receive(:read).with(relation)
+      subject
+    end
+
+    it 'passes in the relation header and reader to the wrapper constructor' do
+      Relation.should_receive(:new).with(header, reader)
+      subject
+    end
+  end
+
+  context 'with a materialized relation' do
+    before do
+      relation.stub!(:materialized?).and_return(true)
+
+      # I do not know a better way to mock this behaviour out and
+      # I'm pretty sure that rspec does not provide Enumerator helpers
+      relation.stub!(:each) do |*args|
+        if args.empty?
+          relation.to_enum
+        else
+          args.first.call(tuple)
+          relation
+        end
+      end
+    end
+
+    it_should_behave_like 'an #each method'
+
+    it 'yields each tuple' do
+      expect { subject }.to change { yields.dup }.
+        from([]).
+        to([ tuple ])
+    end
+
+    it 'does not create a reader' do
+      adapter.should_not_receive(:read)
+      subject
+    end
+
+    it 'does not create a wrapper' do
+      Relation.should_not_receive(:new)
+      subject
+    end
+  end
+end

data/spec/unit/veritas/relation/gateway/extend_spec.rb

@@ -0,0 +1,27 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#extend' do
+  subject { object.extend(args, &block) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :extend => response)   }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+  let(:block)    { proc {}                                 }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#extend' do
+    relation.should_receive(:extend).with(args)
+    subject
+  end
+
+  it 'forwards the block to relation#extend' do
+    relation.stub!(:extend) { |_args, proc| proc.should equal(block) }
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/intersect_spec.rb

@@ -0,0 +1,17 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#intersect' do
+  subject { object.intersect(other) }
+
+  let(:adapter)         { mock('Adapter')                        }
+  let(:relation)        { mock('Relation')                       }
+  let(:object)          { described_class.new(adapter, relation) }
+  let(:operation)       { :intersect                             }
+  let(:factory)         { Algebra::Intersection                  }
+  let(:binary_relation) { mock(factory)                          }
+
+  it_should_behave_like 'a binary relation method'
+end

data/spec/unit/veritas/relation/gateway/join_spec.rb

@@ -0,0 +1,44 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#join' do
+  subject { object.join(other) }
+
+  let(:adapter)         { mock('Adapter')                        }
+  let(:relation)        { mock('Relation')                       }
+  let(:object)          { described_class.new(adapter, relation) }
+  let(:operation)       { :join                                  }
+  let(:factory)         { Algebra::Join                          }
+  let(:binary_relation) { mock(factory)                          }
+
+  it_should_behave_like 'a binary relation method'
+
+  context 'when passed a block' do
+    subject { object.join(other) { |context| yields << context } }
+
+    let(:other_relation) { mock('Other Relation')                       }
+    let(:other)          { described_class.new(adapter, other_relation) }
+    let(:gateway)        { mock('Other Gateway')                        }
+    let(:product)        { mock('Product', :restrict => gateway)        }
+    let(:yields)         { []                                           }
+
+    before do
+      relation.stub!(:product).and_return(product)
+    end
+
+    it { should equal(gateway) }
+
+    it 'passes the other relation to the product operation' do
+      relation.should_receive(:product).with(other_relation)
+      subject
+    end
+
+    it 'passes the block to the product relation' do
+      context = mock('Context')
+      product.should_receive(:restrict).and_yield(context)
+      expect { subject }.to change { yields.dup }.from([]).to([ context ])
+    end
+  end
+end

data/spec/unit/veritas/relation/gateway/materialize_spec.rb

@@ -0,0 +1,27 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#materialize' do
+  subject { object.materialize }
+
+  let(:header)       { mock('Header')                                                                          }
+  let(:directions)   { mock('Directions')                                                                      }
+  let(:adapter)      { stub.as_null_object                                                                     }
+  let(:relation)     { mock('Relation', :header => header, :directions => directions, :materialized? => false) }
+  let!(:object)      { described_class.new(adapter, relation)                                                  }
+  let(:materialized) { mock('Materialized')                                                                    }
+
+  before do
+    Relation::Materialized.stub!(:new).and_return(materialized)
+    Relation.stub!(:new).and_return(stub.as_null_object)
+  end
+
+  it { should equal(materialized) }
+
+  it 'initializes the materialized relation with the header, tuples and directions' do
+    Relation::Materialized.should_receive(:new).with(header, [], directions)
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/optimize_spec.rb

@@ -0,0 +1,23 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#optimize' do
+  subject { object.optimize }
+
+  let(:adapter)  { stub                                   }
+  let(:relation) { mock('Relation')                       }
+  let(:object)   { described_class.new(adapter, relation) }
+
+  before do
+    relation.stub!(:optimize).and_return(relation)
+  end
+
+  it_should_behave_like 'a command method'
+
+  it 'forwards the message to relation#optimize' do
+    relation.should_receive(:optimize).with(no_args)
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/product_spec.rb

@@ -0,0 +1,17 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#product' do
+  subject { object.product(other) }
+
+  let(:adapter)         { mock('Adapter')                        }
+  let(:relation)        { mock('Relation')                       }
+  let(:object)          { described_class.new(adapter, relation) }
+  let(:operation)       { :product                               }
+  let(:factory)         { Algebra::Product                       }
+  let(:binary_relation) { mock(factory)                          }
+
+  it_should_behave_like 'a binary relation method'
+end

data/spec/unit/veritas/relation/gateway/project_spec.rb

@@ -0,0 +1,21 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#project' do
+  subject { object.project(args) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :project => response)  }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#project' do
+    relation.should_receive(:project).with(args)
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/remove_spec.rb

@@ -0,0 +1,21 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#remove' do
+  subject { object.remove(args) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :remove => response)   }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#remove' do
+    relation.should_receive(:remove).with(args)
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/rename_spec.rb

@@ -0,0 +1,21 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#rename' do
+  subject { object.rename(args) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :rename => response)   }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#rename' do
+    relation.should_receive(:rename).with(args)
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/respond_to_spec.rb

@@ -0,0 +1,29 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#respond_to?' do
+  subject { object.respond_to?(method) }
+
+  let(:relation) { mock('Relation', :header => stub)   }
+  let(:object)   { described_class.new(stub, relation) }
+
+  context 'with an unknown method' do
+    let(:method) { :unknown }
+
+    it { should be(false) }
+  end
+
+  context 'with a known method' do
+    let(:method) { :each }
+
+    it { should be(true) }
+  end
+
+  context 'with a known method in the relation' do
+    let(:method) { :header }
+
+    it { should be(true) }
+  end
+end

data/spec/unit/veritas/relation/gateway/restrict_spec.rb

@@ -0,0 +1,27 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#restrict' do
+  subject { object.restrict(args, &block) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :restrict => response) }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+  let(:block)    { proc {}                                 }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#restrict' do
+    relation.should_receive(:restrict).with(args)
+    subject
+  end
+
+  it 'forwards the block to relation#restrict' do
+    relation.stub!(:restrict) { |_args, proc| proc.should equal(block) }
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/reverse_spec.rb

@@ -0,0 +1,21 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#reverse' do
+  subject { object.reverse(args) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :reverse => response)  }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#reverse' do
+    relation.should_receive(:reverse).with(args)
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/sort_by_spec.rb

@@ -0,0 +1,27 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#sort_by' do
+  subject { object.sort_by(args, &block) }
+
+  let(:adapter)  { mock('Adapter')                         }
+  let(:relation) { mock('Relation', :sort_by => response)  }
+  let(:response) { mock('New Relation', :kind_of? => true) }
+  let!(:object)  { described_class.new(adapter, relation)  }
+  let(:args)     { stub                                    }
+  let(:block)    { proc {}                                 }
+
+  it_should_behave_like 'a unary relation method'
+
+  it 'forwards the arguments to relation#sort_by' do
+    relation.should_receive(:sort_by).with(args)
+    subject
+  end
+
+  it 'forwards the block to relation#sort_by' do
+    relation.stub!(:sort_by) { |_args, proc| proc.should equal(block) }
+    subject
+  end
+end

data/spec/unit/veritas/relation/gateway/summarize_spec.rb

@@ -0,0 +1,148 @@
+# encoding: utf-8
+
+require 'spec_helper'
+require 'veritas/relation/gateway'
+
+describe Relation::Gateway, '#summarize' do
+  let(:summarization) { mock('Summarization', :kind_of? => true)      }
+  let(:adapter)       { mock('Adapter')                               }
+  let(:relation)      { mock('Relation', :summarize => summarization) }
+  let!(:object)       { described_class.new(adapter, relation)        }
+  let(:block)         { proc {}                                       }
+
+  context 'with no arguments' do
+    subject { object.summarize(&block) }
+
+    let(:gateway) { mock('New Gateway') }
+
+    before do
+      described_class.stub!(:new).and_return(gateway)
+    end
+
+    it { should equal(gateway) }
+
+    it 'forwards the default summarize_with relation to relation#summarize' do
+      relation.should_receive(:summarize) do |other|
+        other.should equal(TABLE_DEE)
+      end
+      subject
+    end
+
+    it 'forwards the block to relation#summarize' do
+      relation.stub!(:summarize) do |_summarize_with, proc|
+        proc.should equal(block)
+      end
+      subject
+    end
+
+    it 'initializes the gateway with the adapter and summarization' do
+      described_class.should_receive(:new).with(adapter, summarization)
+      subject
+    end
+  end
+
+  context 'with a header' do
+    subject { object.summarize(header, &block) }
+
+    let(:gateway) { mock('New Gateway') }
+    let(:header)  { mock('Header')      }
+
+    before do
+      described_class.stub!(:new).and_return(gateway)
+    end
+
+    it { should equal(gateway) }
+
+    it 'forwards the header to relation#summarize' do
+      relation.should_receive(:summarize) do |other|
+        other.should equal(header)
+      end
+      subject
+    end
+
+    it 'forwards the block to relation#summarize' do
+      relation.stub!(:summarize) do |_summarize_with, proc|
+        proc.should equal(block)
+      end
+      subject
+    end
+
+    it 'initializes the gateway with the adapter and summarization' do
+      described_class.should_receive(:new).with(adapter, summarization)
+      subject
+    end
+  end
+
+  context 'when summarize_with has the same adapter' do
+    subject { object.summarize(other, &block) }
+
+    let(:header)         { mock('Header')                               }
+    let(:other_relation) { mock('Other Relation', :header => header)    }
+    let!(:other)         { described_class.new(adapter, other_relation) }
+    let(:gateway)        { mock('New Gateway')                          }
+
+    before do
+      described_class.stub!(:new).and_return(gateway)
+    end
+
+    it { should equal(gateway) }
+
+    it 'forwards the other relation to relation#summarize' do
+      relation.should_receive(:summarize) do |other|
+        other.should equal(other_relation)
+      end
+      subject
+    end
+
+    it 'forwards the block to relation#summarize' do
+      relation.stub!(:summarize) do |_summarize_with, proc|
+        proc.should equal(block)
+      end
+      subject
+    end
+
+    it 'initializes the gateway with the adapter and summarization' do
+      described_class.should_receive(:new).with(adapter, summarization)
+      subject
+    end
+  end
+
+  context 'with a relation' do
+    subject { object.summarize(summarize_with, &block) }
+
+    let(:context_header)   { mock('Context Header')                              }
+    let(:header)           { mock('Header', :- => context_header)                }
+    let(:summarize_header) { mock('Summarize With Header')                       }
+    let(:summarize_with)   { mock('Other Relation', :header => summarize_header) }
+    let(:functions)        { mock('Functions')                                   }
+    let(:context)          { mock('Context', :functions => functions)            }
+
+    before do
+      relation.stub!(:header).and_return(header)
+      Algebra::Summarization.stub!(:new).and_return(summarization)
+      Evaluator::Context.stub!(:new).and_return(context)
+    end
+
+    it { should equal(summarization) }
+
+    it 'gets the context header' do
+      header.should_receive(:-).with(summarize_header)
+      subject
+    end
+
+    it 'passes the context header into the context' do
+      Evaluator::Context.should_receive(:new).with(context_header)
+      subject
+    end
+
+    it 'forwards the block to the context' do
+      Evaluator::Context.stub!(:new) { |_header, proc| proc.should equal(block) }.and_return(context)
+      subject
+    end
+
+    it 'initializes the summarization with the gateway, the relation and the functions' do
+      Algebra::Summarization.should_receive(:new).with(object, summarize_with, functions)
+      subject
+    end
+  end
+end