michel-randexp 0.1.4

data/lib/randexp/reducer.rb

@@ -0,0 +1,114 @@
+class Randexp
+  class Reducer
+    def self.reduce(sexp, quantity = nil)
+      send(sexp.first, sexp[1..-1], quantity)
+    end
+
+    class << self
+      alias_method :[], :reduce
+    end
+
+    def self.quantify(sexp, old_quantity)
+      reduce(*sexp)
+    end
+
+    def self.random(sexpish, quantity)
+      case s = sexpish.first
+      when :w then char(quantity)
+      when :s then whitespace(quantity)
+      when :d then digit(quantity)
+      when :"." then any(quantity)
+      else randgen(s, quantity)
+      end
+    end
+
+    def self.literal(cell, quantity = nil)
+      case quantity
+      when :'?'         then ([''] + cell).pick * ''
+      when :+, :'+?'    then raise "Sorry, \"#{cell * ''}+\" is too vague, try setting a range: \"#{cell * ''}{1,3}\""
+      when :*, :'*?'    then raise "Sorry, \"#{cell * ''}*\" is too vague, try setting a range: \"#{cell * ''}{0,3}\""
+      when Range        then quantity.pick.of { cell * '' } * ''
+      when Integer      then quantity.of { cell * '' } * ''
+      when nil          then cell * ''
+      end
+    end
+
+    def self.intersection(cell, quantity)
+      case quantity
+      when :'?'       then ['', cell.map {|s| reduce(s)}.pick].pick
+      when :+, :'+?'  then raise "Sorry, \"((...)|(...))+\" is too vague, try setting a range: \"((...)|(...)){1, 3}\""
+      when :*, :'*?'  then raise "Sorry, \"((...)|(...))*\" is too vague, try setting a range: \"((...)|(...)){0, 3}\""
+      when Range      then quantity.pick.of { cell.map {|s| reduce(s)}.pick } * ''
+      when Integer    then quantity.of { cell.map {|s| reduce(s)}.pick } * ''
+      when nil        then cell.map {|s| reduce(s)}.pick
+      end
+    end
+
+    def self.union(cell, quantity)
+      case quantity
+      when :'?'       then ['', cell.map {|s| reduce(s)} * ''].pick
+      when :+, :'+?'  then raise "Sorry, \"(...)+\" is too vague, try setting a range: \"(...){1, 3}\""
+      when :*, :'*?'  then raise "Sorry, \"(...)*\" is too vague, try setting a range: \"(...){0, 3}\""
+      when Range      then quantity.pick.of { cell.map {|s| reduce(s)} * '' } * ''
+      when Integer    then quantity.of { cell.map {|s| reduce(s)} * '' } * ''
+      when nil        then cell.map {|s| reduce(s)} * ''
+      end
+    end
+
+    def self.char(quantity)
+      case quantity
+      when :'?'       then ['', Randgen.char].pick
+      when :+, :'+?'  then Randgen.word
+      when :*, :'*?'  then ['', Randgen.word].pick
+      when Range      then Randgen.word(:length => quantity.pick)
+      when 1, nil     then Randgen.char
+      when Integer    then Randgen.word(:length => quantity)
+      end
+    end
+    
+    def self.any(quantity)
+      case quantity
+      when :'?'       then ['', Randgen.any].pick
+      when :+, :'+?'  then Randgen.any
+      when :*, :'*?'  then ['', Randgen.any].pick
+      when Range      then Randgen.any(:length => quantity.pick)
+      when 1, nil     then Randgen.any
+      when Integer    then Randgen.any(:length => quantity)
+      end
+    end
+
+    def self.whitespace(quantity)
+      case quantity
+      when :'?'       then ['', Randgen.whitespace].pick
+      when :+, :'+?'  then raise "Sorry, \"\\s+\" is too vague, try setting a range: \"\\s{1, 5}\""
+      when :*, :'*?'  then raise "Sorry, \"\\s*\" is too vague, try setting a range: \"\\s{0, 5}\""
+      when Range      then quantity.pick.of { Randgen.whitespace } * ''
+      when Integer    then quantity.of { Randgen.whitespace } * ''
+      when nil        then Randgen.whitespace
+      end
+    end
+
+    def self.digit(quantity)
+      case quantity
+      when :'?'       then ['', Randgen.digit].pick
+      when :+, :'+?'  then raise "Sorry, \"\\d+\" is too vague, try setting a range: \"\\d{1, 5}\""
+      when :*, :'*?'  then raise "Sorry, \"\\d*\" is too vague, try setting a range: \"\\d{0, 5}\""
+      when Range      then quantity.pick.of { Randgen.digit } * ''
+      when Integer    then quantity.of { Randgen.digit } * ''
+      when nil        then Randgen.digit
+      end
+    end
+
+    def self.randgen(args, quantity)
+      method_name = *args
+      case quantity
+      when :'?'       then ['', Randgen.send(method_name, :length => 1)].pick
+      when :+, :'+?'  then Randgen.send(method_name)
+      when :*, :'*?'  then ['', Randgen.send(method_name)].pick
+      when Range      then Randgen.send(method_name, :length => quantity.pick)
+      when 1, nil     then Randgen.send(method_name)
+      when Integer    then Randgen.send(method_name, :length => quantity)
+      end
+    end
+  end
+end

data/lib/randexp/wordlists/female_names.rb

@@ -0,0 +1,23 @@
+class RealName
+
+  def self.load_female_first_names
+    dir = File.dirname(__FILE__)
+    if File.exists?("#{dir}/../../../wordlists/female_names")
+      File.read("#{dir}/../../../wordlists/female_names").split
+    else
+      raise "words file not found"
+    end
+  end
+
+  def self.female_first_names(options = {})
+    if options.has_key?(:length)
+      female_first_names_by_length[options[:length]]
+    else
+      @@female_first_names ||= load_female_first_names
+    end
+  end
+
+  def self.female_first_names_by_length
+    @@female_first_names_by_length ||= female_first_names.inject({}) {|h, w| (h[w.size] ||= []) << w; h }
+  end
+end

data/lib/randexp/wordlists/male_names.rb

@@ -0,0 +1,23 @@
+class RealName
+
+  def self.load_male_first_names
+    dir = File.dirname(__FILE__)
+    if File.exists?("#{dir}/../../../wordlists/male_names")
+      File.read("#{dir}/../../../wordlists/male_names").split
+    else
+      raise "words file not found"
+    end
+  end
+
+  def self.male_first_names(options = {})
+    if options.has_key?(:length)
+      male_first_names_by_length[options[:length]]
+    else
+      @@male_first_names ||= load_male_first_names
+    end
+  end
+
+  def self.male_first_names_by_length
+    @@male_first_names_by_length ||= male_first_names.inject({}) {|h, w| (h[w.size] ||= []) << w; h }
+  end
+end

data/lib/randexp/wordlists/real_name.rb

@@ -0,0 +1,33 @@
+class RealName
+  def self.load_surnames
+    dir = File.dirname(__FILE__)
+    if File.exists?("#{dir}/../../../wordlists/surnames")
+      File.read("#{dir}/../../../wordlists/surnames").split
+    else
+      raise "words file not found"
+    end
+  end
+
+  def self.surnames(options = {})
+    if options.has_key?(:length)
+      surnames_by_length[options[:length]]
+    else
+      @@surnames ||= load_surnames
+    end
+  end
+
+  def self.surnames_by_length
+    @@surnames_by_length ||= surnames.inject({}) {|h, w| (h[w.size] ||= []) << w; h }
+  end
+
+  def self.first_names(options)
+    case options[:gender].to_s
+    when /^male/i
+      male_first_names(options)
+    when /^female/i
+      female_first_names(options)
+    else
+      [male_first_names(options), female_first_names(options)].pick
+    end
+  end
+end

data/spec/regression/regexp_spec.rb

@@ -0,0 +1,204 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe "#{'*' * 80}\nRegression Specs:" do
+  it "/abcd/                          => 'abcd'" do
+    100.times do
+      /abcd/.gen.should == 'abcd'
+    end
+  end
+
+  it "/(abcd)|(defg)/                 => ['abcd', 'defg']" do
+    100.times do
+      ['abcd', 'defg'].should include(/(abcd)|(defg)/.gen)
+    end
+  end
+
+  it "/(abcd)|(defg)|(hijk)/          => ['abcd', 'defg', 'hijk']" do
+    100.times do
+      ['abcd', 'defg', 'hijk'].should include(/(abcd)|(defg)|(hijk)/.gen)
+    end
+  end
+
+  it "/((abcd)|(defg))|(hijk)/        => ['abcd', 'defg', 'hijk']" do
+    100.times do
+      ['abcd', 'defg', 'hijk'].should include(/((abcd)|(defg))|(hijk)/.gen)
+    end
+  end
+
+  it "/(abcd)|((defg)|(hijk))/        => ['abcd', 'defg', 'hijk']" do
+    100.times do
+      ['abcd', 'defg', 'hijk'].should include(/(abcd)|((defg)|(hijk))/.gen)
+    end
+  end
+
+  it "/(abc)def(ghi)/                 => 'abcdefghi'" do
+    100.times do
+      /(abc)def(ghi)/.gen.should == 'abcdefghi'
+    end
+  end
+
+  it "/(((abc)))/                     => 'abc'" do
+    100.times do
+      /(((abc)))/.gen.should == 'abc'
+    end
+  end
+
+  it "/ab(c(def))/                    => 'abcdef'" do
+    100.times do
+      /ab(c(def))/.gen.should == 'abcdef'
+    end
+  end
+
+  it "/(\\w+)/                         => /\\w+/" do
+    100.times do
+      /(\w+)/.gen.should =~ /\w+/
+    end
+  end
+
+  it "/\\w+ \\w+/                       => /\\w+\\s\\w+/" do
+    100.times do
+      /\w+ \w+/.gen.should =~ /\w+\s\w+/
+    end
+  end
+
+  it "/\\w*/                           => /(\\w+)|/" do
+    100.times do
+      /\w*/.gen.should =~ /(\w+)|/
+    end
+  end
+
+  it "/\\w{2,5}/                       => /\\w{2,5}/" do
+    100.times do
+      /\w{2,5}/.gen.should =~ /\w{2,5}/
+    end
+  end
+
+  it "/\\w{1}/                         => /\\w/" do
+    100.times do
+      /\w{1}/.gen.should =~ /\w/
+    end
+  end
+
+  it "/\\w{4}/                         => /\\w{4}/" do
+    100.times do
+      /\w{4}/.gen.should =~ /\w{4}/
+    end
+  end
+
+  it "/[:word:]/                      => /\\w+/" do
+    100.times do
+      /[:word:]/.gen.should =~ /\w+/
+    end
+  end
+
+  it "/[:bool:]/                      => /true|false/" do
+    /[:bool:]/.gen.should =~ /true|false/
+  end
+
+  it "/[:sentence:]/                  => /(\w+ )*/" do
+    100.times do
+      /[:sentence:]/.gen.should =~ /(\w+ )*/
+    end
+  end
+
+  it "/[:paragraph:]/                 => /(  (\w+ )*\.)*/" do
+    100.times do
+      /[:paragraph:]/.gen.should =~ /(\w+ )*/
+    end
+  end
+
+  it "/(abc|def){1,2}/                => ['abc', 'def', 'abcabc', 'abcdef', 'defabc', 'defdef']" do
+    100.times do
+      ['abc', 'def', 'abcabc', 'abcdef', 'defabc', 'defdef'].should include(/(abc|def){1,2}/.gen)
+    end
+  end
+
+  it "/abc(def)?hij/                  => /abc(def)?hij/" do
+    100.times do
+      /abc(def)?hij/.gen.should =~ /abc(def)?hij/
+    end
+  end
+
+  it "/ab(c(def))?h/                  => /ab(c(def))?h/" do
+    100.times do
+      /ab(c(def))?h/.gen.should =~ /ab(c(def))?h/
+    end
+  end
+
+  it "/(\\d{3}-)?\\d{3}-\\d{4}/          => /(\\d{3}-)?\\d{3}-\\d{4}/" do
+    100.times do
+      /(\d{3}-)?\d{3}-\d{4}/.gen.should =~ /(\d{3}-)?\d{3}-\d{4}/
+    end
+  end
+
+  it "/[:phone_number:]/              => /(\\d{3}-)?\\d{3}-\\d{4}/" do
+    100.times do
+      /[:phone_number:]/.gen.should =~ /(\d{3}-)?\d{3}-\d{4}/
+    end
+  end
+
+  it "/[:phone_number:]{7}/           => /\\d{3}-\\d{4}/" do
+    100.times do
+      /[:phone_number:]{7}/.gen.should =~ /\d{3}-\d{4}/
+    end
+  end
+
+  it "/[:phone_number:]{10}/          => /\\d{3}-\\d{3}-\\d{4}/" do
+    100.times do
+      /[:phone_number:]{10}/.gen.should =~ /\d{3}-\d{3}-\d{4}/
+    end
+  end
+
+  it "/\\w+@\\w+\\.(com|org|net)/        => /\\w+@\\w+\\.(com|org|net)/.gen" do
+    100.times do
+      /\w+@\w+\.(com|org|net)/.gen.should =~ /\w+@\w+\.(com|org|net)/
+    end
+  end
+
+  it "/\\$\\d{2,3}\\.\\d{2}/              => /\\$\\d{2,3}\\.\\d{2}/" do
+    100.times do
+      /\$\d{2,3}\.\d{2}/.gen.should =~ /\$\d{2,3}\.\d{2}/
+    end
+  end
+  
+  it "/[:first_name:]/                => /\\w+/" do
+    100.times do
+      /[:first_name:]/.gen.should =~ /\w+/
+    end
+  end
+
+  it "/[:last_name:]/                 => /\\w+/" do
+    /[:last_name:]/.gen.should =~ /\w+/
+  end
+
+  it "/[:name:]/                      => /\\w+ \\w+/" do
+    /[:name:]/.gen.should =~ /\w+ \w+/
+  end
+
+  it "/[:last_name:]{5,10}/           => /\\w{5,10}/" do
+    /[:last_name:]{5,10}/.gen.should =~ /\w{5,10}/
+  end
+
+  it "/[:first_name:]{5,10}/          => /\\w{5,10}/" do
+    /[:first_name:]{5,10}/.gen.should =~ /\w{5,10}/
+  end
+  
+  it "/./                             => /./" do
+    100.times do
+      /./.gen.should =~ /./
+    end
+  end  
+  
+  it "/.\\./                           => /.\\./" do    
+    100.times do    
+      /.\./.gen =~ /.\./
+    end
+  end
+
+  it "/.{10}@.{1,9999}/             => /.{10}@.{1,9999}/" do    
+    10.times do    
+      /.{10}@.{1,9999}/.gen =~ /.{10}@.{1,9999}/
+    end
+  end 
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1,8 @@
+require 'rubygems'
+require 'spec'
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'randexp'
+
+Spec::Runner.configure do |config|
+end

data/spec/unit/core_ext/regexp_spec.rb

@@ -0,0 +1,9 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe Regexp do
+  describe "#gen" do
+    it "should always return a string" do
+      /abcd/.gen.class.should == String
+    end
+  end
+end

data/spec/unit/randexp/parser_spec.rb

@@ -0,0 +1,77 @@
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe Randexp::Parser do
+  describe ".parse" do
+    it "should return a sexp for a non-empty string" do
+      Randexp::Parser.parse("abc").should be_instance_of(Array)
+    end
+
+    it "should return nil for an empty string" do
+      Randexp::Parser.parse("").should be_nil
+    end
+
+    it "should alias :[] to :parse" do
+      Randexp::Parser[""].should be_nil
+    end
+  end
+
+  describe ".quantify" do
+    it "should return a :quantify sexp" do
+      Randexp::Parser.quantify([:literal, 'a'], :*)[0].should == :quantify
+    end
+
+    it "should push the quantify symbol on the end of the sexp" do
+      Randexp::Parser.quantify([:literal, 'a'], :*).last.should == :*
+    end
+
+    it "should push the argument sexp to the first entry of the :quantify sexp" do
+      Randexp::Parser.quantify([:literal, 'a'], :*)[1].should == [:literal, 'a']
+    end
+  end
+
+  describe ".union" do
+    it "should return the union of the right-hand side if the left-hand side is nil" do
+      Randexp::Parser.union(nil, [:literal, 'a']).should == Randexp::Parser.union([:literal, 'a'])
+    end
+
+    it "should return the left-hand side if the right hand side is not present" do
+      Randexp::Parser.union([:literal, 'a']).should == [:literal, 'a']
+    end
+
+    it "should append the right-hand side(s) to the left-hand side if the left-hand side is a union sexp" do
+      Randexp::Parser.union([:union, [:literal, 'a'], [:literal, 'b']], [:literal, 'c']).should == [:union, [:literal, 'a'], [:literal, 'b'], [:literal, 'c']]
+    end
+
+    it "should return a :union sexp between the left-hand and right-hand sexp's" do
+      Randexp::Parser.union([:literal, 'a'], [:literal, 'b']).should == [:union, [:literal, 'a'], [:literal, 'b']]
+    end
+  end
+
+  describe ".intersection" do
+    it "should prepend the left-hand side onto the right-hand side :intersection sexp if the right-hand side is an :intersection sexp" do
+      Randexp::Parser.intersection([:literal, 'a'], [:intersection, [:literal, 'b'], [:literal, 'c']]).should == [:intersection, [:literal, 'a'], [:literal, 'b'], [:literal, 'c']]
+    end
+
+    it "should create an :intersection sexp between the left-hand and right-hand sexp's" do
+      Randexp::Parser.intersection([:literal, 'a'], [:literal, 'b']).should == [:intersection, [:literal, 'a'], [:literal, 'b']]
+    end
+  end
+
+  describe ".random" do
+    it "should return a :random sexp" do
+      Randexp::Parser.random('w').should be_instance_of(Array)
+      Randexp::Parser.random('w').first.should == :random
+    end
+
+    it "should convert the char parameter to a symbol" do
+      Randexp::Parser.random('w').last.should == :w
+    end
+  end
+
+  describe ".literal" do
+    it "should return a literal sexp" do
+      Randexp::Parser.literal('a').should be_instance_of(Array)
+      Randexp::Parser.literal('a').first.should == :literal
+    end
+  end
+end