alf-sql 0.15.0

data/spec/processor/merge/test_on_with_exp.rb

@@ -0,0 +1,56 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Merge, "on_with_exp" do
+
+        subject{ Merge.new(:intersect, right, builder(1)).on_with_exp(expr) }
+
+        context 'when right is a simple exp' do
+          let(:expr){
+            # with t1 AS ...
+            #      SELECT * FROM t1
+            with_exp({t1: select_all}, select_all)
+          }
+
+          let(:right){
+            # SELECT * FROM t2
+            select_all_t2
+          }
+
+          let(:expected){
+            # WITH t1 AS ...
+            # SELECT * FROM t1 INTERSECT SELECT * FROM t2
+            with_exp({t1: select_all}, intersect)
+          }
+
+          it{ should eq(expected) }
+        end
+
+        context 'when right is a with_exp' do
+          let(:expr){
+            # WITH t1 AS ...
+            # SELECT * FROM t1
+            with_exp({t1: select_all}, select_all)
+          }
+
+          let(:right){
+            # WITH t2 AS ...
+            # SELECT * FROM t2
+            with_exp({t2: select_all_t2}, select_all_t2)
+          }
+
+          let(:expected){
+            # WITH t1 AS ...
+            #      t2 AS ...
+            # SELECT * FROM t1 INTERSECT SELECT * FROM t2
+            with_exp({t1: select_all, t2: select_all_t2}, intersect)
+          }
+
+          it{ should eq(expected) }
+        end
+
+      end
+    end
+  end
+end

data/spec/processor/order_by/test_on_select_exp.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe OrderBy, "on_select_exp" do
+
+        subject{ OrderBy.new(ordering, builder).on_select_exp(expr) }
+
+        context 'when not already ordered' do
+          let(:expr){
+            select_all
+          }
+
+          let(:expected){
+            select_all.push(order_by_clause)
+          }
+
+          it{ should eq(expected) }
+        end
+
+      end
+    end
+  end
+end

data/spec/processor/rename/test_on_select_item.rb

@@ -0,0 +1,30 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Rename, "on_select_item" do
+
+        subject{ Rename.new(Renaming[a: :x], Builder.new).on_select_item(expr) }
+
+        context 'when included' do
+          let(:expr){ select_item('a', 'a') }
+
+          it{ should eq(select_item('a', 'x')) }
+        end
+
+        context 'when already a renaming' do
+          let(:expr){ select_item('b', 'a') }
+
+          it{ should eq(select_item('b', 'x')) }
+        end
+
+        context 'when not matching' do
+          let(:expr){ select_item('a', 'y') }
+
+          it{ should be(expr) }
+        end
+
+      end
+    end
+  end
+end

data/spec/processor/rename/test_on_select_list.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Rename, "on_select_list" do
+
+        subject{ Rename.new(Renaming[a: :b, c: :d], Builder.new).on_select_list(expr) }
+
+        let(:expr){
+          select_list("a" => "a", "x" => "c", "y" => "z")
+        }
+
+        let(:expected){
+          select_list("a" => "b", "x" => "d", "y" => "z")
+        }
+
+        it{ should eq(expected) }
+
+      end
+    end
+  end
+end

data/spec/processor/reorder/test_on_select_list.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Reorder, "on_select_list" do
+
+        subject{ Reorder.new([:b, :a], Builder.new).on_select_list(expr) }
+
+        let(:expr){
+          select_list_ab
+        }
+
+        let(:expected){
+          select_list_ba
+        }
+
+        it{ should eq(expected) }
+
+      end
+    end
+  end
+end

data/spec/processor/requalify/test_on_select_exp.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Requalify, "on_select_exp" do
+
+        subject{ Requalify.new(Builder.new(1)).on_select_exp(expr) }
+
+        context 'when not already ordered' do
+          let(:expr){
+            select_all
+          }
+
+          let(:expected){
+            select_all_from_t1_as_t2
+          }
+
+          it{ should eq(expected) }
+        end
+
+      end
+    end
+  end
+end

data/spec/processor/star/test_on_select_exp.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Star, "on_select_list" do
+
+        subject{ Star.new(Builder.new).on_select_exp(expr) }
+
+        context 'on select_all' do
+          let(:expr){ select_all }
+
+          it{ should eq(select_all_star) }
+        end
+
+        context 'on select_distinct' do
+          let(:expr){ select_distinct }
+
+          it{ should eq(select_distinct_star) }
+        end
+
+      end
+    end
+  end
+end

data/spec/processor/test_clip.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Clip do
+
+        subject{ Clip.new([:a], Builder.new).call(expr) }
+
+        context 'on a select_exp' do
+          let(:expr){ select_ab }
+
+          it{ should eq(select_a) }
+        end
+
+        context 'on a with_exp' do
+          let(:expr){ with_exp(nil, select_ab) }
+
+          it{ should eq(with_exp(nil, select_a)) }
+        end
+
+      end
+    end
+  end
+end

data/spec/processor/test_distinct.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Distinct do
+
+        subject{ Distinct.new(Builder.new).call(expr) }
+
+        context 'on a select_exp' do
+          let(:expr){ select_all }
+
+          it{ should eq(select_distinct) }
+        end
+
+        context 'on a with_exp' do
+          let(:expr){ with_exp(nil, select_all) }
+
+          it{ should eq(with_exp(nil, select_distinct)) }
+        end
+
+      end
+    end
+  end
+end

data/spec/processor/test_on_select_exp.rb

@@ -0,0 +1,28 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    describe Processor, "on_select_exp" do
+
+      let(:clazz){
+        Class.new(Processor){
+          def on_select_list(sexpr)
+            [:foo, :bar, sexpr]
+          end
+        }
+      }
+
+      subject{ clazz.new(Builder.new).on_select_exp(expr) }
+
+      let(:expr){
+        Grammar.sexpr [:select_exp, distinct, select_list_ab, [:baz]]
+      }
+
+      let(:expected){
+        [:select_exp, distinct, [:foo, :bar, select_list_ab], [:baz]]
+      }
+
+      it{ should eq(expected) }
+
+    end
+  end
+end

data/spec/processor/test_on_set_operator.rb

@@ -0,0 +1,28 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    describe Processor, "on_set_operator" do
+
+      let(:clazz){
+        Class.new(Processor){
+          def on_select_exp(sexpr)
+            [:foo, :bar, sexpr]
+          end
+        }
+      }
+
+      subject{ clazz.new(Builder.new).on_set_operator(expr) }
+
+      let(:expr){
+        [:union, all, select_all_a, select_all_b]
+      }
+
+      let(:expected){
+        [:union, all, [:foo, :bar, select_all_a], [:foo, :bar, select_all_b]]
+      }
+
+      it{ should eq(expected) }
+
+    end
+  end
+end

data/spec/processor/test_rename.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+module Alf
+  module Sql
+    class Processor
+      describe Rename do
+
+        subject{ Rename.new(Renaming[a: :b], Builder.new).call(expr) }
+
+        context 'on a select_exp' do
+          let(:expr){ select_all_a }
+
+          it{ should eq(select_all_a_as_b) }
+        end
+
+        context 'on a with_exp' do
+          let(:expr){ with_exp(nil, select_all_a) }
+
+          it{ should eq(with_exp(nil, select_all_a_as_b)) }
+        end
+
+      end
+    end
+  end
+end

data/spec/shared/compiled_examples.rb

@@ -0,0 +1,13 @@
+shared_examples_for "a compiled" do
+
+  it{ should be_a(Alf::Sql::Cog) }
+
+  it 'has correct traceability' do
+    subject.expr.should be(expr)
+  end
+
+  it 'has correct compiler' do
+    subject.compiler.should be(compiler)
+  end
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1,14 @@
+require 'alf-core'
+require 'alf-sql'
+require "rspec"
+
+require_relative 'helpers/ast'
+require_relative 'helpers/compiler'
+
+require_relative 'shared/compiled_examples'
+
+RSpec.configure do |c|
+  c.include Alf::Lang::Functional
+  c.include Helpers
+  c.extend  Helpers
+end

data/spec/test_sql.rb

@@ -0,0 +1,10 @@
+require 'spec_helper'
+module Alf
+  describe Sql do
+
+    it "should have a version number" do
+      Sql.const_defined?(:VERSION).should be_true
+    end
+
+  end
+end

data/tasks/bench.rake

@@ -0,0 +1,40 @@
+namespace :bench do
+
+  def bench_cmd
+    "bundle exec ruby -Ilib -I spec/integration/ spec/integration/bench_all.rb"
+  end
+
+  def alf_cmd(tail)
+    "bundle exec alf --ff=%.6f --input-reader=rash #{tail}"
+  end
+
+  task :run do
+    cmd = bench_cmd
+    $stderr.puts cmd
+    exec(cmd)
+  end
+
+  task :summary do
+    cmd = bench_cmd
+    cmd << " | "
+    cmd << alf_cmd("summarize -- category -- min 'min{ total }' max 'max{ total }' avg 'avg{ total }' stddev 'stddev{ total }'")
+    $stderr.puts cmd
+    exec(cmd)
+  end
+
+  task :rank do
+    cmd = bench_cmd
+    cmd << " | "
+    cmd << alf_cmd("summarize -- category alf -- parsing 'avg{ parsing }' compiling 'avg{ compiling }' translating 'avg{ translating }' printing 'avg{ printing }' total 'avg{ total }'")
+    cmd << " | "
+    cmd << alf_cmd("rank -- total desc -- position")
+    cmd << " | "
+    cmd << alf_cmd("project -- position category alf parsing compiling printing total")
+    cmd << " | "
+    cmd << alf_cmd("restrict -- 'position < 10'")
+    $stderr.puts cmd
+    exec(cmd)
+  end
+
+end
+task :bench => :"bench:run"

data/tasks/gem.rake

@@ -0,0 +1,8 @@
+require 'rubygems/package_task'
+gemspec_file = File.expand_path('../../alf-sql.gemspec', __FILE__)
+gemspec      = Kernel.eval(File.read(gemspec_file))
+Gem::PackageTask.new(gemspec) do |t|
+  t.name = gemspec.name
+  t.version = gemspec.version
+  t.package_files = gemspec.files
+end