heckle 1.0.0

data/History.txt

@@ -0,0 +1,5 @@
+== 1.0.0 / 2006-10-22
+
+* 1 major enhancement
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,8 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/heckle
+lib/heckle.rb
+test/test_heckle.rb
+

data/README.txt

@@ -0,0 +1,49 @@
+heckle
+    by Ryan Davis
+    http://www.rubyforge.org/projects/seattlerb
+
+== DESCRIPTION:
+  
+Unit Testing Sadism. More description coming soon. I'm punting to get
+this launched ASAP.
+
+== FEATURES/PROBLEMS:
+  
+* needs some love. haha.
+
+== SYNOPSYS:
+
+    FIX
+
+== REQUIREMENTS:
+
++ FIX
+
+== INSTALL:
+
++ sudo gem install heckle
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2006 FIX
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,15 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+require './lib/heckle.rb'
+
+Hoe.new('heckle', Heckle::VERSION) do |p|
+  p.rubyforge_name = 'seattlerb'
+  p.summary = 'Unit Test Sadism'
+  p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  p.url = p.paragraphs_of('README.txt', 0).first.split(/\n/)[1..-1]
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+end
+
+# vim: syntax=Ruby

data/bin/heckle

@@ -0,0 +1,15 @@
+#!/usr/local/bin/ruby -w
+
+$: << 'lib'
+require 'heckle'
+
+file = ARGV.shift
+impl = ARGV.shift
+meth = ARGV.shift
+
+unless file and impl and meth then
+  abort "usage: #{File.basename($0)} file.rb impl_class_name impl_method_name"
+end
+
+heckle = Heckle.new(file, impl, meth)
+heckle.validate

data/lib/heckle.rb

@@ -0,0 +1,89 @@
+require 'rubygems'
+require 'parse_tree'
+require 'ruby2ruby'
+require 'test/unit/autorunner'
+
+class String
+  def to_class
+    split(/::/).inject(Object) { |klass, name| klass.const_get(name) }
+  end
+end
+
+class Heckle < SexpProcessor
+  VERSION = '1.0.0'
+
+  attr_accessor :file, :klass_name, :method_name, :klass, :method
+  def initialize(file=nil, klass_name=nil, method_name=nil)
+    super()
+
+    @file, @klass_name, @method_name = file, klass_name, method_name.intern
+    @klass = @method = nil
+
+    self.strict = false
+    self.auto_shift_type = true
+    self.expected = Array
+  end
+
+  def validate
+    puts "Validating #{file}"
+
+    load file
+    if Test::Unit::AutoRunner.run then
+      puts "Tests passed -- heckling"
+      
+      process(ParseTree.translate(klass_name.to_class, method_name))
+
+      if Test::Unit::AutoRunner.run then
+        puts
+        abort "*** Tests passed again after heckling, your tests are incomplete"
+      else
+        puts "Tests failed -- this is good"
+      end
+    else
+      puts "Tests failed... fix and run heckle again"
+    end
+  end
+
+  ############################################################
+
+  def process_defn(exp)
+    self.method = exp.shift
+    result = [:defn, method]
+    
+    result << process(exp.shift) until exp.empty?
+
+    heckle(result) if should_heckle?
+
+    return result
+  end
+
+  def process_if(exp)
+    cond = process(exp.shift)
+    t = process(exp.shift)
+    f = process(exp.shift)
+
+    if should_heckle? then
+      [:if, cond, f, t]
+    else
+      [:if, cond, t, f]
+    end
+  end
+
+  def should_heckle?
+    method == method_name
+  end
+
+  def heckle(exp)
+    puts "Heckling #{klass_name}##{method_name}"
+
+    r2r = RubyToRuby.new
+    src = r2r.process(exp)
+
+    puts
+    puts "Replacing #{klass}##{method_name} with:"
+    puts src
+    puts
+
+    klass_name.to_class.class_eval(src)
+  end
+end

data/test/test_heckle.rb

@@ -0,0 +1,33 @@
+
+require 'test/unit/testcase'
+require 'test/unit' if $0 == __FILE__
+
+class TestHeckle < Test::Unit::TestCase
+
+  ############################################################
+  # Our method under test - in here just for demo...
+
+  def many? n
+    if n >= 3 then
+      true
+    else
+      false
+    end
+  end
+
+  ############################################################
+  
+  if false then
+    def test_many_eh_good
+      assert ! many?(0)
+      assert ! many?(1)
+      assert   many?(3)
+    end
+  else
+    def test_many_eh_bad
+      # obviously bad - need a better example for my demo
+    end
+  end
+end
+
+puts 'loaded'

metadata

@@ -0,0 +1,61 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: heckle
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+date: 2006-10-22 00:00:00 -06:00
+summary: Unit Test Sadism
+require_paths: 
+- lib
+- test
+email: ryand-ruby@zenspider.com
+homepage: "    by Ryan Davis"
+rubyforge_project: seattlerb
+description: "== FEATURES/PROBLEMS:  * needs some love. haha.  == SYNOPSYS:  FIX  == REQUIREMENTS:"
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Ryan Davis
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/heckle
+- lib/heckle.rb
+- test/test_heckle.rb
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: 
+- heckle
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.1.2
+    version: