sequel_oracle_extensions 0.5.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,21 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## PROJECT::SPECIFIC

data/.rspec

@@ -0,0 +1 @@
+--color

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2010 Joe Khoobyar
+
+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.

data/README.rdoc

@@ -0,0 +1,17 @@
+= sequel_oracle_extensions
+
+Oracle extensions for  Sequel, including MERGE statements, optimizer hints, and schema extensions.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2010 Joe Khoobyar. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,43 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "sequel_oracle_extensions"
+    gem.summary = %Q{Oracle MERGE, optimizer hints, an schema extensions for Sequel}
+    gem.description = %Q{Oracle extensions for Sequel, including MERGE statements, optimizer hints, and schema extensions.}
+    gem.email = "joe@ankhcraft.com"
+    gem.homepage = "http://github.com/joekhoobyar/sequel_oracle_extensions"
+    gem.authors = ["Joe Khoobyar"]
+    gem.add_dependency "sequel", ">= 3.10.0" 
+    gem.add_development_dependency "rspec", ">= 2.0.0.beta.8"
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rspec/core/rake_task'
+Rspec::Core::RakeTask.new(:rspec) do |spec|
+  spec.pattern = FileList['spec/**/*_spec.rb']
+end
+Rspec::Core::RakeTask.new(:rcov) do |spec|
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+end
+
+task :rspec => :check_dependencies
+
+task :default => :rspec
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "sequel_oracle_extensions #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.5.0

data/lib/sequel/oracle_extensions/hints.rb

@@ -0,0 +1,72 @@
+require 'sequel'
+Sequel.require 'adapters/shared/oracle'
+
+# The hint extension adds support for Oracle hints
+module Sequel
+
+	[Dataset, Oracle::DatasetMethods].each do |t|
+	  t.instance_eval do
+	    constants.grep(/_CLAUSE_METHODS$/).each do |k|
+	      type = k[0,k.length - 15].downcase
+	      meth = :"#{type}_hint_sql"
+	      const_set k, [meth].concat(remove_const(k)) unless const_get(k).include? meth
+	    end
+	  end
+	end
+
+  module Oracle
+    module DatasetMethods
+      
+      def hint(*args) clone(:hints => _hints(*args){|v| v.dup}) end
+      def hint!(*args) @opts[:hints] = _hints(*args){|v| v.dup}; self end
+      def hints(*args) clone(:hints => _hints(*args){|v| []}) end
+      def hints!(*args) @opts[:hints] = _hints(*args){|v| []}; self end
+      
+      def hint_sql(type, sql)
+        if @opts.include? :hints and @opts[:hints].include? type and not @opts[:hints][type].empty?
+	        sql << " /*+ #{@opts[:hints][type].join ' '} */"
+	      end
+      end
+      
+			%w(select insert update delete merge).map{|k| k.to_sym}.each do |k|
+        define_method(:"#{k}_hint") {|*args| hint k, *args}
+        define_method(:"#{k}_hint!") {|*args| hint! k, *args}
+        define_method(:"#{k}_hints") {|*args| hints k, *args}
+        define_method(:"#{k}_hints!") {|*args| hints! k, *args}
+        define_method(:"#{k}_hint_sql") {|sql| hint_sql k, sql}
+      end
+    
+    protected
+
+	    def _hints(*args, &block)
+        type = args.shift if Symbol === args.first
+        hints = hints_copy type, &block
+	      if type.nil?
+	        args.each do |arg|
+	          arg = { :select => arg } unless Hash === arg
+		        arg.each{|k,v| hint_list_add hints[k], v}
+          end
+	      else
+		      hint_list_add hints[type], args
+        end
+        hints
+	    end
+      
+    private
+    
+	    def hints_copy(type=nil)
+	      hints = Hash.new{|h,k| h[k] = []}
+        @opts[:hints].each{|k,v| v = yield v if type.nil? or type==k; hints[k] = v} if @opts.include? :hints
+	      hints
+	    end
+
+	    def hint_list_add(list, hint)
+	      case hint
+	      when String; list.push hint
+	      when Array;  list.concat hint
+	      else raise Error, "Invalid SQL hint value '#{hints.class.name}': must be an Array or String"
+	      end
+	    end
+		end
+  end
+end  

data/lib/sequel/oracle_extensions/merge.rb

@@ -0,0 +1,204 @@
+require 'sequel'
+
+# The merge extension adds support for Oracle's MERGE statement.
+module Sequel
+	class Dataset
+    MERGE_CLAUSE_METHODS = clause_methods(:merge, %w'target source join update delete insert')
+    
+    def merge(&block)
+      execute_dui merge_sql(&block)
+    end
+    
+    def merge_using(*values, &block)
+      execute_dui merge_using_sql(*values, &block)
+    end
+
+    def merge_into(*values, &block)
+      execute_dui merge_into_sql(*values, &block)
+    end
+
+	  def merge_sql(*values, &block)
+      ms = clone
+	    ms.opts = { :into=>values.shift, :using=>values.shift, :on=>[values.shift].compact }
+			[:update, :insert, :delete].each{|k| ms.opts[k] = values.shift }
+	    ms.opts.update :defaults=>@opts[:defaults], :overrides=>@opts[:overrides]
+        
+      if block_given?
+	      ms.extend(MergeBlockCopy)
+	      ms.instance_eval(&block)
+	      ms = ms.clone(ms.opts)
+      end
+
+      ms.opts[:into] ||= @opts[:from].first
+      ms.opts[:on] << @opts[:where] if @opts[:where]
+
+      ms.send :_merge_sql
+    end
+    
+    def merge_using_sql(using, *values, &block)
+      merge_sql @opts[:from].first, using, *values, &block
+    end
+    
+    def merge_into_sql(into, on, *values, &block)
+      merge_sql into, self, on, *values, &block
+    end
+    
+  protected
+		
+		# SQL fragment specifying the target to merge INTO
+		def merge_target_sql(sql)
+		  sql << " INTO #{table_ref(@opts[:into])}"
+		end
+		
+		# SQL fragment specifying the source to merge USING
+		def merge_source_sql(sql)
+		  sql << "\nUSING #{table_ref(@opts[:using])}"
+		end
+  
+	  # SQL fragment specifying what to perform the merge ON
+	  def merge_join_sql(sql)
+	    sql << "\nON #{literal(@opts[:on])}"
+	  end
+
+		# SQL fragment specifying which target rows to DELETE
+		def merge_delete_sql(sql)
+		  sql << "\nDELETE WHERE #{literal(@opts[:delete])}\n" if @opts[:delete]
+		end
+		  
+		# The SQL fragment specifying the columns and values to UPDATE
+		def merge_update_sql(sql)
+		  return if not (values = @opts[:update]) or values.empty?
+			values = Hash[values] if Array===values and values.all?{|v| Array===v && v.size==2}
+		  if Hash === values
+		    values = @opts[:defaults].merge(values) if @opts[:defaults]
+		    values = values.merge(@opts[:overrides]) if @opts[:overrides]
+		    # get values from hash
+		    values = values.map do |k, v|
+		      "#{k.is_a?(String) && !k.is_a?(LiteralString) ? quote_identifier(k) : literal(k)} = #{literal(v)}"
+		    end.join(COMMA_SEPARATOR)
+		  end
+		  sql << "\nWHEN MATCHED THEN\nUPDATE SET #{values}"
+		end
+		
+		# The SQL fragment specifying the columns and values to INSERT
+		def merge_insert_sql(sql)
+		  return if not @opts[:insert] or @opts[:insert].empty?
+		  columns, values = [], []
+		  @opts[:insert].each do |k,v|
+		    columns.push(k.is_a?(String) && !k.is_a?(LiteralString) ? quote_identifier(k) : literal(k))
+		    values.push(v.is_a?(String) && !v.is_a?(LiteralString) ? quote_identifier(v) : literal(v))
+		  end
+		  sql << "\nWHEN NOT MATCHED THEN\nINSERT (#{columns.join(COMMA_SEPARATOR)})"
+      sql << "\nVALUES (#{values.join(COMMA_SEPARATOR)})"
+	  end
+
+	  # The order of methods to call on the MERGE SQL statement
+	  def merge_clause_methods
+	    MERGE_CLAUSE_METHODS
+	  end
+	  
+	  def _merge_sql
+      _merge_alias_tables
+      @opts[:on] = @opts[:on].inject(nil) do |a,b|
+        b = _merge_expressions b
+        b = filter_expr((Array===b && b.size==1) ? b.first : b)
+        a ? SQL::BooleanExpression.new(:AND, a, b) : b
+      end
+      @opts[:insert] = @opts[:defaults].merge(@opts[:insert]) if @opts[:defaults]
+      @opts[:insert] = @opts[:insert].merge(@opts[:overrides]) if @opts[:overrides]
+      [:insert, :update, :delete].each do |k|
+        @opts[k] = _merge_expressions @opts[k], k!=:delete || nil
+      end
+
+	    clause_sql(:merge)
+	  end
+	  
+	  # Utility method to create and/or apply table aliaseses for expressions.
+	  def _merge_expressions(expr,apply_aliases=nil)
+	    if Symbol===expr
+		    expr = {expr => expr}
+	    elsif expr.is_a?(Array) and not expr.empty? and expr.all?{|x| x.is_a?(Symbol)}
+	      expr = expr.inject({}){|h,k| h[k]=k; h}
+			elsif expr.nil? or LiteralString===expr
+			  return expr
+	    end
+	    apply_aliases = Sequel.condition_specifier?(expr) if apply_aliases.nil?
+	    apply_aliases ? _merge_column_pairs(expr) : expr
+	  end
+	
+	  # Utility method to create any necessary table aliases.
+	  def _merge_alias_tables
+	    alias_num = @opts[:num_dataset_sources]||0
+	    [:into, :using].each do |k|
+		    if Symbol===@opts[k]
+		      u_table, u_column, u_alias = split_symbol(@opts[k])
+		      @opts[k] = "#{@opts[k]}___#{dataset_alias(alias_num += 1)}".to_sym unless u_alias
+		    else
+		      @opts[k] = @opts[k].as dataset_alias(alias_num += 1) unless @opts[k].respond_to? :aliaz
+		    end
+	    end
+	  end
+
+	private
+	
+	  # Utility method to qualify column pairs to the target and source table aliases.
+	  def _merge_table_aliases
+	    @opts.values_at(:into, :using).map{|t| Symbol===t ? split_symbol(t).last : t.aliaz.to_s}
+	  end
+	
+	  # Utility method to qualify column pairs to the target and source table aliases.
+	  def _merge_column_pairs(pairs)
+	    t1, t2 = _merge_table_aliases
+	    merged = pairs.collect do |k, v|
+	      k = qualified_column_name(k, t1) if k.is_a?(Symbol)
+	      v = qualified_column_name(v, t2) if v.is_a?(Symbol)
+	      [k,v]
+	    end
+	    merged = Hash[*merged.flatten] if Hash === pairs
+	    merged
+	  end
+
+    # Module used by Dataset#merge that has the effect of making all
+    # dataset methods into !-style methods that modify the receiver.
+    module MergeBlockCopy
+      def each; raise Error, "each cannot be invoked inside a merge block." end
+      def into(t) @opts[:into] = t end
+      def using(t) @opts[:using] = t end
+
+      %w'on update delete'.each do |m|
+	      module_eval <<-eodef
+	        def #{m}(*args, &block)
+	          @opts[:#{m}] = if block; then Sequel.virtual_row(&block)
+	            elsif Hash===args.first; then args.first
+		          else args
+		          end
+	        end
+	      eodef
+	    end
+
+	    def insert(*args, &block)
+	      args = [ args ] unless args.empty?
+	      args.push([Sequel.virtual_row(&block)]) if block
+	      @opts[:insert] = args.inject([]) do |r,a|
+	        if Hash === a.first
+		        raise Error, "Invalid insert arguments" unless a.size == 1
+	          r.concat a.first.to_a
+	        elsif a.size == 2
+	          raise Error, "Invalid insert arguments" unless a.all?{|v| Array===v && v.size==2}
+		        a.first.each_with_index{|k,i| r.push([k,a.last[i]]) }
+		        r
+			    else
+	          raise Error, "Invalid insert arguments"
+	        end
+		    end
+	    end
+
+      # Merge the given options into the receiver's options and return the receiver
+      # instead of cloning the receiver.
+      def clone(opts = nil)
+        @opts.merge!(opts)
+        self
+      end
+    end
+	end
+end

data/lib/sequel/oracle_extensions/schemata.rb

@@ -0,0 +1,61 @@
+require 'sequel'
+Sequel.require 'adapters/shared/oracle'
+
+# The oracle_schemata extension adds some schema related methods to the Oracle database adapater.
+module Sequel
+  module Oracle
+    module DatabaseMethods
+      
+			SELECT_INDEXES_SQL = %q{
+SELECT i.index_name, i.status, i.uniqueness, ic.column_name
+FROM all_indexes i
+INNER JOIN all_ind_columns ic ON ic.index_owner = i.owner AND ic.index_name = i.index_name 
+WHERE i.table_name = ? AND i.dropped = 'NO' AND NOT EXISTS (
+	SELECT uc.index_name FROM all_constraints uc
+	WHERE uc.index_name = i.index_name AND uc.owner = i.owner AND uc.constraint_type = 'P'
+)
+ORDER BY status DESC, index_name, ic.column_position
+		  }.freeze
+      
+      SELECT_PRIMARY_KEY_SQL = %q{
+SELECT c.constraint_name, c.index_name, c.status, cc.column_name
+FROM all_constraints c
+INNER JOIN all_cons_columns cc ON cc.owner = c.owner AND cc.constraint_name = c.constraint_name
+WHERE c.table_name = ? AND c.constraint_type = 'P'
+ORDER BY status DESC, constraint_name, cc.position
+      }.freeze
+
+	    # Returns the indexes for the given table, excluding any primary keys.
+	    def indexes(table)
+		    m = output_identifier_meth
+	      table = m[table]
+		    ixs = Hash.new{|h,k| h[k] = {:table_name=>table, :columns=>[]}}
+	      metadata_dataset.with_sql(SELECT_INDEXES_SQL, table.to_s.upcase).each do |r|
+	        r = Hash[ r.map{|k,v| [k, (k==:index_name || k==:column_name) ? m[v] : v]} ]
+		      ix = ixs[m.call r.delete(:index_name)]
+	        ix[:valid] = r.delete(:status)=='VALID'
+	        ix[:unique] = r.delete(:uniqueness)=='UNIQUE'
+	        ix[:columns] << r.delete(:column_name)
+	        ix.update r
+	      end
+	      ixs
+	    end
+	        
+	    # Returns the primary key for the given table.
+	    def primary_key(table)
+		    m = output_identifier_meth
+	      table = m[table]
+        pks = Hash.new{|h,k| h[k] = {:table_name=>table, :columns=>[]}}
+	      metadata_dataset.with_sql(SELECT_PRIMARY_KEY_SQL, table.to_s.upcase).each do |r|
+	        r = Hash[ r.map{|k,v| [k, (k==:status || v.nil? || v=='') ? v : m[v]]} ]
+          pk = pks[m.call r.delete(:constraint_name)]
+	        pk[:enabled] = r.delete(:status)=='ENABLED'
+	        pk[:columns] << r.delete(:column_name)
+	        pk.update r
+	      end
+	      return pks.first.last if pks.size <= 1 or pks[0][:enabled] == pks[1][:enabled]
+	      pks
+	    end
+    end
+  end
+end

data/lib/sequel/oracle_extensions.rb

@@ -0,0 +1,4 @@
+require 'sequel'
+require 'sequel/oracle_extensions/schemata'
+require 'sequel/oracle_extensions/merge'
+require 'sequel/oracle_extensions/hints'

data/lib/sequel_oracle_extensions.rb

@@ -0,0 +1 @@
+require 'sequel/oracle_extensions'

data/sequel_oracle_extensions.gemspec

@@ -0,0 +1,64 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{sequel_oracle_extensions}
+  s.version = "0.5.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Joe Khoobyar"]
+  s.date = %q{2010-05-24}
+  s.description = %q{Oracle extensions for Sequel, including MERGE statements, optimizer hints, and schema extensions.}
+  s.email = %q{joe@ankhcraft.com}
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     ".rspec",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "lib/sequel/oracle_extensions.rb",
+     "lib/sequel/oracle_extensions/hints.rb",
+     "lib/sequel/oracle_extensions/merge.rb",
+     "lib/sequel/oracle_extensions/schemata.rb",
+     "lib/sequel_oracle_extensions.rb",
+     "sequel_oracle_extensions.gemspec",
+     "spec/sequel/oracle_extensions/hints_spec.rb",
+     "spec/sequel/oracle_extensions/merge_spec.rb",
+     "spec/spec_helper.rb"
+  ]
+  s.homepage = %q{http://github.com/joekhoobyar/sequel_oracle_extensions}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.6}
+  s.summary = %q{Oracle MERGE, optimizer hints, an schema extensions for Sequel}
+  s.test_files = [
+    "spec/sequel/oracle_extensions/hints_spec.rb",
+     "spec/sequel/oracle_extensions/merge_spec.rb",
+     "spec/spec_helper.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<sequel>, [">= 3.10.0"])
+      s.add_development_dependency(%q<rspec>, [">= 2.0.0.beta.8"])
+    else
+      s.add_dependency(%q<sequel>, [">= 3.10.0"])
+      s.add_dependency(%q<rspec>, [">= 2.0.0.beta.8"])
+    end
+  else
+    s.add_dependency(%q<sequel>, [">= 3.10.0"])
+    s.add_dependency(%q<rspec>, [">= 2.0.0.beta.8"])
+  end
+end
+

data/spec/sequel/oracle_extensions/hints_spec.rb

@@ -0,0 +1,157 @@
+require File.expand_path('../../../spec_helper', __FILE__)
+require 'sequel/oracle_extensions/merge'
+require 'sequel/oracle_extensions/hints'
+
+describe "Sequel::OracleExtensions::Hints" do
+
+  CLAUSES = %w(SELECT INSERT UPDATE DELETE MERGE)
+  TYPES = CLAUSES.map{|clause| clause.downcase.intern}
+
+  before(:all) do
+    @db = Sequel.connect(DATABASE_URL)
+  end
+
+	def apply_hints!(*args)
+	  @old_hints = @ds.opts[:hints]
+	  @new_ds    = @ds.__send__(@method, *args)
+	
+	  @new_ds.should be_kind_of(Sequel::Dataset)
+	  @new_ds.opts[:hints].should_not be_empty
+	end
+  
+  it "hooks into dataset clause methods" do
+    [Sequel::Dataset, Sequel::Oracle::DatasetMethods].each do |klass|
+	    CLAUSES.each do |clause|
+	      next unless klass.const_defined?(k = :"#{clause}_CLAUSE_METHODS")
+		    klass.const_get(k).first.should == "#{clause.downcase}_hint_sql".intern
+		  end
+	  end
+  end
+
+  share_examples_for "dataset modifying" do
+    after(:each) do
+		  @ds.should equal(@new_ds)
+		  @ds.opts[:hints].should_not == @old_hints
+    end
+  end
+  
+  share_examples_for "dataset cloning" do
+    after(:each) do
+		  @ds.should_not equal(@new_ds)
+		  @ds.opts[:hints].should == @old_hints
+    end
+  end
+  
+  share_examples_for "standard callspec" do
+	  it "callspec (String) applies :select hints" do
+	    apply_hints! @hints.first
+      hints_to_check(@new_ds, :select, @hints[0,1]).should == @hints[0,1]
+	  end
+	  it "callspec (String, ...) applies :select hints" do
+	    apply_hints! *@hints
+      hints_to_check(@new_ds, :select, @hints).should == @hints
+	  end
+	  it "callspec (clause, String) applies clause hints" do
+	    TYPES.each do |type|
+        apply_hints! type, @hints.first
+	      hints_to_check(@new_ds, type, @hints[0,1]).should == @hints[0,1]
+	    end
+	  end
+	  it "callspec (clause, String, ...) applies clause hints" do
+	    TYPES.each do |type|
+        apply_hints! type, *@hints
+	      hints_to_check(@new_ds, type, @hints).should == @hints
+	    end
+	  end
+  end
+
+  share_examples_for "clause-specific callspec" do
+	  it "callspec (String) applies hints" do
+	    apply_hints! @hints.first
+      hints_to_check(@new_ds, @clause, @hints[0,1]).should == @hints[0,1]
+	  end
+	  it "callspec (String, ...) applies hints" do
+	    apply_hints! *@hints
+      hints_to_check(@new_ds, @clause, @hints).should == @hints
+	  end
+  end
+  
+  describe "hints" do
+    before(:each){ @ds, @hints = @db[:dual], ['foo', 'bar'] }
+    
+    COMMON_GROUP_BODY = Proc.new do |group,name|
+      group.class_eval do
+			  describe "##{name}" do
+		      before(:each){ @method = :"#{name}" }
+			    it_should_behave_like "dataset cloning"
+			    it_should_behave_like "standard callspec"
+			  end
+			  describe "##{name}!" do
+		      before(:each){ @method = :"#{name}!" }
+			    it_should_behave_like "dataset modifying"
+			    it_should_behave_like "standard callspec"
+			  end
+			  TYPES.each do |clause|
+				  describe "##{clause}_#{name}" do
+			      before(:each){ @clause, @method = clause, :"#{clause}_#{name}"}
+				    it_should_behave_like "dataset cloning"
+				    it_should_behave_like "clause-specific callspec"
+				  end
+				  describe "##{clause}_#{name}!" do
+			      before(:each){ @clause, @method = clause, :"#{clause}_#{name}!"}
+				    it_should_behave_like "dataset modifying"
+				    it_should_behave_like "clause-specific callspec"
+				  end
+			  end
+		  end
+    end
+	    
+	  describe "adding hints" do
+	    def hints_to_check(ds, type, input)
+	      ds.opts[:hints][type][(@orig_hints[type].length rescue 0), input.length]
+	    end
+	    COMMON_GROUP_BODY.call self, :hint
+	  end
+	  
+	  describe "overwriting hints" do
+	    def hints_to_check(ds, type, input)
+	      ds.opts[:hints][type]
+	    end
+	    COMMON_GROUP_BODY.call self, :hints
+	  end
+	  
+    describe "#hint_sql" do
+	    it "generates clause-specific hint SQL" do
+	      # set them all up front so we can test whether they get mixed up.
+        TYPES.each do |type| @ds.hints! type, "hint for #{type}" end
+	      TYPES.each do |type|
+	        sql = (clause = type.to_s.upcase).dup
+	        @ds.hint_sql(type, sql).should equal(sql)
+	        sql.should == "#{clause} /*+ hint for #{type} */"
+	      end
+	    end
+	    
+	    it "skips empty hints" do
+	      TYPES.each do |type|
+	        sql = (clause = type.to_s.upcase).dup
+	        @ds.hint_sql(type, sql).should be_nil
+	        sql.should == clause
+	      end
+	    end
+	    
+      TYPES.each do |type|
+		    it "is called by ##{type}_hint_sql" do
+	        clause = type.to_s.upcase
+		      @ds.should_receive(:hint_sql).with(type, clause)
+		      @ds.__send__ :"#{type}_hint_sql", clause
+		    end
+		    it "is called by ##{type}_sql" do
+	        args, clause = [], type.to_s.upcase
+		      @ds.should_receive(:hint_sql).with(type, clause)
+		      args.push :dual, :dual, :x if type == :merge
+		      @ds.__send__ :"#{type}_sql", *args
+		    end
+	    end
+    end
+  end
+end

data/spec/sequel/oracle_extensions/merge_spec.rb

@@ -0,0 +1,8 @@
+require File.expand_path('../../../spec_helper', __FILE__)
+require 'sequel/oracle_extensions/merge'
+
+describe "Sequel::OracleExtensions::Merge" do
+  before(:all) do
+    @db = Sequel.connect(DATABASE_URL)
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,25 @@
+require 'rubygems'
+require 'pp'
+begin require 'win32console' and include Win32::Console::ANSI
+rescue LoadError
+end if RUBY_PLATFORM =~ /msvc|mingw|cygwin|win32/
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'sequel'
+require "rspec"
+
+DATABASE_URL = begin
+	user     = ENV['DATABASE_USER'] || 'hr'
+	password = ENV['DATABASE_PASSWORD'] || 'hr'
+	name     = ENV['DATABASE_NAME'] || 'xe'
+	host     = ENV['DATABASE_HOST'] || 'localhost'
+  port     = ':'+ENV['DATABASE_PORT'] rescue nil
+  "oracle://#{user}:#{password}@#{host}#{port}/#{name}"
+end
+
+Rspec.configure do |config|
+  require 'rspec/expectations'
+  config.include Rspec::Matchers
+  config.mock_with :rspec
+end

metadata

@@ -0,0 +1,109 @@
+--- !ruby/object:Gem::Specification 
+name: sequel_oracle_extensions
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 5
+  - 0
+  version: 0.5.0
+platform: ruby
+authors: 
+- Joe Khoobyar
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-05-24 00:00:00 -04:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: sequel
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 3
+        - 10
+        - 0
+        version: 3.10.0
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 2
+        - 0
+        - 0
+        - beta
+        - 8
+        version: 2.0.0.beta.8
+  type: :development
+  version_requirements: *id002
+description: Oracle extensions for Sequel, including MERGE statements, optimizer hints, and schema extensions.
+email: joe@ankhcraft.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- .gitignore
+- .rspec
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- lib/sequel/oracle_extensions.rb
+- lib/sequel/oracle_extensions/hints.rb
+- lib/sequel/oracle_extensions/merge.rb
+- lib/sequel/oracle_extensions/schemata.rb
+- lib/sequel_oracle_extensions.rb
+- sequel_oracle_extensions.gemspec
+- spec/sequel/oracle_extensions/hints_spec.rb
+- spec/sequel/oracle_extensions/merge_spec.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://github.com/joekhoobyar/sequel_oracle_extensions
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: Oracle MERGE, optimizer hints, an schema extensions for Sequel
+test_files: 
+- spec/sequel/oracle_extensions/hints_spec.rb
+- spec/sequel/oracle_extensions/merge_spec.rb
+- spec/spec_helper.rb