covers 'facets/random'

test_case Random do

  class_method :letter do
    test do
      100.times { |i| /[a-zA-z]/.assert =~ Random.letter }
    end
  end

end

test_case Range do

  # helper method
  def assert_at_rand_table(table)
    table.each do |x, y|
      20.times do
        x.at_rand.assert == y
      end
    end
  end

  # helper method
  def assert_random_range(range)
    20.times do 
      range.assert.include?( range.at_rand )
    end
  end

  method :at_rand do

    test "within range" do
      list = [ 1..4, 1...4, 1.5..2.5, 1.5...2.5, -4..-1, -4...-1,
               -2.5..-1.5, -2.5...-1.5, 'a'..'d', 'a'...'d' ]
      list.each{ |rng| assert_random_range(rng) }
    end

    test "within range special cases" do
      assert_at_rand_table(
        (5..5)       => 5,
        (5...5)      => nil,
        (5..-1)      => nil,
        (5.0..5.0)   => 5.0,
        (5.0...5.0)  => nil,
        (5.0...-1.0) => nil
      )
    end

    test "reverse ranges" do
      assert_at_rand_table(
        (4..1) => nil,
        (4...1) => nil,
        (-1..-4) => nil,
        (-1...-4) => nil
      )
      #assert((1..4).include?((4..1).at_rand))
      #assert((-4...-1).include?((-1...-4).at_rand))
      #assert((-4..-1).include?((-1..-4).at_rand))
    end

    # I'd rather it return the first sentinel than +nil+.
    # Really, ruby should be raising an error as an invalid range value.
    test "exclusive range" do
      (5...5).at_rand.assert == nil
      #expect RangeError do
      #  (5...5).at_rand
      #end
    end

  end

end

test_case Array do

  method :at_rand do
    test do
      a = [1,2,3,4,5]
      20.times{ a.assert.include?( a.at_rand ) }
    end
  end

  method :at_rand! do
    test do
      a = ['a','b','c']
      a.at_rand!.length.assert == 1
      a.length.assert == 2
    end
  end

  method :pick do
    test do
      a = ['a','b','c']
      a.pick(3).length.assert == 3
      a.length.assert == 3
      a = ['a','b','c']
      a.pick(4).length.assert == 3
      a.length.assert == 3
    end
  end

  method :pick! do
    test do
      a = ['a','b','c']
      a.pick!(3).length.assert == 3
      a.length.assert == 0
      a = ['a','b','c']
      a.pick!(4).length.assert == 3
      a.length.assert == 0
    end
  end

  method :rand_index do
    test do
      10.times {
        i = [1,2,3].rand_index
        (0..2).assert.include?(i)
      }
    end
  end

  method :rand_subset do
    test do
      10.times {
        a = [1,2,3,4].rand_subset
        a.size.assert <= 4
      }
    end
  end

  method :shuffle do
    test do
      a = [1,2,3,4,5]
      b = a.shuffle
      b.sort.assert == a
    end
  end

  method :shuffle! do
    test do
      a = [1,2,3,4,5]
      b = a.dup
      b.shuffle!
      b.sort.assert == a
    end
  end

end

test_case Hash do

  method :rand_key do
    test do
      h = { :a=>1, :b=>2, :c=>3 }
      10.times { h.keys.assert.include?( h.rand_key ) }
    end
  end

  method :rand_pair do
    test do
      h = { :a=>1, :b=>2, :c=>3 }
      10.times { k,v = *h.rand_pair; h[k].assert == v }
    end
  end

  method :rand_value do
    test do
      h = { :a=>1, :b=>2, :c=>3 }
      10.times { h.values.assert.include?( h.rand_value ) }
    end
  end

  method :shuffle do
    test do
      h = {:a=>1, :b=>2, :c=>3 }
      h.shuffle
    end
  end

  method :shuffle! do
    test do
      h = {:a=>1, :b=>2, :c=>3 }
      h.shuffle!
    end
  end

end

test_case String do

  method :at_rand do
    test do
      a = '12345'
      20.times{ a.assert.include?( a.at_rand ) }
    end
  end

  method :at_rand! do
    test do
      x = 'ab'
      r = x.at_rand!
      assert( r == 'a' || r == 'b' )
      assert( x == 'a' || x == 'b' )
    end
  end

  method :rand_index do
    test do
      10.times{ (0..2).assert.include?( 'abc'.rand_index ) }
    end
  end

  method :rand_byte do
    test do
      2.times do
        s = 'ab'
        r = s.rand_byte
        if RUBY_VERSION > '1.9'
          assert( r == 'a' || r == 'b' )
        else
          assert( r == 97 || r == 98 )
        end
      end
    end
  end

  method :shuffle do
    test do
      "abc 123".shuffle
      #"abc 123".shuffle!
    end
  end

  method :shuffle! do
    test do
      "abc 123".shuffle!
    end
  end

end