sql-maker 0.0.1

data/scripts/perl2ruby.rb

@@ -0,0 +1,34 @@
+filename = ARGV.first
+body = File.read(filename)
+
+body.gsub!(/ eq /, ' == ')
+body.gsub!(/\$([_A-Za-z]\w*)->\{([_A-Za-z]\w*)\}/, '\1.\2') # $self->{var} => self.var
+body.gsub!(/\$([_A-Za-z]\w*)->([_A-Za-z]\w*)/, '\1.\2') # $self->var => self.var
+body.gsub!(/\$([_A-Za-z]\w*)/, '\1') # $var => var
+body.gsub!(/\@([_A-Za-z]\w*)/, '\1') # @var => var
+body.gsub!(/ \. /, ' + ') # str . str => str + str
+body.gsub!(/join\('([^']+)', ([^)]+)\)/, '\2.join(\'\1\')') # join(', ', foo) => foo.join(', ')
+body.gsub!(/subtest '([^']+)' => sub {/, 'it \'\1\' do') # subtest '[]' => sub { => it '[]' do
+body.gsub!(/sub ([_A-Za-z]\w*) {/, 'def \1') # sub sql_op { => def sql_op
+body.gsub!(/([_A-Za-z]\w*) => /, ':\1 => ') # x => [] to :x => []
+body.gsub!(/ +};$/, 'end') # }; => end
+body.gsub!(/}$/, 'end') # } => end
+body.gsub!(/my /, '') # remove my
+body.gsub!(/->/, '.') # foo->var => foo.var
+body.gsub!(/;$/, '')
+body.gsub!(/\\'$/, "'") # \' => '
+body.gsub!(/\\\[$/, "[") # \[ => [
+body.gsub!(/qq{/, '%Q{')
+#body.gsub!(/\[ qw\/([^/]+)\/ \]/, '%w/\1/')
+body.gsub!(/ordered_hashref\(([^)]+)\)/, '{\1}')
+body.gsub!(/use strict/, '')
+body.gsub!(/\(sql, bind\)/, 'sql, bind')
+body.gsub!(/use warnings/, '')
+body.gsub!(/use Test::More/, "require_relative '../spec_helper'")
+body.gsub!(/use SQL::Maker/, "require 'sql/maker'")
+body.gsub!(/use SQL::QueryMaker/, "require 'sql/query_maker'")
+body.gsub!(/done_testing/, '')
+body.gsub!(/is ([^,]+), (.+)$/, 'expect(\1).to be == \2')
+body.gsub!(/is\(([^,]+), (.+)\)$/, 'expect(\1).to be == \2')
+body.gsub!(/is ([^(]+\([^)]+\)), (.+)$/, 'expect(\1).to be == \2') # is foo.join(', '), '1'
+puts body.strip

data/spec/maker/bind_param_spec.rb

@@ -0,0 +1,62 @@
+require_relative '../spec_helper'
+require 'sql/maker'
+
+describe 'SQL::Maker' do
+  context 'auto bind' do
+    let(:builder) { SQL::Maker.new(:driver => 'mysql', :auto_bind => true) }
+
+    it 'delete' do
+      sql = builder.delete('foo', {:bar => "t' OR 't' = 't"})
+      expect(sql).to be == %q{DELETE FROM `foo` WHERE (`bar` = 't'' OR ''t'' = ''t')}
+    end
+
+    it 'insert' do
+      sql = builder.insert('foo', {:bar => "t' OR 't' = 't"})
+      expect(sql).to be == %Q{INSERT INTO `foo`\n(`bar`)\nVALUES ('t'' OR ''t'' = ''t')}
+    end
+
+    it 'select' do
+      sql = builder.select('foo', ['foo'], { :bar => "t' OR 't' = 't" })
+      expect(sql).to be == %Q{SELECT `foo`\nFROM `foo`\nWHERE (`bar` = 't'' OR ''t'' = ''t')}
+    end
+
+    it 'update' do
+      sql = builder.update('foo', {:bar => "t' OR 't' = 't"})
+      expect(sql).to be == %Q{UPDATE `foo` SET `bar` = 't'' OR ''t'' = ''t'}
+    end
+  end
+
+  context '#bind_param' do
+    let(:builder) { SQL::Maker.new(:driver => 'mysql', :auto_bind => false) }
+
+    it 'delete' do
+      sql, bind = builder.delete('foo', {:bar => "t' OR 't' = 't"})
+      sql = builder.bind_param(sql, bind)
+      expect(sql).to be == %q{DELETE FROM `foo` WHERE (`bar` = 't'' OR ''t'' = ''t')}
+    end
+  end
+
+  context 'hash arguments' do
+    let(:builder) { SQL::Maker.new(:driver => 'mysql', :auto_bind => true) }
+
+    it 'delete' do
+      sql = builder.delete(table: 'foo', where: {:bar => "t' OR 't' = 't"})
+      expect(sql).to be == %q{DELETE FROM `foo` WHERE (`bar` = 't'' OR ''t'' = ''t')}
+    end
+
+    it 'insert' do
+      sql = builder.insert(table: 'foo', values: {:bar => "t' OR 't' = 't"})
+      expect(sql).to be == %Q{INSERT INTO `foo`\n(`bar`)\nVALUES ('t'' OR ''t'' = ''t')}
+    end
+
+    it 'select' do
+      sql = builder.select(table: 'foo', fields: ['foo'], where: { :bar => "t' OR 't' = 't" })
+      expect(sql).to be == %Q{SELECT `foo`\nFROM `foo`\nWHERE (`bar` = 't'' OR ''t'' = ''t')}
+    end
+
+    it 'update' do
+      sql = builder.update(table: 'foo', set: {:bar => "t' OR 't' = 't"})
+      expect(sql).to be == %Q{UPDATE `foo` SET `bar` = 't'' OR ''t'' = ''t'}
+    end
+  end
+end

data/spec/maker/condition/add_raw_spec.rb

@@ -0,0 +1,29 @@
+require_relative '../../spec_helper'
+require 'sql/maker/condition'
+
+describe 'SQL::Maker::Condition' do
+  it 'with values' do
+    w1 = SQL::Maker::Condition.new()
+    w1.add_raw( 'a = ?' => 1 )
+    w1.add_raw( 'b = ?' => 2 )
+
+    expect(w1.as_sql).to be == '(a = ?) AND (b = ?)'
+    expect(w1.bind.join(',')).to be == '1,2'
+
+    w2 = SQL::Maker::Condition.new()
+    w2.add_raw( 'b = IF(c > 0, ?, ?)' => [0, 1] )
+    w2.add_raw( 'd = ?' => [2]) 
+
+    expect(w2.as_sql).to be == '(b = IF(c > 0, ?, ?)) AND (d = ?)'
+    expect(w2.bind.join(',')).to be == '0,1,2'
+  end
+
+  it 'without values' do
+    w = SQL::Maker::Condition.new()
+    w.add_raw( 'a IS NOT NULL' )
+    w.add_raw( 'b IS NULL' )
+
+    expect(w.as_sql).to be == '(a IS NOT NULL) AND (b IS NULL)'
+    expect(w.bind.join(',')).to be == ''
+  end
+end

data/spec/maker/condition/compose_empty_spec.rb

@@ -0,0 +1,72 @@
+require_relative '../../spec_helper'
+require 'sql/maker/condition'
+
+describe 'SQL::Maker::Condition' do
+  let(:w1) do
+    w1 = SQL::Maker::Condition.new()
+    w1.add(:x => 1)
+    w1.add(:y => 2)
+  end
+  let(:w2) { SQL::Maker::Condition.new() }
+  let(:w3) { SQL::Maker::Condition.new() }
+
+  it 'and_before' do
+    w = (w1 & w2)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?))'
+    expect(w.bind.join(', ')).to be == '1, 2'
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?)) AND (z = ?)'
+    expect(w.bind.join(', ')).to be == '1, 2, 99'
+  end
+
+  it 'and_after' do 
+    w = (w2 & w1)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?))'
+    expect(w.bind.join(', ')).to be == '1, 2'
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?)) AND (z = ?)'
+    expect(w.bind.join(', ')).to be == '1, 2, 99'
+  end
+
+  it 'or_before' do
+    w = (w1 | w2)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?))'
+    expect(w.bind.join(', ')).to be == '1, 2'
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?)) AND (z = ?)'
+    expect(w.bind.join(', ')).to be == '1, 2, 99'
+  end
+
+  it 'or_after' do
+    w = (w2 | w1)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?))'
+    expect(w.bind.join(', ')).to be == '1, 2'
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?)) AND (z = ?)'
+    expect(w.bind.join(', ')).to be == '1, 2, 99'
+  end
+
+  it 'and_both' do
+    w = (w2 & w3)
+    expect(w.as_sql).to be == ''
+    expect(w.bind.join(', ')).to be == ''
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '(z = ?)'
+    expect(w.bind.join(', ')).to be == '99'
+  end
+
+  it 'or_both' do
+    w = (w2 | w3)
+    expect(w.as_sql).to be == ''
+    expect(w.bind.join(', ')).to be == ''
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '(z = ?)'
+    expect(w.bind.join(', ')).to be == '99'
+  end
+end

data/spec/maker/condition/empty_values_spec.rb

@@ -0,0 +1,25 @@
+require_relative '../../spec_helper'
+require 'sql/maker/condition'
+
+describe SQL::Maker::Condition do
+  it '[]' do
+    w = SQL::Maker::Condition.new()
+    w.add(:x => [])
+    expect(w.as_sql).to be == '(0=1)'
+    expect(w.bind.join(', ')).to be == ''
+  end
+
+  it 'in' do
+    w = SQL::Maker::Condition.new()
+    w.add(:x => { 'IN' => [] })
+    expect(w.as_sql).to be == '(0=1)'
+    expect(w.bind.join(', ')).to be == ''
+  end
+
+  it 'not in' do
+    w2 = SQL::Maker::Condition.new()
+    w2.add(:x => { 'NOT IN' => [] })
+    expect(w2.as_sql).to be == '(1=1)'
+    expect(w2.bind.join(', ')).to be == ''
+  end
+end

data/spec/maker/condition/make_term_spec.rb

@@ -0,0 +1,38 @@
+require_relative '../../spec_helper'
+require 'sql/maker/condition'
+require 'sql/maker/helper'
+
+include SQL::Maker::Helper
+
+def test(input, expected_term, expected_bind)
+  describe 'SQL::Maker::Condition' do
+    it input do
+      source = eval(input, binding)
+      cond = SQL::Maker::Condition.new(
+        :quote_char => '`',
+        :name_sep   => '.',
+      )
+      cond.add(source)
+      sql = cond.as_sql
+      sql = sql.gsub(/^\(/, '').gsub(/\)$/, '')
+      expect(sql).to be == expected_term
+      expect(cond.bind).to be == expected_bind
+    end
+  end
+end
+
+begin
+  file = File.open("#{ROOT}/lib/sql/maker/condition.rb")
+  while line = file.gets
+    break if line =~ /=head1 CONDITION CHEAT SHEET/
+  end
+  while line = file.gets
+    next if line =~ /^#/
+    src = $1 if line =~ /IN:\s*(.+)\s*$/
+    query = eval($1, binding) if line =~ /OUT QUERY:(.+)/
+    if line =~ /OUT BIND:(.+)/
+      bind = eval($1, binding)
+      test(src, query, bind)
+    end
+  end
+end

data/spec/maker/condition/where_spec.rb

@@ -0,0 +1,35 @@
+require_relative '../../spec_helper'
+require 'sql/maker/condition'
+
+describe SQL::Maker::Condition do
+  let(:w1) do
+    w1 = SQL::Maker::Condition.new()
+    w1.add(:x => 1)
+    w1.add(:y => 2)
+  end
+  let(:w2) do
+    w2 = SQL::Maker::Condition.new()
+    w2.add(:a => 3)
+    w2.add(:b => 4)
+  end
+
+  it 'and' do
+    w = (w1 & w2)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?)) AND ((a = ?) AND (b = ?))'
+    expect(w.bind.join(', ')).to be == '1, 2, 3, 4'
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '((x = ?) AND (y = ?)) AND ((a = ?) AND (b = ?)) AND (z = ?)'
+    expect(w.bind.join(', ')).to be == '1, 2, 3, 4, 99'
+  end
+
+  it 'or' do
+    w = (w1 | w2)
+    expect(w.as_sql).to be == '(((x = ?) AND (y = ?)) OR ((a = ?) AND (b = ?)))'
+    expect(w.bind.join(', ')).to be == '1, 2, 3, 4'
+
+    w.add(:z => 99)
+    expect(w.as_sql).to be == '(((x = ?) AND (y = ?)) OR ((a = ?) AND (b = ?))) AND (z = ?)'
+    expect(w.bind.join(', ')).to be == '1, 2, 3, 4, 99'
+  end
+end

data/spec/maker/delete_spec.rb

@@ -0,0 +1,116 @@
+require_relative '../spec_helper'
+require 'sql/maker'
+
+describe 'SQL::Maker' do
+  context 'driver sqlite' do
+    it 'simple where_as_hashref' do
+      builder = SQL::Maker.new(:driver => 'sqlite')
+      sql, bind = builder.delete('foo', {:bar => 'baz', :john => 'man'})
+      expect(sql).to be == %q{DELETE FROM "foo" WHERE ("bar" = ?) AND ("john" = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    # it 'simple where_as_arrayref' do
+
+    it 'simple where_as_condition' do
+      builder = SQL::Maker.new(:driver => 'sqlite')
+      cond = builder.new_condition
+      cond.add(:bar => 'baz')
+      cond.add(:john => 'man')
+      sql, bind = builder.delete('foo', cond)
+      expect(sql).to be == %q{DELETE FROM "foo" WHERE ("bar" = ?) AND ("john" = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    it 'delete all' do
+      builder = SQL::Maker.new(:driver => 'sqlite')
+      sql, bind = builder.delete('foo')
+      expect(sql).to be == %q{DELETE FROM "foo"}
+      expect(bind.join(',')).to be == ''
+    end
+  end
+
+  context 'driver mysql' do
+    it 'simple where_as_hashref' do
+      builder = SQL::Maker.new(:driver => 'mysql')
+      sql, bind = builder.delete('foo', {:bar => 'baz', :john => 'man'})
+      expect(sql).to be == %q{DELETE FROM `foo` WHERE (`bar` = ?) AND (`john` = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    # it 'simple where_as_arrayref' do
+
+    it 'simple where_as_condition' do
+      builder = SQL::Maker.new(:driver => 'mysql')
+      cond = builder.new_condition
+      cond.add(:bar => 'baz')
+      cond.add(:john => 'man')
+      sql, bind = builder.delete('foo', cond)
+      expect(sql).to be == %q{DELETE FROM `foo` WHERE (`bar` = ?) AND (`john` = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    it 'delete all' do
+      builder = SQL::Maker.new(:driver => 'mysql')
+      sql, bind = builder.delete('foo')
+      expect(sql).to be == %q{DELETE FROM `foo`}
+      expect(bind.join(',')).to be == ''
+    end
+
+    it 'delete using where_as_hashref' do
+      builder = SQL::Maker.new(:driver => 'mysql')
+      sql, bind = builder.delete('foo', {:bar => 'baz', :john => 'man'}, {:using => 'bar'})
+      expect(sql).to be == %q{DELETE FROM `foo` USING `bar` WHERE (`bar` = ?) AND (`john` = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    it 'delete using array where_as_hashref' do
+      builder = SQL::Maker.new(:driver => 'mysql')
+      sql, bind = builder.delete('foo', {:bar => 'baz', :john => 'man'}, {:using => ['bar', 'qux']})
+      expect(sql).to be == %q{DELETE FROM `foo` USING `bar`, `qux` WHERE (`bar` = ?) AND (`john` = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+  end
+
+  context 'driver mysql, quote_char: "", new_line: " "' do
+    it 'simple where_as_hashref' do
+      builder = SQL::Maker.new(:driver => 'mysql', :quote_char => '', :new_line => ' ')
+      sql, bind = builder.delete('foo', {:bar => 'baz', :john => 'man'})
+      expect(sql).to be == %q{DELETE FROM foo WHERE (bar = ?) AND (john = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    # it 'simple where_as_arrayref' do
+
+    it 'simple where_as_condition' do
+      builder = SQL::Maker.new(:driver => 'mysql', :quote_char => '', :new_line => ' ')
+      cond = builder.new_condition
+      cond.add(:bar => 'baz')
+      cond.add(:john => 'man')
+      sql, bind = builder.delete('foo', cond)
+      expect(sql).to be == %q{DELETE FROM foo WHERE (bar = ?) AND (john = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    it 'delete all' do
+      builder = SQL::Maker.new(:driver => 'mysql', :quote_char => '', :new_line => ' ')
+      sql, bind = builder.delete('foo')
+      expect(sql).to be == %q{DELETE FROM foo}
+      expect(bind.join(',')).to be == ''
+    end
+
+    it 'delete using where_as_hashref' do
+      builder = SQL::Maker.new(:driver => 'mysql', :quote_char => '', :new_line => ' ')
+      sql, bind = builder.delete('foo', {:bar => 'baz', :john => 'man'}, {:using => 'bar'})
+      expect(sql).to be == %q{DELETE FROM foo USING bar WHERE (bar = ?) AND (john = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+
+    it 'delete using array where_as_hashref' do
+      builder = SQL::Maker.new(:driver => 'mysql', :quote_char => '', :new_line => ' ')
+      sql, bind = builder.delete('foo', {:bar => 'baz', :john => 'man'}, {:using => ['bar', 'qux']})
+      expect(sql).to be == %q{DELETE FROM foo USING bar, qux WHERE (bar = ?) AND (john = ?)}
+      expect(bind.join(',')).to be == 'baz,man'
+    end
+  end
+end

data/spec/maker/insert_empty_spec.rb

@@ -0,0 +1,23 @@
+require_relative '../spec_helper'
+require 'sql/maker'
+
+describe 'SQL::Maker#insert' do
+  def normalize(sql)
+    sql.gsub(/\n/, ' ')
+  end
+
+  # see https://github.com/tokuhirom/SQL-Maker/issues/11
+  it 'sqlite' do
+    maker = SQL::Maker.new(:driver => 'SQLite')
+    sql, bind = maker.insert('foo', {})
+    expect(normalize(sql)).to be == 'INSERT INTO "foo" DEFAULT VALUES'
+    expect(bind.size).to be == 0
+  end
+
+  it 'mysql' do
+    maker = SQL::Maker.new(:driver => 'mysql')
+    sql, bind = maker.insert('foo', {})
+    expect(normalize(sql)).to be == 'INSERT INTO `foo` () VALUES ()'
+    expect(bind.size).to be == 0
+  end
+end