queencheck 0.1.2 → 1.0.0

data/lib/queencheck/integer.rb

@@ -1,16 +0,0 @@
-require 'queencheck/arbitrary'
-
-class Integer
-  extend QueenCheck::Arbitrary
-
-  @@bound = 25
-
-  set_arbitrary do |seed|
-    if seed == 0
-      0
-    else
-      max = 10 ** ((@@bound * seed).ceil)
-      rand(max) * (rand(2).zero? ? 1 : -1)
-    end
-  end
-end

data/lib/queencheck/rspec/dsl.rb

@@ -1,22 +0,0 @@
-require 'pp'
-
-module RSpec
-  module Core
-    class ExampleGroup
-      def self.qcheck(instance, method, arbitraries, options = {}, &block)
-        describe "QC: #{instance.class}##{method}(#{arbitraries.join(', ')})" do
-          QueenCheck(instance, method, *arbitraries).run(options) do | result, args, error |
-            it("Gen: #{args.join(', ')}"){ 
-              begin
-                self.instance_eval_with_args(*[result, args, error], &block)
-              rescue => e
-                e.set_backtrace(e.backtrace.slice(0,6) + e.backtrace.slice(9, 100))
-                raise e
-              end
-            }
-          end
-        end
-      end
-    end
-  end
-end

data/lib/queencheck/string.rb

@@ -1,47 +0,0 @@
-require 'queencheck/arbitrary'
-
-class String
-  extend QueenCheck::Arbitrary
-
-  @@max_length = 256
-
-  set_arbitrary do | seed |
-    max = (@@max_length * (seed * seed)).ceil
-
-    charset = []
-    if seed == 0
-      return ''
-    elsif seed < 0.1
-      charset = (0x61 ... 0x7b).to_a + (0x41 ... 0x5b).to_a
-    elsif seed < 0.3 # ASCII
-      charset = (0x32 ... 0x7f).to_a
-    elsif seed < 0.5
-      charset = (0x00 ... 0x80).to_a
-    elsif seed < 0.7
-      charset = (0x00 ... 0x80).to_a
-      charset += (0x80 ... 0x800).to_a
-    elsif seed < 0.9
-      charset = (0x00 ... 0x80).to_a
-      charset += (0x80 ... 0x800).to_a
-      charset += (0x800 ... 0x8000).to_a
-    elsif seed <= 1
-      charset = (0x00 ... 0x80).to_a
-      charset += (0x80 ... 0x800).to_a
-      charset += (0x800 ... 0x8000).to_a
-      charset += (0x1000 ... 0x20000).to_a
-    end
-
-    if !charset.respond_to?(:sample)
-      class << charset
-        def sample; self[rand(self.length)]; end
-      end
-    end
-
-    ret = []
-    (rand(max/2) + (max/2)).ceil.times do
-      ret << charset.sample
-    end
-
-    return ret.pack('U*')
-  end
-end

data/spec/queencheck/elements_of_spec.rb

@@ -1,22 +0,0 @@
-require 'queencheck/elements_of'
-
-describe QueenCheck::ElementsOf do
-  before(:each) do
-    @samples = ['a', 'b', 'c']
-    @elements_of = QueenCheck::ElementsOf.new(@samples)
-  end
-
-  it 'choose one' do
-    100.times do
-      @samples.should be_include(@elements_of.arbitrary(rand(10).to_f / 10))
-    end
-  end
-
-  it 'named type' do
-    named = QueenCheck::ElementsOf(:names, ['test', 'sample'])
-
-    named.should be_kind_of(QueenCheck::ElementsOf)
-    QueenCheck::ElementsOf(:names).should eq(named)
-    QueenCheck::Arbitrary(:elements_of_names).should eq(named)
-  end
-end

data/spec/queencheck/integer_spec.rb

@@ -1,17 +0,0 @@
-require 'queencheck/integer'
-
-describe Integer do
-  it ".arbitrary?" do
-    Integer.arbitrary?.should be_true
-  end
-
-  it ".arbitrary" do
-    100.times do 
-      Integer.arbitrary(0).should be_zero
-    end
-
-    100.times do |n|
-      n = n / 100.0
-    end
-  end
-end

data/spec/queencheck/string_spec.rb

@@ -1,13 +0,0 @@
-require 'queencheck/string'
-
-describe String do
-  it ".arbitrary?" do
-    String.arbitrary?.should be_true
-  end
-
-  it ".arbitrary" do
-    100.times do 
-      String.arbitrary(0.05).match(/^[a-zA-Z]+$/).should_not be_nil
-    end
-  end
-end