rantly 0.2.0 → 3.0.0

data/lib/rantly/shrinks.rb

@@ -0,0 +1,192 @@
+# Integer : shrink to zero
+class Integer
+  def shrink
+    if self > 8
+      self / 2
+    elsif self > 0
+      self - 1
+    elsif self < -8
+      (self + 1) / 2
+    elsif self < 0
+      self + 1
+    else
+      0
+    end
+  end
+
+  def retry?
+    false
+  end
+
+  def shrinkable?
+    self != 0
+  end
+end
+
+# String : shrink to ""
+class String
+  def shrink
+    shrunk = dup
+    unless empty?
+      idx = Random.rand(size)
+      shrunk[idx] = ''
+    end
+    shrunk
+  end
+
+  def retry?
+    false
+  end
+
+  def shrinkable?
+    self != ''
+  end
+end
+
+# Array where elements can be shrunk but not removed
+class Tuple
+  def initialize(a)
+    @array = a
+    @position = a.size - 1
+  end
+
+  def [](i)
+    @array[i]
+  end
+
+  def []=(i, value)
+    @array[i] = value
+  end
+
+  def length
+    @array.length
+  end
+
+  def size
+    length
+  end
+
+  def to_s
+    @array.to_s.insert(1, 'T ')
+  end
+
+  def inspect
+    to_s
+  end
+
+  def each(&block)
+    @array.each(&block)
+  end
+
+  attr_reader :array
+
+  def shrink
+    shrunk = @array.dup
+    while @position >= 0
+      e = @array.at(@position)
+      break if e.respond_to?(:shrinkable?) && e.shrinkable?
+
+      @position -= 1
+    end
+    if @position >= 0
+      shrunk[@position] = e.shrink
+      @position -= 1
+    end
+    Tuple.new(shrunk)
+  end
+
+  def retry?
+    @position >= 0
+  end
+
+  def shrinkable?
+    @array.any? { |e| e.respond_to?(:shrinkable?) && e.shrinkable? }
+  end
+end
+
+# Array where the elements that can't be shrunk are removed
+class Deflating
+  def initialize(a)
+    @array = a
+    @position = a.size - 1
+  end
+
+  def [](i)
+    @array[i]
+  end
+
+  def []=(i, value)
+    @array[i] = value
+  end
+
+  def length
+    @array.length
+  end
+
+  def size
+    length
+  end
+
+  def to_s
+    @array.to_s.insert(1, 'D ')
+  end
+
+  def inspect
+    to_s
+  end
+
+  def each(&block)
+    @array.each(&block)
+  end
+
+  attr_reader :array
+
+  def shrink
+    shrunk = @array.dup
+    if @position >= 0
+      e = @array.at(@position)
+      if e.respond_to?(:shrinkable?) && e.shrinkable?
+        shrunk[@position] = e.shrink
+      else
+        shrunk.delete_at(@position)
+      end
+      @position -= 1
+    end
+    Deflating.new(shrunk)
+  end
+
+  def retry?
+    @position >= 0
+  end
+
+  def shrinkable?
+    !@array.empty?
+  end
+end
+
+class Hash
+  def shrink
+    if any? { |_, v| v.respond_to?(:shrinkable?) && v.shrinkable? }
+      key, = detect { |_, v| v.respond_to?(:shrinkable?) && v.shrinkable? }
+      clone = dup
+      clone[key] = clone[key].shrink
+      clone
+    elsif !empty?
+      key = keys.first
+      h2 = dup
+      h2.delete(key)
+      h2
+    else
+      self
+    end
+  end
+
+  def shrinkable?
+    any? { |_, v| v.respond_to?(:shrinkable?) && v.shrinkable? } ||
+      !empty?
+  end
+
+  def retry?
+    false
+  end
+end

data/lib/rantly/silly.rb

@@ -8,50 +8,52 @@ module Rantly::Silly
 end
 
 module Rantly::Silly::Love
+  def letter(n = 3)
+    body = array(n) { paragraph }.join "\n\n"
+    <<~EOS
+      #{address}:
 
-  def letter(n=3)
-    body = sized(n) { array(:paragraph) }.join "\n\n"
-    <<-EOS
-#{address}:
+      #{body}
 
-#{body}
+      #{sign}
 
-#{sign}
-
-#{post_script}
-EOS
+      #{post_script}
+    EOS
   end
-  
+
   def address
     "my #{extremifier} #{pedestal_label}"
   end
 
   def extremifier
-    choose "most","ultimate","unbelievable","incredible","burning"
+    choose 'most', 'ultimate', 'unbelievable', 'incredible', 'burning'
   end
 
   def pedestal_label
-    choose "beloved","desire","dove","virgin goddess","existential solution","lighthouse","beacon","holy mother","queen","mistress"
+    choose 'beloved', 'desire', 'dove', 'virgin goddess', 'existential solution', 'lighthouse', 'beacon', 'holy mother', 'queen', 'mistress'
   end
 
   def double_plus_good
-    choose "holy","shiny","glittering","joyous","delicious"
+    choose 'holy', 'shiny', 'glittering', 'joyous', 'delicious'
   end
 
   def how_i_feel
-    choose "my heart aches","my spine pines","my spirit wanders and wonders","my soul is awed","my loin burns"
+    choose 'my heart aches', 'my spine pines', 'my spirit wanders and wonders', 'my soul is awed', 'my loin burns'
   end
 
   def paragraph
-    sized(range(2,4)) { array(:sentence)}.join " "
+    array(range(2, 4)) { sentence }.join ' '
   end
 
   def sentence
     freq \
-    Proc.new { "when #{how_i_feel}, my #{pedestal_label}, i feel the need to #{stalk_action}, but this is not because #{how_i_feel}, but rather a symptom of my being your #{whoami}." },
-    Proc.new { "because you are my #{pedestal_label}, and i am your #{whoami}, no, rather your #{whoami}, #{fragment}."},
-    Proc.new { "do not think that saying '#{how_i_feel}' suffices to show the depth of how #{how_i_feel}, because more than that, #{fantasy}"},
-    Proc.new { "as a #{whoami}, that #{how_i_feel} is never quite enough for you, my #{double_plus_good} #{pedestal_label}."}
+      proc {
+        "when #{how_i_feel}, my #{pedestal_label}, i feel the need to #{stalk_action},"\
+             "but this is not because #{how_i_feel}, but rather a symptom of my being your #{whoami}."
+      },
+      proc { "because you are my #{pedestal_label}, and i am your #{whoami}, no, rather your #{whoami}, #{fragment}." },
+      proc { "do not think that saying '#{how_i_feel}' suffices to show the depth of how #{how_i_feel}, because more than that, #{fantasy}" },
+      proc { "as a #{whoami}, that #{how_i_feel} is never quite enough for you, my #{double_plus_good} #{pedestal_label}." }
   end
 
   def fragment
@@ -59,10 +61,8 @@ EOS
     choose "i hope to god #{fun}", "i believe #{fun}", "i will that #{fun}"
   end
 
-  def caused_by
-    
-  end
-  
+  def caused_by; end
+
   def whoami
     "#{extremifier} #{humbleizer} #{groveler}"
   end
@@ -72,11 +72,11 @@ EOS
   end
 
   def humbleizer
-    choose "undeserving","insignificant","unremarkable","fearful","menial"
+    choose 'undeserving', 'insignificant', 'unremarkable', 'fearful', 'menial'
   end
 
   def groveler
-    choose "slave","servant","captive","lapdog"
+    choose 'slave', 'servant', 'captive', 'lapdog'
   end
 
   def post_script
@@ -89,28 +89,28 @@ EOS
 
   def fantasy
     freq \
-    Proc.new {
-      make = choose "raise","nurture","bring into the world"
-      babies = choose "brood of babies","#{double_plus_good} angels"
-      good = double_plus_good
-      effect = choose "the world becomes all the more #{good}",
-                      "we may at the end of our lives rest in #{good} peace.",
-                      "you, my #{pedestal_label}, would continue to live."
-      "we would #{make} #{babies}, so #{effect}."
-    },
-    Proc.new {
-      do_thing = choose "kiss","hug","read poetry to each other","massage","whisper empty nothings into each others' ears","be with each other, and oblivious to the entire world"
-      affect = choose "joy", "mindfulness", "calm", "sanctity"
-      "we would #{do_thing} with #{double_plus_good} #{affect}"
-    }
+      proc {
+        make = choose 'raise', 'nurture', 'bring into the world'
+        babies = choose 'brood of babies', "#{double_plus_good} angels"
+        good = double_plus_good
+        effect = choose "the world becomes all the more #{good}",
+                        "we may at the end of our lives rest in #{good} peace.",
+                        "you, my #{pedestal_label}, would continue to live."
+        "we would #{make} #{babies}, so #{effect}."
+      },
+      proc {
+        do_thing = choose('kiss', 'hug', 'read poetry to each other', 'massage', "whisper empty nothings into each others' ears",
+                          'be with each other, and oblivious to the entire world')
+        affect = choose 'joy', 'mindfulness', 'calm', 'sanctity'
+        "we would #{do_thing} with #{double_plus_good} #{affect}"
+      }
   end
 
   def stalk_action
-    choose "think of you","dream of us together","look at your picture and sigh"
+    choose 'think of you', 'dream of us together', 'look at your picture and sigh'
   end
 
   def time_duration
-    choose "once in a while","night","day","hour","minute"
+    choose 'once in a while', 'night', 'day', 'hour', 'minute'
   end
 end
-

data/lib/rantly/spec.rb

@@ -1,10 +1,10 @@
 require 'rantly'
 module Rantly::Check
-  def check(n=100,&block)
-    Rantly.gen.each(n,&block)
+  def check(n = 100, &block)
+    Rantly.gen.each(n, &block)
   end
 
-  def sample(n=100,&block)
-    Rantly.gen.map(n,&block)
+  def sample(n = 100, &block)
+    Rantly.gen.map(n, &block)
   end
 end

data/lib/rantly/testunit_extensions.rb

@@ -0,0 +1,8 @@
+require 'test/unit'
+require 'rantly/property'
+
+module Test::Unit::Assertions
+  def property_of(&block)
+    Rantly::Property.new(block)
+  end
+end

data/lib/rantly.rb

@@ -1,7 +1,15 @@
-$:.unshift(File.dirname(__FILE__)) unless
-  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+$LOAD_PATH.unshift(File.dirname(__FILE__)) unless
+  $LOAD_PATH.include?(File.dirname(__FILE__)) || $LOAD_PATH.include?(__dir__)
 
 class Rantly
 end
 
 require 'rantly/generator'
+
+def Rantly(n = 1, &block)
+  if n > 1
+    Rantly.map(n, &block)
+  else
+    Rantly.value(&block)
+  end
+end

data/rantly.gemspec

@@ -1,55 +1,42 @@
-# Generated by jeweler
-# DO NOT EDIT THIS FILE DIRECTLY
-# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
-# -*- encoding: utf-8 -*-
-
 Gem::Specification.new do |s|
-  s.name = %q{rantly}
-  s.version = "0.2.0"
-
-  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
-  s.authors = ["Howard Yeh"]
-  s.date = %q{2010-01-04}
-  s.email = %q{hayeah@gmail.com}
+  s.name             = 'rantly'
+  s.summary          = 'Ruby Imperative Random Data Generator and Quickcheck'
+  s.homepage         = 'https://github.com/rantly-rb/rantly'
+  s.version          = '3.0.0'
+  s.license          = 'MIT'
+  s.require_paths    = ['lib']
+  s.authors          = ['Ana María Martínez Gómez', 'Howard Yeh', 'Anthony Bargnesi', 'Eric Bischoff']
+  s.email            = ['anamma06@gmail.com', 'hayeah@gmail.com', 'abargnesi@gmail.com', 'ebischoff@nerim.net']
   s.extra_rdoc_files = [
-    "LICENSE",
-     "README.textile"
+    'LICENSE',
+    'README.md',
+    'CHANGELOG.md'
   ]
   s.files = [
-    ".document",
-     ".gitignore",
-     "LICENSE",
-     "README.textile",
-     "Rakefile",
-     "VERSION.yml",
-     "lib/rantly.rb",
-     "lib/rantly/data.rb",
-     "lib/rantly/generator.rb",
-     "lib/rantly/property.rb",
-     "lib/rantly/silly.rb",
-     "lib/rantly/spec.rb",
-     "rantly.gemspec",
-     "test/rantly_test.rb",
-     "test/test_helper.rb"
+    '.document',
+    '.travis.yml',
+    'Gemfile',
+    'LICENSE',
+    'README.md',
+    'CHANGELOG.md',
+    'Rakefile',
+    'VERSION.yml',
+    'lib/rantly.rb',
+    'lib/rantly/data.rb',
+    'lib/rantly/generator.rb',
+    'lib/rantly/minitest.rb',
+    'lib/rantly/minitest_extensions.rb',
+    'lib/rantly/property.rb',
+    'lib/rantly/rspec.rb',
+    'lib/rantly/rspec_extensions.rb',
+    'lib/rantly/shrinks.rb',
+    'lib/rantly/silly.rb',
+    'lib/rantly/spec.rb',
+    'lib/rantly/testunit_extensions.rb',
+    'rantly.gemspec',
+    'test/rantly_test.rb',
+    'test/shrinks_test.rb',
+    'test/test_helper.rb'
   ]
-  s.homepage = %q{http://github.com/hayeah/rantly}
-  s.rdoc_options = ["--charset=UTF-8"]
-  s.require_paths = ["lib"]
-  s.rubygems_version = %q{1.3.5}
-  s.summary = %q{Ruby Imperative Random Data Generator and Quickcheck}
-  s.test_files = [
-    "test/rantly_test.rb",
-     "test/test_helper.rb"
-  ]
-
-  if s.respond_to? :specification_version then
-    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
-    s.specification_version = 3
-
-    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
-    else
-    end
-  else
-  end
+  s.required_ruby_version = '>= 3.3.0'
 end
-