piggly 1.2.1 → 2.0.0

data/spec/{grammar → examples/grammar}/tokens/datatype_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do
@@ -7,43 +7,49 @@ module Piggly
     describe "data types" do
       it "can consist of a single word" do
         %w[int boolean char varchar text date timestamp record].test_each do |s|
-          parse(:tType, s).should be_a(TDatatype)
+          parse(:tType, s).should be_datatype
         end
       end
       
       it "can have parameterized types" do
         ["numeric(10,2)", "decimal(12,4)", "char(1)", "varchar(100)"].test_each do |s|
-          parse(:tType, s).should be_a(TDatatype)
+          parse(:tType, s).should be_datatype
         end
       end
 
       it "can end in %ROWTYPE" do
         %w[users%rowtype].test_each do |s|
-          parse(:tType, s).should be_a(TDatatype)
+          parse(:tType, s).should be_datatype
+        end
+      end
+
+      it "can have namespace notation" do
+        %w[public.users namespace.relation%rowtype].test_each do |s|
+          parse(:tType, s).should be_datatype
         end
       end
 
       it "can consist of several words" do
         ["timestamp with time zone", "character varying"].test_each do |s|
-          parse(:tType, s).should be_a(TDatatype)
+          parse(:tType, s).should be_datatype
         end
       end
 
       it "can specify arrays" do
         ["integer[]", "varchar(10)[]", "numeric(10,2)[]", "timestamp without time zone[]"].test_each do |s|
-          parse(:tType, s).should be_a(TDatatype)
+          parse(:tType, s).should be_datatype
         end
       end
 
       it "can specify multi-dimensional" do
         ["integer[][]", "char(1)[][]", "character varying[][]"].test_each do |s|
-          parse(:tType, s).should be_a(TDatatype)
+          parse(:tType, s).should be_datatype
         end
       end
 
       it "are terminated by symbol outside of parentheses" do
         node, rest = parse_some(:tType, "character varying, ")
-        node.should be_a(TDatatype)
+        node.should be_datatype
         rest.should == ', '
       end
     end

data/spec/{grammar → examples/grammar}/tokens/identifier_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do
@@ -7,50 +7,66 @@ module Piggly
     describe "identifiers" do
       it "cannot be a keyword" do
         GrammarHelper::KEYWORDS.test_each do |s|
-          lambda{ parse(:tIdentifier, s) }.should raise_error
+          lambda{ parse(:tIdentifier, s); puts s }.should raise_error
         end
       end
 
       it "can be quoted keyword" do
         GrammarHelper::KEYWORDS.map{|s| '"' + s + '"' }.test_each do |s|
-          parse(:tIdentifier, s).should be_a(TIdentifier)
+          parse(:tIdentifier, s).should be_identifier
         end
       end
 
       it "can begin with a keyword" do
         GrammarHelper::KEYWORDS.select{|s| s =~ /^[a-z]/i }.map{|s| "#{s}xyz" }.test_each do |s|
-          parse(:tIdentifier, s).should be_a(TIdentifier)
+          parse(:tIdentifier, s).should be_identifier
         end
 
         GrammarHelper::KEYWORDS.select{|s| s =~ /^[a-z]/i }.map{|s| "#{s}_xyz" }.test_each do |s|
-          parse(:tIdentifier, s).should be_a(TIdentifier)
+          parse(:tIdentifier, s).should be_identifier
         end
       end
 
       it "can end with a keyword" do
         GrammarHelper::KEYWORDS.select{|s| s =~ /^[a-z]/i }.map{|s| "xyz#{s}" }.test_each do |s|
-          parse(:tIdentifier, s).should be_a(TIdentifier)
+          parse(:tIdentifier, s).should be_identifier
         end
 
         GrammarHelper::KEYWORDS.select{|s| s =~ /^[a-z]/i }.map{|s| "xyz_#{s}" }.test_each do |s|
-          parse(:tIdentifier, s).should be_a(TIdentifier)
+          parse(:tIdentifier, s).should be_identifier
+        end
+      end
+
+      it "is terminated by an operator" do
+        GrammarHelper::KEYWORDS.select{|s| s !~ /^[a-z]/i }.test_each do |op|
+          node, rest = parse_some(:tIdentifier, "xyv#{op}")
+          node.should be_identifier
+          rest.should == op
+        end
+      end
+
+      it "is terminated by an operator" do
+        GrammarHelper::KEYWORDS.select{|s| s !~ /^[a-z]/i }.test_each do |op|
+          node, rest = parse_some(:tIdentifier, "xyv_#{op}")
+          node.should be_identifier
+          rest.should == op
         end
       end
 
       it "can be one single character" do
         %w[_ a b c d e f g h i j k l m n o p q r s t u v w x y z].test_each do |s|
-          parse(:tIdentifier, s).should be_a(TIdentifier)
+          parse(:tIdentifier, s).should be_identifier
         end
       end
 
       it "can contain underscores" do
         %w[_abc abc_ ab_c a_bc ab_cd ab_c_d a_bc_d ab_c_d a_b_c_d a__b__c__d].test_each do |s|
-          parse(:tIdentifier, s).should be_a(TIdentifier)
+          parse(:tIdentifier, s).should be_identifier
         end
       end
 
       it "can contain numbers" do
-        parse(:tIdentifier, 'foo9000').should be_a(TIdentifier)
+        parse(:tIdentifier, 'foo9000').should be_identifier
       end
     end
 

data/spec/{grammar → examples/grammar}/tokens/keyword_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do
@@ -7,7 +7,7 @@ module Piggly
     describe "keywords" do
       it "parse successfully" do
         GrammarHelper::KEYWORDS.test_each do |k|
-          parse(:keyword, k).should be_a(TKeyword)
+          parse(:keyword, k).should be_keyword
         end
       end
 
@@ -26,7 +26,7 @@ module Piggly
       it "are terminated by symbols" do
         GrammarHelper::KEYWORDS.test_each do |k|
           node, rest = parse_some(:keyword, "#{k}+")
-          node.should be_a(TKeyword)
+          node.should be_keyword
           rest.should == '+'
         end
       end
@@ -34,11 +34,11 @@ module Piggly
       it "are terminated by spaces" do
         GrammarHelper::KEYWORDS.test_each do |k|
           node, rest = parse_some(:keyword, "#{k} ")
-          node.should be_a(TKeyword)
+          node.should be_keyword
           rest.should == ' '
         end
       end
     end
 
   end
-end
+end

data/spec/{grammar → examples/grammar}/tokens/label_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do
@@ -7,34 +7,34 @@ module Piggly
     describe "labels" do
       it "must be enclosed in << and >>" do
         ['', 'a', 'abc', '<< a', 'a >>'].test_each do |s|
-          lambda{ parse(:tLabel, s) }.should raise_error
+          lambda{ parse(:tLabelDefinition, s) }.should raise_error
         end
       end
 
       it "can have space padding" do
         %w[a abc _].map{|s| "<< #{s} >>" }.test_each do |s|
-          parse(:tLabel, s).should be_a(TLabel)
+          parse(:tLabelDefinition, s).should be_label
         end
       end
 
       it "can have no space padding" do
         %w[a abc _].map{|s| "<<#{s}>>" }.test_each do |s|
-          parse(:tLabel, s).should be_a(TLabel)
+          parse(:tLabelDefinition, s).should be_label
         end
       end
 
       it "cannot be multiple unquoted words" do
         ["<< a b >>", "<< ab cd >>"].test_each do |s|
-          lambda{ parse(:tLabel, s) }.should raise_error
+          lambda{ parse(:tLabelDefinition, s) }.should raise_error
         end
       end
 
       it "can be enclosed in double quotes" do
         ['<< "a" >>', '<< "a b" >>', '<< "ab cd" >>'].test_each do |s|
-          parse(:tLabel, s).should be_a(TLabel)
+          parse(:tLabelDefinition, s).should be_label
         end
       end
     end
 
   end
-end
+end

data/spec/{grammar → examples/grammar}/tokens/literal_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do

data/spec/examples/grammar/tokens/lval_spec.rb

@@ -0,0 +1,50 @@
+require 'spec_helper'
+
+module Piggly
+  describe Parser, "tokens" do
+    include GrammarHelper
+
+    describe "l-values" do
+      it "can be a simple identifier" do
+        parse(:lValue, 'id').should be_a(Parser::Nodes::Assignable)
+      end
+
+      it "can be an attribute accessor" do
+        parse(:lValue, 'record.id').should be_a(Parser::Nodes::Assignable)
+        parse(:lValue, 'public.dataset.id').should be_a(Parser::Nodes::Assignable)
+      end
+
+      it "can use quoted attributes" do
+        parse(:lValue, 'record."ID"').should be_a(Parser::Nodes::Assignable)
+        parse(:lValue, '"schema name"."table name"."column name"').should be_a(Parser::Nodes::Assignable)
+      end
+      
+      it "can be an array accessor" do
+        parse(:lValue, 'names[0]').should be_a(Parser::Nodes::Assignable)
+        parse(:lValue, 'names[1000]').should be_a(Parser::Nodes::Assignable)
+      end
+
+      it "can contain comments in array accessors" do
+        node = parse(:lValue, 'names[3 /* comment */]')
+        node.should be_a(Parser::Nodes::Assignable)
+        node.count{|e| e.comment? }.should == 1
+        
+        node = parse(:lValue, "names[9 -- comment \n]")
+        node.should be_a(Parser::Nodes::Assignable)
+        node.count{|e| e.comment? }.should == 1
+      end
+
+      it "can be an array accessed by another l-value" do
+        parse(:lValue, 'names[face.id]').should be_a(Parser::Nodes::Assignable)
+      end
+
+      it "can be a nested array access"
+        # names[faces[0].id].id doesn't work because it requires context-sensitivity [faces[0]
+      
+      it "can be a multi-dimensional array access" do
+        parse(:lValue, 'data[10][2][0]').should be_a(Parser::Nodes::Assignable)
+      end
+    end
+
+  end
+end

data/spec/{grammar → examples/grammar}/tokens/number_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do

data/spec/{grammar → examples/grammar}/tokens/sqlkeywords_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
 

data/spec/{grammar → examples/grammar}/tokens/string_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do
@@ -7,29 +7,29 @@ module Piggly
     describe "strings" do
       it "can be enclosed within single quotes" do
         ["''", "'abc'", "'abc xyz'"].test_each do |s|
-          parse(:tString, s).should be_a(TString)
+          parse(:tString, s).should be_string
         end
       end
 
       it "cannot be nested within single quotes" do
         node, rest = parse_some(:tString, "'abc 'xyz' tuv'")
-        node.should be_a(TString)
+        node.should be_string
         rest.should == "xyz' tuv'"
 
         node, rest = parse_some(:tString, "'can't'")
-        node.should be_a(TString)
+        node.should be_string
         rest.should == "t'"
       end
 
       it "can contain escaped single quotes" do
         ["''''", "'can''t'", "'abc '' xyz'"].test_each do |s|
-          parse(:tString, s).should be_a(TString)
+          parse(:tString, s).should be_string
         end
       end
       
       it "can be enclosed with $$ tags" do
         ["$$$$", "$$ abc $$", "$T$ abc $T$", "$tt$ abc $tt$"].test_each do |s|
-          parse(:tString, s).should be_a(TString)
+          parse(:tString, s).should be_string
         end
       end
 
@@ -39,16 +39,16 @@ module Piggly
 
       it "can embed $$ strings within single-quoted strings" do
         ["'ab $$ xyz $$ cd'", "'a $b$ c $b$ d'"].test_each do |s|
-          parse(:tString, s).should be_a(TString)
+          parse(:tString, s).should be_string
         end
       end
 
       it "can embed single-quote strings within $$ strings" do
         ["$$ 'abc' $$", "$ABC$ 'ab''cd' $ABC$"].test_each do |s|
-          parse(:tString, s).should be_a(TString)
+          parse(:tString, s).should be_string
         end
       end
     end
 
   end
-end
+end

data/spec/{grammar → examples/grammar}/tokens/whitespace_spec.rb

@@ -1,4 +1,4 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', 'spec_helper'))
+require 'spec_helper'
 
 module Piggly
   describe Parser, "tokens" do

data/spec/examples/installer_spec.rb

@@ -0,0 +1,59 @@
+require 'spec_helper'
+
+module Piggly
+
+describe Installer do
+
+  before do
+    @config     = Config.new
+    @connection = mock('connection')
+    @installer  = Installer.new(@config, @connection)
+  end
+
+  describe "trace" do
+    it "compiles, executes, and profiles the procedure" do
+      untraced  = 'create or replace function x(char)'
+      traced    = 'create or replace function f(int)'
+
+      result   = {:tags => stub, :code => traced}
+      profile  = mock('profile')
+
+      compiler = mock('compiler', :compile => result)
+      Compiler::TraceCompiler.should_receive(:new).
+        and_return(compiler)
+
+      procedure = mock('procedure', :oid => 'oid', :source => untraced)
+      procedure.should_receive(:definition).
+        with(traced).and_return(traced)
+
+      @connection.should_receive(:exec).
+        with(traced)
+
+      profile.should_receive(:add).
+        with(procedure, result[:tags], result)
+
+      @installer.trace(procedure, profile)
+    end
+  end
+
+  describe "untrace" do
+    it "executes the original definition" do
+      untraced  = 'create or replace function x(char)'
+      procedure = stub(:oid => 'oid', :source => untraced)
+
+      procedure.should_receive(:definition).
+        and_return(untraced)
+
+      @connection.should_receive(:exec).
+        with(untraced)
+
+      @installer.untrace(procedure)
+    end
+  end
+
+  describe "install_trace_support"
+  describe "uninstall_trace_support"
+
+end
+
+end

data/spec/examples/parser/nodes_spec.rb

@@ -0,0 +1,73 @@
+require 'spec_helper'
+
+module Piggly
+
+  # load support code
+  Parser.parser
+
+  describe NodeClass do
+    describe "source_text"
+    describe "named?"
+
+    context "untagged node" do
+      describe "tagged?"
+      describe "tag_id"
+      describe "tag"
+    end
+
+    context "tagged node" do
+      describe "tagged?"
+      describe "tag_id"
+      describe "tag"
+    end
+  end
+
+  describe Parser::Nodes::Expression do
+    describe "tag" do
+      context "untagged node" do
+        context "named :cond" do
+          context "with parent.while?"
+          context "with parent.loop?"
+          context "with parent.branch?"
+          context "with some other type of parent"
+        end
+
+        context "not named :cond" do
+        end
+      end
+    end
+  end
+
+  describe Parser::Nodes::Sql do
+    describe "tag" do
+      context "untagged node" do
+        context "named :cond" do
+          context "with parent.for?"
+          context "with some other parent"
+        end
+
+        context "not named :cond"
+      end
+    end
+  end
+
+  describe Parser::Nodes::TKeyword do
+    describe "tag" do
+      context "untagged node" do
+        context "named :cond" do
+          context "with parent.loop?"
+          context "with some other parent"
+        end
+
+        context "not named :cond"
+      end
+    end
+  end
+
+  describe Parser::Nodes::Terminal do
+  end
+
+  describe Parser::Nodes::NotImplemented do
+  end
+
+end