mrproper 0.0.1 → 0.0.2

data/README.md

@@ -1,6 +1,6 @@
-# MrProper
+# MrProper [![Build Status](https://secure.travis-ci.org/porras/mrproper.png)](http://travis-ci.org/porras/mrproper)
 
-MrProper is a [MiniTest](http://rubydoc.info/stdlib/minitest/1.9.2/frames)-based library to do Property Based Testing a la [Haskell](http://haskell.org/haskellwiki/Haskell)'s [QuickCheck](http://hackage.haskell.org/package/QuickCheck).
+MrProper is a Test::Unit-based library to do Property Based Testing a la [Haskell](http://haskell.org/haskellwiki/Haskell)'s [QuickCheck](http://hackage.haskell.org/package/QuickCheck).
 
 Property Based Testing is an alternative approach to unit testing for testing functional style functions/methods. Instead of using examples and testing the return value of your function for each example, you:
 
@@ -24,7 +24,7 @@ In order to do so, MrProper provides a very simple DSL, with just three methods,
 
 ## Running the properties
 
-After implementing `double` (we'll leave that as an exercise `;)`), we run the properties as a regular MiniTest test file:
+After implementing `double` (we'll leave that as an exercise `;)`), we run the properties as a regular test file:
 
     $ testrb double_properties.rb
     Run options: 
@@ -92,9 +92,13 @@ In case this is not enough, you can just use a block and do whatever you want to
       rand > 0.5 ? Wadus.new(rand(9)) : FooBar.new(rand(9))
     end
 
-## Todo
+## Further reading
 
-* Make it work in other rubies than 1.9.3
+* [Slides](http://mrproper-railscamp.heroku.com/) of a quick and dirty pesentation about MrProper at [railscamp-es](https://rails-camp-es.jottit.com/) '2011. Those slides eventually became this README's first version
+* [Chapter](http://book.realworldhaskell.org/read/testing-and-quality-assurance.html) of the book *“Real World Haskell”* talking about QuickCheck
+* [RushCheck](https://github.com/IKEGAMIDaisuke/rushcheck), an old (and apparently abandoned) implementation of this idea in Ruby
+* [rqc](https://github.com/seancribbs/rqc), a Ruby port of [QC.js](http://willowbend.cx/2009/12/05/qc-js-quickcheck-javascript/) (a property-based testing framework in Javascript)
+* [ProTest](http://www.protest-project.eu/index.html), another implementation in Erlang
 
 ## License
 

data/lib/mrproper.rb

@@ -1,6 +1,7 @@
-require 'minitest/autorun'
+require 'test/unit'
 require 'mrproper/base'
 require 'mrproper/dsl'
+require 'mrproper/errors'
 require 'mrproper/core_extensions/string_extensions'
 
 include MrProper

data/lib/mrproper/base.rb

@@ -3,8 +3,8 @@ module MrProper
   def properties(name, &block)
     dsl = MrProper::DSL.new
     dsl.instance_eval(&block)
-    Class.new(MiniTest::Unit::TestCase).class_eval do
-      include PropertiesHelper if const_defined?(:PropertiesHelper)
+    Class.new(Test::Unit::TestCase).class_eval do
+      eval("def self.name; #{name.inspect}; end")
       dsl.properties.each do |message, test_block|
         define_method "test_property: #{message.inspect}" do
           dsl.data_blocks.each do |data_block|
@@ -12,8 +12,8 @@ module MrProper
               data = data_block.call
               begin
                 instance_exec(data, &test_block)
-              rescue MiniTest::Assertion => e
-                raise MiniTest::Assertion.new("Property #{message.inspect} is falsable for data #{data.inspect}\n#{e.message}")
+              rescue Test::Unit::AssertionFailedError, MiniTest::Assertion => e
+                raise FalsableProperty.new("Property #{message.inspect} is falsable for data #{data.inspect}\n#{e.message}")
               end
             end
           end

data/lib/mrproper/dsl.rb

@@ -29,7 +29,7 @@ module MrProper
         if spec.size == 1
           Proc.new { rand(20).times.map { data_block(spec.first).call } }
         else
-          Proc.new { spec.map { |spec| data_block(spec).call }}
+          Proc.new { spec.map { |s| data_block(s).call }}
         end
       when Hash
         Proc.new do

data/lib/mrproper/errors.rb

@@ -0,0 +1,13 @@
+module MrProper
+  class FalsableProperty < Exception; end
+end
+
+unless Test::Unit.const_defined?('AssertionFailedError')
+  class Test::Unit::AssertionFailedError < Exception; end
+end
+
+unless Object.const_defined?('MiniTest')
+  module MiniTest
+    class Assertion < Exception; end
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: mrproper
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -10,7 +10,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2011-11-06 00:00:00.000000000 Z
+date: 2011-11-09 00:00:00.000000000Z
 dependencies: []
 description: 
 email: sgilperez@gmail.com
@@ -23,6 +23,7 @@ files:
 - lib/mrproper/base.rb
 - lib/mrproper/core_extensions/string_extensions.rb
 - lib/mrproper/dsl.rb
+- lib/mrproper/errors.rb
 - lib/mrproper.rb
 homepage: http://github.com/porras/mrproper
 licenses: []