uncool 1.0.0

data/lib/uncool/autolog.rb

@@ -0,0 +1,14 @@
+#if conf = Dir['{,.}config/uncool.yml'].first
+#  require 'yaml'
+#  opts = YAML.load(File.new(conf))
+#  output     = opts['output'] || opts['out']
+#  namespaces = opts['spaces'] || opts['namespaces'] || opts['ns']
+#else
+  output     = ENV['out']
+  namespaces = ENV['ns'].split(',')
+#end
+
+require 'uncool/log'
+
+Uncool.log(:output=>output, :namespaces=>namespaces)
+

data/lib/uncool/cli.rb

@@ -0,0 +1,168 @@
+module Uncool
+
+  require 'optparse'
+
+  # CLI Interface handle all lemon sub-commands.
+  class CLI
+
+    COMMANDS = ['coverage', 'generate']
+
+    #
+    def self.run(argv=ARGV)
+      new.run(argv)
+    end
+
+    #
+    def initialize(argv=ARGV)
+      @options = {}
+    end
+
+    #
+    def options
+      @options
+    end
+
+    #
+    def run(argv)
+      if argv.include?('-g') or argv.include?('--generate')
+        cmd = 'generate'
+      else
+        cmd = 'coverage'
+      end
+      cmd = COMMANDS.find{ |c| /^#{cmd}/ =~ c }
+      __send__("#{cmd}_parse", argv)
+      __send__("#{cmd}", argv)
+    end
+
+    # C O V E R A G E
+
+    #
+    def coverage(scripts)
+      require 'uncool/app'
+
+      app = App.new(options)
+
+      app.log
+
+      scripts.each do |file|
+        require(file)
+      end
+    end
+
+    #
+    def coverage_parse(argv)
+      option_namespaces
+      option_private
+      option_output
+      option_format
+      #option_uncovered
+      option_loadpath
+      option_requires
+
+      option_parser.parse!(argv)
+    end
+
+    # G E N E R A T E
+
+    #
+    def generate(scripts)
+      require 'uncool/app'
+
+      app = App.new(options)
+
+      output = app.generate(scripts)
+
+      $stdout.puts(output)
+    end
+
+    #
+    def generate_parse(argv)
+      option_generate
+      option_namespaces
+      option_framework
+      option_private
+      option_loadpath
+      option_requires
+
+      option_parser.parse!(argv)
+    end
+
+    # P A R S E R  O P T I O N S
+
+    def option_namespaces
+      option_parser.on('-n', '--namespace NAME', 'add a namespace to output') do |name|
+        options[:namespaces] ||= []
+        options[:namespaces] << name
+      end
+    end
+
+    def option_framework
+      option_parser.on('-f', '--framework NAME', 'framework syntax to output') do |name|
+        options[:framework] = name.to_sym
+      end
+    end
+
+    # TODO: How feasible is it to parse tests of various frameworks to check "writ" coverage?
+    #def option_uncovered
+    #  option_parser.on('-u', '--uncovered', 'include only uncovered tests') do
+    #    options[:uncovered] = true
+    #  end
+    #end
+
+    def option_private
+      option_parser.on('-p', '--private', 'include private and protected methods') do
+        options[:private] = true
+      end
+    end
+
+    def option_output
+      option_parser.on('-o', '--output DIRECTORY', 'log directory') do |dir|
+        options[:output] = dir
+      end
+    end
+
+    def option_format
+      option_parser.on('--format', '-f NAME', 'output format') do |name|
+        options[:format] = name
+      end
+    end
+
+    def option_loadpath
+      option_parser.on("-I PATH" , 'add directory to $LOAD_PATH') do |path|
+        paths = path.split(/[:;]/)
+        options[:loadpath] ||= []
+        options[:loadpath].concat(paths)
+      end
+    end
+
+    def option_requires
+     option_parser.on("-r FILE" , 'require file(s) (before doing anything else)') do |files|
+        files = files.split(/[:;]/)
+        options[:requires] ||= []
+        options[:requires].concat(files)
+      end
+    end
+
+    def option_generate
+      option_parser.on('-g' , '--generate', 'code generation mode') do
+      end
+    end
+
+    def option_parser
+      @option_parser ||= (
+        OptionParser.new do |opt|
+          opt.on_tail("--debug" , 'turn on debugging mode') do
+            $DEBUG = true
+          end
+          opt.on_tail('-h', '--help', 'display this help messae') do
+            puts opt
+            exit 0
+          end
+        end
+      )
+    end
+
+  end
+
+end
+

data/lib/uncool/generator/abstract.rb

@@ -0,0 +1,95 @@
+require 'uncool/unit'
+
+module Uncool
+
+  # Generator base class.
+  class GeneratorAbstract
+
+    def initialize(options={})
+      @namespaces = options[:namespaces] || []
+      @checklist  = options[:checklist]
+      @options    = options || {}
+    end
+
+    #
+    def namespaces
+      @namespaces
+    end
+
+    #
+    def checklist
+      @checklist ||= default_checklist
+    end
+
+    #
+    def targets
+      @targets ||= namespaces.map{ |ns| eval(ns, TOPLEVEL_BINDING) }
+    end
+
+    #
+    def options
+      @options
+    end
+
+    # Include already covered methods.
+    def covered?
+      options[:covered]
+    end
+
+    # Include private and protected methods?
+    def private?
+      options[:private]
+    end
+
+    #
+    def mapping
+      checklist.sort.group_by{ |mp, yes| mp.target }
+    end
+
+    # Override this method in subclasses.
+    def generate
+    end
+
+    #
+    def default_checklist
+      list = []
+      targets.each do |target|
+        target.public_instance_methods(false).each do |meth|
+          list << Unit.new(target, meth)
+        end
+        if private?
+          target.protected_instance_methods(false).each do |meth|
+            list << Unit.new(target, meth, :access=>:protected)
+          end
+          target.private_instance_methods(false).each do |meth|
+            list << Unit.new(target, meth, :access=>:private)
+          end
+        end
+      end
+      list
+    end
+
+  end
+
+end
+
+
+#
+#    # Generate code template.
+#    #
+#    def generate
+#      code = []
+#      system.each do |ofmod|
+#        next if ofmod.base.is_a?(Lemon::Test::Suite)
+#        code << "TestCase #{ofmod.base} do"
+#        ofmod.class_methods(public_only?).each do |meth|
+#          code << "\n  MetaUnit :#{meth} => '' do\n    raise Pending\n  end"
+#        end
+#        ofmod.instance_methods(public_only?).each do |meth|
+#          code << "\n  Unit :#{meth} => '' do\n    raise Pending\n  end"
+#        end
+#        code << "\nend\n"
+#      end
+#      code.join("\n")
+#    end
+

data/lib/uncool/generator/ko.rb

@@ -0,0 +1,32 @@
+require 'uncool/generator/abstract'
+
+module Uncool
+
+  # KO test generator.
+  class GeneratorKO < GeneratorAbstract
+
+    #
+    def generate
+      code = []
+      mapping.each do |target, units|
+        #next if /Lemon::Test::Suite/ =~ target.to_s
+        code << "require 'lemon/syntax/ko'\n"
+        code << "testcase #{target} do"
+        units.each do |(unit, yes)|
+          next if unit.covered? and !covered?
+          next if unit.private? and !private?
+          if unit.function?
+            code << "\n  metaunit :#{unit.method} do\n\n  end"
+          else
+            code << "\n  unit :#{unit.method} do\n\n  end"
+          end
+        end
+        code << "\nend\n"
+      end
+      code.join("\n")
+    end
+
+  end
+
+end
+

data/lib/uncool/generator/lemon.rb

@@ -0,0 +1,31 @@
+require 'uncool/generator/abstract'
+
+module Uncool
+
+  # Lemon test generator.
+  class GeneratorLemon < GeneratorAbstract
+
+    #
+    def generate
+      code = []
+      mapping.each do |target, units|
+        #next if /Lemon::Test::Suite/ =~ target.to_s
+        code << "TestCase #{target} do"
+        units.each do |unit|
+          next if unit.covered? and !covered?
+          next if unit.private? and !private?
+          if unit.function?
+            code << "\n  MetaUnit :#{unit.method} => '' do\n\n  end"
+          else
+            code << "\n  Unit :#{unit.method} => '' do\n\n  end"
+          end
+        end
+        code << "\nend\n"
+      end
+      code.join("\n")
+    end
+
+  end
+
+end
+

data/lib/uncool/generator/qed.rb

@@ -0,0 +1,30 @@
+require 'uncool/generator/abstract'
+
+module Uncool
+
+  # QED test generator.
+  class GeneratorQED < GeneratorAbstract
+
+    #
+    def generate
+      code = []
+      mapping.each do |target, units|
+        #next if /Lemon::Test::Suite/ =~ target.to_s
+        code << "= #{target}\n"
+        units.each do |(unit, yes)|
+          next if unit.covered? and !covered?
+          next if unit.private? and !private?
+          if unit.function?
+            code << "== ::#{unit.method}\n\n"
+          else
+            code << "== ##{unit.method}\n\n"
+          end
+        end
+      end
+      code.join("\n")
+    end
+
+  end
+
+end
+

data/lib/uncool/lemon.svg

@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
+<!-- Created with Inkscape (http://www.inkscape.org/) -->
+<svg id="svg1" sodipodi:version="0.32" inkscape:version="0.38.1" width="400.00000pt" height="400.00000pt" sodipodi:docbase="/var/www/html/svg_gallery/svg/fruits" sodipodi:docname="lemon.svg" xmlns="http://www.w3.org/2000/svg" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:xlink="http://www.w3.org/1999/xlink">
+  <defs id="defs3">
+    <linearGradient id="linearGradient831">
+      <stop style="stop-color: rgb(255, 255, 0); stop-opacity: 1;" offset="0.0000000" id="stop832"/>
+      <stop style="stop-color: rgb(255, 227, 0); stop-opacity: 1;" offset="1.0000000" id="stop833"/>
+    </linearGradient>
+    <radialGradient xlink:href="#linearGradient831" id="radialGradient834" cx="0.33703703" cy="0.28358209" r="0.38183698" fx="0.33703703" fy="0.28358209"/>
+  </defs>
+  <sodipodi:namedview id="base" pagecolor="#ffffff" bordercolor="#666666" borderopacity="1.0" inkscape:pageopacity="0.0" inkscape:pageshadow="2" inkscape:zoom="1.3195079" inkscape:cx="120.13018" inkscape:cy="204.09312" inkscape:window-width="910" inkscape:window-height="775" inkscape:window-x="119" inkscape:window-y="24"/>
+  <g id="g838">
+    <path style="fill: url(#radialGradient834) rgb(0, 0, 0); fill-rule: evenodd; stroke: rgb(0, 0, 0); stroke-width: 10; stroke-linejoin: round; stroke-dasharray: none;" d="M 68.708186,148.12939 C 228.69852,9.5810597 474.45687,146.15839 471.15810,289.65487 C 497.54826,315.22034 467.85933,343.25988 451.36548,350.68211 C 309.51838,525.51691 17.577254,382.02043 34.895796,237.69925 C 12.847026,174.32754 32.421718,155.55162 68.708186,148.12939 z " id="path827" sodipodi:nodetypes="ccccc"/>
+    <path style="fill-opacity: 0.133333; fill-rule: evenodd; stroke-width: 1pt;" d="M 44.330330,267.99099 C 65.580330,246.74099 68.080330,411.74099 378.08033,350.49099 C 371.83033,344.24099 338.08033,201.74099 458.08033,249.24099 C 504.95533,263.61599 358.70533,239.55349 410.58033,339.24099 C 418.62433,352.33698 416.20533,352.36599 438.08033,357.99099 C 305.58033,500.49099 46.830330,390.49099 44.330330,267.99099 z " id="path828" sodipodi:nodetypes="cccccc"/>
+    <path style="fill: rgb(255, 255, 255); fill-opacity: 0.7; fill-rule: evenodd; stroke-width: 1pt;" d="M 68.080330,155.83295 C 124.36962,90.490990 313.68568,43.977604 438.08033,203.33295 C 395.58033,249.58295 275.58033,49.582958 68.080330,155.83295 z " id="path829" sodipodi:nodetypes="ccc"/>
+    <path style="fill: rgb(255, 255, 255); fill-opacity: 0.7; fill-rule: evenodd; stroke-width: 1pt;" d="M 469.33033,295.49099 C 483.64639,312.99099 470.58033,332.99099 460.58033,330.49099 C 381.83033,309.24099 424.33033,287.99099 469.33033,295.49099 z " id="path830" sodipodi:nodetypes="ccc"/>
+  </g>
+
+  <rdf:RDF xmlns="http://web.resource.org/cc/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
+  <Work rdf:about="">
+    <dc:title>Clipart by Nicu Buculei - pear</dc:title>
+    <dc:rights>
+       <Agent>
+         <dc:title>Nicu Buculei</dc:title>
+       </Agent>
+    </dc:rights>
+    <dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage"/>
+    <license rdf:resource="http://web.resource.org/cc/PublicDomain"/>
+  </Work>
+   
+  <License rdf:about="http://web.resource.org/cc/PublicDomain">
+     <permits rdf:resource="http://web.resource.org/cc/Reproduction"/>
+     <permits rdf:resource="http://web.resource.org/cc/Distribution"/>
+     <permits rdf:resource="http://web.resource.org/cc/DerivativeWorks"/>
+  </License>
+
+</rdf:RDF>
+</svg>

data/lib/uncool/log.rb

@@ -0,0 +1,17 @@
+require 'uncool/app'
+
+module Uncool
+
+  # Run coverage trace and log results.
+  #
+  #  targets = ENV['squeeze'].split(',')
+  #  Lemon.log(targets, :output=>'log')
+  #
+  # NOTE: This sets up an at_exit routine.
+  def self.log(options={})
+    app = App.new(options)
+    app.log
+  end
+
+end
+

data/lib/uncool/meta/data.rb

@@ -0,0 +1,29 @@
+Object.__send__(:remove_const, :VERSION) if Object.const_defined?(:VERSION)      # becuase Ruby 1.8~ gets in the way
+
+module Uncool
+
+  def self.__DIR__
+    File.dirname(__FILE__)
+  end
+
+  def self.gemfile
+    @gemfile ||= (
+      require 'yaml'
+      YAML.load(File.new(__DIR__ + '/gemfile.yml'))
+    )
+  end
+
+  def self.profile
+    @profile ||= (
+      require 'yaml'
+      YAML.load(File.new(__DIR__ + '/profile.yml'))
+    )
+  end
+
+  def self.const_missing(name)
+    name = name.to_s.downcase
+    gemfile[name] || profile[name]
+  end
+
+end
+