rand 0.9.1

data/test/test_rand.rb

@@ -0,0 +1,183 @@
+# $Id: test_rand.rb 23 2007-07-14 13:13:48Z keegan $
+# Copyright 2007 Keegan Quinn
+# Copyright 2004 Christian Neukirchen
+# Copyright 2004 Ilmari Heikkinen
+#
+# test_rand.rb -- tests for the rand library
+
+require 'test/unit'
+require 'rand'
+
+
+module RandTestHelpers
+  def picker(enum, enum_check, method, n=50)
+    (1..n).all?{ enum_check.include? enum.send(method) }
+  end
+
+  def try_shuffling(enum, enum_c, method)
+    rv = nil
+    10.times{
+     rv = enum.send method
+     break if rv != enum_c
+    }
+    rv
+  end
+end
+
+
+class RandArrayTest < Test::Unit::TestCase
+  include RandTestHelpers
+
+  def ar
+    (0..99).to_a
+  end
+
+  def test_pick
+    a = ar
+    results = (0...a.size).map{ a.pick }
+    assert true, results.all? {|r| a.include? r }
+  end
+
+  def test_pick!
+    a = ar
+    results = (0...a.size).map{ a.pick! }
+    assert true, results.sort == (0..99).to_a and a.empty?
+  end
+
+  def test_pick_index
+    a = ar
+    results = (0...a.size).map{ a.pick_index }
+    assert true, results.all? {|r| r.between?(0, a.size-1) }
+  end
+
+  def test_pick_index!
+    a = ar
+    # side-effect-relying block; a.size = a.size-1 after pick_index!,
+    # so the picked index max value is the new a.size
+    assert true, (0...a.size).all?{ a.pick_index!.between?(0, a.size) } and a.empty?
+  end
+
+  def test_shuffle
+    a = ar
+    shuffled = try_shuffling(a, a, :shuffle)
+    assert true, shuffled.sort == a and shuffled != a
+  end
+
+  def test_shuffle!
+    a = ar
+    try_shuffling(a, ar, :shuffle!)
+    assert true, a != ar and a.sort == ar
+  end
+end
+
+
+class RandHashTest < Test::Unit::TestCase
+  include RandTestHelpers
+
+  def ha
+    Hash[*(1..100).to_a]
+  end
+
+  def test_pick
+    assert true, picker(ha, ha.entries, :pick)
+  end
+
+  def test_pick!
+    h = ha
+    assert true, picker(h, ha.entries, :pick!) and h.empty? 
+  end
+
+  def test_pick_key
+    assert true, picker(ha, ha.keys, :pick_key)
+  end
+
+  def test_pick_key!
+    h = ha
+    assert true, picker(h, ha.keys, :pick_key!) and h.empty?
+  end
+
+  def test_pick_value
+    assert true, picker(ha, ha.values, :pick_value)
+  end
+
+  def test_pick_value!
+    h = ha
+    assert true, picker(h, ha.values, :pick_value!) and h.empty?
+  end
+
+  def test_shuffle_hash
+    h = ha
+    hs = try_shuffling(ha, h, :shuffle_hash)
+    assert true, hs != h and (hs.keys + hs.values).sort == (h.keys + h.values).sort
+  end
+
+  def test_shuffle_hash!
+    h = ha
+    hs = ha
+    try_shuffling(hs, h, :shuffle_hash!)
+    assert true, hs != h and (hs.keys + hs.values).sort == (h.keys + h.values).sort
+  end
+
+  def test_shuffle
+    h = ha
+    hs = try_shuffling(ha, h, :shuffle)
+    assert true, hs != h and hs.entries.sort == h.entries.sort
+  end
+end
+
+
+class RandStringTest < Test::Unit::TestCase
+  include RandTestHelpers
+
+  def self.pick_tests(endings)
+    endings.each{|ending, compare_str_f|
+      define_method("test_pick#{ending}"){
+        s = str
+        assert true, picker(s, instance_eval(&compare_str_f), "pick#{ending}", s.size)
+      }
+    }
+  end
+
+  def self.pick_tests!(endings)
+    endings.each{|ending, compare_str_f|
+      define_method("test_pick#{ending}!"){
+        s = str
+        assert true, picker(s, instance_eval(&compare_str_f), "pick#{ending}!", s.size) and s.empty?
+      }
+    }
+  end
+
+  def str
+    (("a".."z").to_s + "\n") * 10
+  end
+
+  def test_shuffle
+    s = str
+    ss = try_shuffling(s, s.to_a, :shuffle)
+    assert true, ss != s.to_a and ss.sort == s.to_a.sort
+  end
+
+  def test_shuffle_chars
+    s = str
+    ss = try_shuffling(s, s.split(//), :shuffle_chars)
+    assert true, ss != s and ss.split(//).sort == s.split(//).sort
+  end
+
+  def test_shuffle_chars!
+    s = str
+    ss = str
+    try_shuffling(ss, s.split(//), :shuffle_chars!)
+    assert true, ss != s and ss.split(//).sort == s.split(//).sort
+  end
+
+  pick_tests({ ""      => lambda{str.to_a}, 
+               :_char  => lambda{str.split(//)}, 
+               :_byte  => lambda{str.split(//).map{|c| c[0]}}, 
+               :_index => lambda{(0...str.size).to_a}
+             })
+
+  pick_tests!({ :_char  => lambda{str.split(//)}, 
+                :_byte  => lambda{str.split(//).map{|c| c[0]}}, 
+                :_index => lambda{(0...str.size).to_a}
+              })
+end

metadata

@@ -0,0 +1,70 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: rand
+version: !ruby/object:Gem::Version 
+  version: 0.9.1
+date: 2007-07-14 00:00:00 -07:00
+summary: A library for picking random elements and shuffling.
+require_paths: 
+- lib
+email: keegan@rubyforge.org
+homepage: http://rand.rubyforge.org
+rubyforge_project: rand
+description: A library for picking random elements and shuffling.
+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: 
+- Ilmari Heikkinen
+- Christian Neukirchen
+- Keegan Quinn
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/rand.rb
+- setup.rb
+- test/test_rand.rb
+test_files: 
+- test/test_rand.rb
+rdoc_options: 
+- --title
+- rand -- Random elements and shuffling
+- --main
+- README.txt
+- --line-numbers
+- --inline-source
+- --all
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+executables: []
+
+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.2.1
+    version: