piggly 1.2.1 → 2.0.0

data/lib/piggly/reporter/html.rb

@@ -1,207 +0,0 @@
-module Piggly
-
-  #
-  # Markup DSL
-  #
-  module HtmlTag
-    unless defined? HTML_REPLACE
-      HTML_REPLACE = { '&' => '&amp;', '"' => '&quot;', '>' => '&gt;', '<' => '&lt;' }
-      HTML_PATTERN = /[&"<>]/
-    end
-
-    def html(output = '')
-      begin
-        @htmltag_output, htmltag_output = output, @htmltag_output
-        # TODO: doctype
-        yield
-      ensure
-        # restore
-        @htmltag_output = htmltag_output
-      end
-    end
-
-    def tag(name, content = nil, attributes = {})
-      if content.is_a?(Hash) and attributes.empty?
-        content, attributes = nil, content
-      end
-
-      attributes = attributes.inject('') do |string, pair|
-        k, v = pair
-        string << %[ #{k}="#{v}"]
-      end
-
-      if content.nil?
-        if block_given?
-          @htmltag_output << "<#{name}#{attributes}>"
-          yield
-          @htmltag_output << "</#{name}>"
-        else
-          @htmltag_output << "<#{name}#{attributes}/>"
-        end
-      else
-        @htmltag_output << "<#{name}#{attributes}>#{content.to_s}</#{name}>"
-      end
-    end
-
-    if ''.respond_to?(:fast_xs)
-      def e(string)
-        e.fast_xs
-      end
-    elsif ''.respond_to?(:to_xs)
-      def e(string)
-        e.to_xs
-      end
-    else
-      def e(string)
-        string.gsub(HTML_PATTERN) {|c| HTML_REPLACE[c] }
-      end
-    end
-  end
-
-  class HtmlReporter < Reporter
-    extend HtmlTag
-
-    def self.output(path, data, summary)
-      File.open(report_path(path, '.html'), 'w') do |f|
-        html(f) do
-
-          tag :html, :xmlns => 'http://www.w3.org/1999/xhtml' do
-            tag :head do
-              tag :title, "Code Coverage: #{File.basename(path)}"
-              tag :link, :rel => 'stylesheet', :type => 'text/css', :href => 'piggly.css'
-            end
-
-            tag :body do
-              table(path)
-
-              tag :br
-              tag :div, :class => 'listing' do
-                tag :table do
-                  tag :tr do
-                    tag :td, data.fetch('lines').to_a.map{|n| %[<a href="#L#{n}" id="L#{n}">#{n}</a>] }.join("\n"), :class => 'lines'
-                    tag :td, data.fetch('html'), :class => 'code'
-                  end
-                end
-              end
-
-              toc(data.fetch('tags'))
-            end
-          end
-
-        end
-      end
-    end
-
-    def self.toc(tags)
-      todo = tags.reject{|t| t.complete? }
-      
-      tag :div, :class => 'toc' do
-        tag :a, 'Index', :href => 'index.html'
-
-        unless todo.empty?
-          tag :ol do
-            todo.each do |t|
-              tag(:li, :class => t.type) { tag :a, t.description, :href => "#T#{t.id}" }
-            end
-          end
-        end
-      end
-    end
-
-    def self.timestamp
-      tag :div, "Generated by piggly #{Piggly::VERSION} at #{Time.now.strftime('%B %d, %Y %H:%M %Z')}", :class => 'timestamp'
-    end
-
-    def self.table(*files)
-      tag :table, :class => 'summary sortable' do
-        tag :tr do
-          tag :th, 'File'
-          tag :th, 'Blocks'
-          tag :th, 'Loops'
-          tag :th, 'Branches'
-          tag :th, 'Block Coverage'
-          tag :th, 'Loop Coverage'
-          tag :th, 'Branch Coverage'
-        end
-
-        files.each_with_index do |name, index|
-          summary = Profile.summary(name)
-          row     = index.modulo(2) == 0 ? 'even' : 'odd'
-
-          tag :tr, :class => row do
-            unless summary.include?(:block) or summary.include?(:loop) or summary.include?(:branch)
-              # PigglyParser couldn't parse this file
-              tag :td, File.basename(name), :class => 'file fail'
-              tag(:td, :class => 'count') { tag :span, -1, :style => 'display:none' }
-              tag(:td, :class => 'count') { tag :span, -1, :style => 'display:none' }
-              tag(:td, :class => 'count') { tag :span, -1, :style => 'display:none' }
-              tag(:td, :class => 'pct') { tag :span, -1, :style => 'display:none' }
-              tag(:td, :class => 'pct') { tag :span, -1, :style => 'display:none' }
-              tag(:td, :class => 'pct') { tag :span, -1, :style => 'display:none' }
-            else
-              tag(:td, :class => 'file') { tag :a, File.basename(name), :href => File.basename(name, '.*') + '.html' }
-              tag :td, (summary[:block][:count]  || 0), :class => 'count'
-              tag :td, (summary[:loop][:count]   || 0), :class => 'count'
-              tag :td, (summary[:branch][:count] || 0), :class => 'count'
-              tag(:td, :class => 'pct') { percent(summary[:block][:percent])  }
-              tag(:td, :class => 'pct') { percent(summary[:loop][:percent])   }
-              tag(:td, :class => 'pct') { percent(summary[:branch][:percent]) }
-            end
-          end
-
-        end
-      end
-    end
-
-    def self.percent(pct)
-      if pct
-        tag :table, :align => 'center' do
-          tag :tr do
-
-            tag :td, '%0.2f%%&nbsp;' % pct, :class => 'num'
-            tag :td, :class => 'graph' do
-              if pct
-                tag :table, :align => 'right', :class => 'graph' do
-                  tag :tr do
-                    tag :td, :class => 'covered', :width => (pct/2.0).to_i
-                    tag :td, :class => 'uncovered', :width => ((100-pct)/2.0).to_i
-                  end
-                end
-              end
-            end
-
-          end
-        end
-      else
-        tag :span, -1, :style => 'display:none'
-      end
-    end
-
-    class Index < HtmlReporter
-      extend HtmlTag
-
-      def self.output(sources)
-        File.open(File.join(report_path, 'index.html'), 'w') do |f|
-          html(f) do
-
-            tag :html do
-              tag :head do
-                tag :title, 'Piggly PL/pgSQL Code Coverage'
-                tag :link, :rel => 'stylesheet', :type => 'text/css', :href => 'piggly.css'
-                tag :script, '<!-- -->', :type => 'text/javascript', :src => 'sortable.js'
-              end
-
-              tag :body do
-                table(*sources.sort)
-                tag :br
-                timestamp
-              end
-            end
-
-          end
-        end
-      end
-    end
-
-  end
-end

data/spec/compiler/cache_spec.rb

@@ -1,9 +0,0 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', 'spec_helper'))
-
-module Piggly
-
-describe CompilerCache do
-
-end
-
-end

data/spec/compiler/pretty_spec.rb

@@ -1,9 +0,0 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', 'spec_helper'))
-
-module Piggly
-
-describe PrettyCompiler do
-
-end
-
-end

data/spec/compiler/queue_spec.rb

@@ -1,3 +0,0 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', 'spec_helper'))
-
-

data/spec/compiler/rewrite_spec.rb

@@ -1,3 +0,0 @@
-require File.expand_path(File.join(File.dirname(__FILE__), '..', 'spec_helper'))
-
-

data/spec/config_spec.rb

@@ -1,58 +0,0 @@
-require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
-
-module Piggly
-
-describe Config do
-  it "has class accessors and mutators" do
-    Config.should respond_to(:cache_root)
-    Config.should respond_to(:cache_root=)
-    Config.should respond_to(:report_root)
-    Config.should respond_to(:report_root=)
-    Config.should respond_to(:trace_prefix)
-    Config.should respond_to(:trace_prefix=)
-  end
-
-  it "has default values" do
-    Config.cache_root = nil
-    Config.cache_root.should_not be_nil
-    Config.cache_root.should =~ /cache$/
-
-    Config.report_root = nil
-    Config.report_root.should_not be_nil
-    Config.report_root.should =~ /reports$/
-
-    Config.trace_prefix = nil
-    Config.trace_prefix.should_not be_nil
-    Config.trace_prefix.should == 'PIGGLY'
-  end
-  
-  describe "path" do
-    it "doesn't reparent absolute paths" do
-      Config.path('/tmp', '/usr/bin/ps').should == '/usr/bin/ps'
-      Config.path('A:/data/tmp', 'C:/USER/tmp').should == 'C:/USER/tmp'
-      Config.path('/tmp/data', '../data.txt').should == '../data.txt'
-    end
-    
-    it "reparents relative paths" do
-      Config.path('/tmp', 'note.txt').should == '/tmp/note.txt'
-    end
-    
-    it "doesn't require path parameter" do
-      Config.path('/tmp').should == '/tmp'
-    end
-  end
-  
-  describe "mkpath" do
-    it "creates root if doesn't exist" do
-      FileUtils.stub!(:makedirs).and_return(true)
-      FileUtils.should_receive(:makedirs).with('x/y').once
-      Config.mkpath('x/y', 'z')
-    end
-
-    it "throws an error on path components that exist as files" do
-      lambda { Config.mkpath('/etc/passwd/file') }.should raise_error(Errno::EEXIST)
-    end
-  end
-end
-
-end

data/spec/filecache_spec.rb

@@ -1,70 +0,0 @@
-require File.expand_path(File.join(File.dirname(__FILE__), 'spec_helper'))
-
-module Piggly
-
-  describe File, "cache invalidation" do
-    before do
-      mtime = Hash['a' => 1,  'b' => 2,  'c' => 3]
-      File.stub!(:mtime).and_return{|f| mtime.fetch(f) }
-      File.stub!(:exists?).and_return{|f| mtime.include?(f) }
-    end
-
-    it "invalidates non-existant cache file" do
-      File.stale?('d', 'a').should == true
-      File.stale?('d', 'a', 'b').should == true
-    end
-
-    it "performs validation using file mtimes" do
-      File.stale?('c', 'b').should_not be_true
-      File.stale?('c', 'a').should_not be_true
-      File.stale?('c', 'b', 'a').should_not be_true
-      File.stale?('c', 'a', 'b').should_not be_true
-
-      File.stale?('b', 'a').should_not be_true
-      File.stale?('b', 'c').should be_true
-      File.stale?('b', 'a', 'c').should be_true
-      File.stale?('b', 'c', 'a').should be_true
-
-      File.stale?('a', 'b').should be_true
-      File.stale?('a', 'c').should be_true
-      File.stale?('a', 'b', 'c').should be_true
-      File.stale?('a', 'c', 'b').should be_true
-    end
-
-    it "assumes sources exist" do
-      lambda{ File.stale?('a', 'd') }.should raise_error(StandardError)
-      lambda{ File.stale?('c', 'a', 'x') }.should raise_error(StandardError)
-    end
-  end  
-
-  class ExampleClass; include FileCache; end
-  class ExampleCacheClass; include FileCache; end
-  class PigglyExampleClassHTML; include FileCache; end
-  class PigglyExampleHTMLClass; include FileCache; end
-  class HTMLPiggly; include FileCache; end
-  class ExampleRedefined
-    include FileCache
-    def self.cache_path(file)
-      'redefined'
-    end
-  end
-
-  describe FileCache do
-    it "installs class methods" do
-      ExampleClass.should respond_to(:cache_path)
-    end
-    
-    it "uses class name as cache subdirectory" do
-      Config.cache_root = '/'
-      FileUtils.should_receive(:makedirs).at_least(:once)
-
-      ExampleClass.cache_path('a.ext').should           =~ %r(/Example/a.ext$)
-      ExampleCacheClass.cache_path('a.ext').should      =~ %r(/ExampleCache/a.ext$)
-      PigglyExampleClassHTML.cache_path('a.ext').should =~ %r(/PigglyExampleClassHTML/a.ext$)
-      PigglyExampleHTMLClass.cache_path('a.ext').should =~ %r(/PigglyExampleHTML/a.ext$)
-      HTMLPiggly.cache_path('a.ext').should             =~ %r(/HTML/a.ext$)
-      ExampleRedefined.cache_path('a.ext').should       == 'redefined'
-    end
-  end
-
-end

data/spec/fixtures/snippets.sql

@@ -1,158 +0,0 @@
-CREATE OR REPLACE FUNCTION piggly_coverage_prog(a integer, b boolean) RETURNS void AS $$
-DECLARE
-  x   varchar(20);
-  y   integer[] := '{}';
-BEGIN
-
-  -- IF-THEN
-  IF v_user_id <> 0
-  THEN
-    UPDATE users SET email = v_email WHERE user_id = v_user_id;
-  END IF;
-
-  -- IF-THEN-ELSE
-  IF parentid IS NULL OR parentid = ''
-  THEN
-    RETURN fullname;
-  ELSE
-    RETURN hp_true_filename(parentid) || '/' || fullname;
-  END IF;
-
-  -- IF-THEN-ELSE
-  IF v_count > 0 THEN
-      INSERT INTO users_count(count) VALUES (v_count);
-      RETURN 't';
-  ELSE
-      RETURN 'f';
-  END IF;
-
-  -- IF-THEN-ELSIF
-  IF number = 0 THEN
-      result := 'zero';
-  ELSIF number > 0 THEN
-      result := 'positive';
-  ELSIF number < 0 THEN
-      result := 'negative';
-  ELSE
-      -- hmm, the only other possibility is that the number is null
-      result := 'NULL';
-  END IF;
-
-  -- nest IF-THEN-ELSE statements
-  IF demo_row.sex = 'm' THEN
-      pretty_sex := 'man';
-  ELSE
-      IF demo_row.sex = 'f' THEN
-          pretty_sex := 'woman';
-      END IF;
-  END IF;
-
-  -- simple CASE with search-expression
-  CASE x
-    WHEN 1, 2 THEN
-      msg := 'one or two';
-    ELSE
-      msg := 'other value than one or two';
-  END CASE;
-
-  -- searched CASE with boolean-expression
-  CASE
-    WHEN x BETWEEN 0 and 10 THEN
-      msg := 'value is between zero and ten';
-    WHEN x BETWEEN 11 and 20 THEN
-      msg := 'value is between eleven and twenty';
-  END CASE;
-
-  << labelA >>
-  LOOP
-    a := a + 1;
-    EXIT labelA WHEN a > 10;
-  END LOOP labelA;
-
-  LOOP
-    b := b + 1
-    EXIT WHEN b > 10;
-  END LOOP;
-
-  LOOP
-      c := c + 1;
-      IF c > 10 THEN
-          EXIT;
-      END IF;
-  END LOOP;
-
-  << labelB >>
-  BEGIN
-    -- some computations
-    IF stocks > 100000 THEN
-      EXIT labelB; -- causes exit from BEGIN block
-    END IF;
-    -- computations here will be skipped when stocks > 100000
-  END;
-
-  LOOP
-      -- some computations
-      EXIT WHEN count > 100;
-      CONTINUE WHEN count < 50;
-      -- some computations for count IN [50 .. 100]
-  END LOOP;
-
-  WHILE amount_owed > 0 AND gift_certificate_balance > 0
-  LOOP
-    -- some computations here
-    a := 10;
-  END LOOP;
-
-  << labelC >>
-  WHILE NOT done LOOP
-    -- some computations here
-    a := 10;
-  END LOOP labelC;
-
-  << labelD >>
-  WHILE x NOT IN (1,2,3) LOOP
-    CONTINUE labelD WHEN x < 10;
-  END LOOP;
-
-  FOR i IN 1..10 LOOP
-    --
-  END LOOP;
-
-  << labelD >>
-  FOR i IN REVERSE 10..1 LOOP
-    --
-    EXIT labelD WHEN i = 5;
-  END LOOP labelD;
-
-  << labelE >>
-  FOR i IN REVERSE 10..1 BY 2 LOOP
-    --
-    CONTINUE labelE;
-  END LOOP;
-
-  FOR f IN SELECT *
-           FROM foo
-           WHERE id > 100
-  LOOP
-    -- can do some processing home
-    RETURN NEXT f; -- return current row of SELECT
-  END LOOP;
-
-  FOR t IN EXECUTE 'SELECT * FROM foo' LOOP
-    CONTINUE;
-  END LOOP;
-
-  BEGIN
-    UPDATE tab SET fname = 'J' WHERE lname = 'J';
-    x := x + 1;
-    y := x / 0;
-  EXCEPTION
-    WHEN SQLSTATE '22012' THEN
-      -- relax, don't do it
-    WHEN division_by_zero OR unique_violation THEN
-      RAISE NOTICE 'caught a fool';
-      RETURN x;
-  END;
-
-END $$
-  LANGUAGE 'plpgsql' IMMUTABLE;