# require 'pry-rescue/rspec'
require 'epitools'

describe Object do

  it "withs" do
    class Cookie; attr_accessor :size, :chips; end

    c = Cookie.new; c.size = 10; c.chips = 200
    w = c.with(:chips=>50)

    w.size.should      == c.size
    w.chips.should_not == c.chips
    w.should_not       === c
  end

  it "in?" do
    5.in?([1,2,3,4,5,6]).should   == true
    5.in?(1..10).should           == true
    5.in?(20..30).should          == false
    "butt".in?("butts!!!").should == true
  end

  it "times" do
    lambda {
      time("time test") { x = 10 }
    }.should_not raise_error

    lambda {
      time("time test") { raise "ERROR" }
    }.should raise_error(RuntimeError)
  end

  it "benches" do
    lambda { bench { rand }                 }.should_not raise_error
    lambda { bench(20) { rand }             }.should_not raise_error
    lambda { bench                          }.should raise_error(RuntimeError)
    lambda { bench(:rand => proc { rand }, :notrand => proc { 1 })        }.should_not raise_error
    lambda { bench(200, :rand => proc { rand }, :notrand => proc { 1 })   }.should_not raise_error
  end

  it "trys" do
    s = Struct.new(:a,:b).new
    s.a = 5
    s.b = 10

    s.try(:a).should == 5
    s.try(:b).should == 10
    s.try(:c).should == nil

    lambda { s.try(:c) }.should_not raise_error
    lambda { s.c }.should raise_error(NoMethodError)

    def s.test(a); a; end

    s.test(1).should       == 1
    s.try(:test, 1).should == 1

    lambda { s.test }.should raise_error(ArgumentError)
    lambda { s.try(:test) }.should raise_error(ArgumentError)

    def s.blocky; yield; end

    s.blocky{ 1 }.should            == 1
    s.try(:blocky){ 1 }.should      == 1
    s.try(:nonexistant){ 1 }.should == nil
  end

  it "nots" do
    10.even?.should == true
    10.not.even?.should == false
  end

  it "alias_class_methods" do
    class Blah
      def self.classmethod
        true
      end

      alias_class_method :aliased, :classmethod
    end

    lambda do
      Blah.classmethod.should == true
    end.should_not raise_error

  end

  it "marshals/unmarshals" do
    :whee.marshal.unmarshal.should == :whee
    :whee.marshal.should == Marshal.dump(:whee)
  end

  it "selfs" do
    a = [1,2,3,4]
    a.map(&:self).should == a
  end

  it "memoizes" do

    $sideffect = 0

    class Fake

      memoize def cached_value
        $sideffect += 1
        :value
      end

    end

    f = Fake.new

    $sideffect.should == 0

    f.cached_value.should == :value
    $sideffect.should == 1

    f.cached_value.should == :value
    $sideffect.should == 1

    $sideffect = nil
  end

end


describe Class do

  it "uses" do
    module Test1
      def test1; :test1; end
    end

    module Test2
      def test2; :test2; end
    end

    Hash.using(Test1).new.test1.should == :test1
    Hash.using(Test2).new.test2.should == :test2
    h = Hash.using(Test1, Test2).new
    h.test1.should == :test1
    h.test2.should == :test2

    Hash.using(Test1) do |h|
      h.new.test1.should == :test1
    end
  end

end


describe Numeric do

  it "commatizes" do
    123.commatize.should               == "123"
    1234.commatize.should              == "1,234"
    12983287123.commatize.should       == "12,983,287,123"
    -12983287123.commatize.should      == "-12,983,287,123"
    -12983287123.4411.commatize.should == "-12,983,287,123.4411"
    1111.1234567.commatize.should      == "1,111.1234567"
    BigDecimal.new("1111.1234567").commatize.should == "1,111.1234567"
    -1234567.1234567.underscorize.should == "-1_234_567.1234567"
  end

  it "does time things" do
    1.second.should             == 1
    1.minute.should             == 60
    2.minutes.should            == 120
    2.hours.should              == 120*60
    2.5.days.should             == 3600*24*2.5

    5.days.ago.to_i.should      == (Time.now - 5.days).to_i
    1.year.ago.year.should      == Time.now.year - 1
    5.days.from_now.to_i.should == (Time.now + 5.days).to_i

    1.day.ago.elapsed.should be_within(0.1).of(1.day)
  end

  it "thingses" do
    10.things.should             == [0,1,2,3,4,5,6,7,8,9]
    4.things {|n| n * 5 }.should == [0,5,10,15]
    -1.things.should             == []
  end

  it "maths" do
    10.cos.should == Math.cos(10)
    20.sin.should == Math.sin(20)
    1.5.exp.should == Math.exp(1.5)

    253.log(5).should == 3.438088195871358
    (2**(4212.log(2))).round.should == 4212.0
  end

  it "human_sizes" do
    1024.human_size.should == "1KB"
    23984.human_size.should == "23KB"
    12983128.human_size.should == "12MB"
    32583128.human_size(2).should == "31.07MB"
  end

end


describe String do

  it "anys?" do
    "".should_not be_any
    "\n".should_not be_any
    "YAY".should be_any
  end

  it "rot13s" do
    message = "Unbreakable Code"
    message.rot13.should_not   == message
    message.rot13.rot13.should == message
  end

  it "tightens" do
    " hi   there".tighten.should == "hi there"
  end

  it "dewhitespaces" do
    "\nso there   i \n was, eating my cookies".dewhitespace.should == "so there i was, eating my cookies"
  end

  it "nice_lineses" do
    "\n\n\nblah\n\n\nblah\n\n\n".nice_lines.should == ["blah", "blah"]
  end

  it "nice_htmls" do
    s = "<a><b><p><c>whee</a>"
    s.nice_html.should_not == s
  end

  it "wraps" do
    s1 = "Hello there, I am a sentence or series of words."
    s2 = "012345678901234567890123456789012345678901234567"
    s3 = "hello there"
    s1.wrap(14).should == "Hello there, I\nam a sentence\nor series of\nwords."
    s2.wrap(14).should == "01234567890123\n45678901234567\n89012345678901\n234567"
    s3.wrap(80).should == "hello there"
  end

  it "indents" do
    s                  = "Some things\nNeed indenting\nSo, you indent them!\n"
    indented_2         = "  Some things\n  Need indenting\n  So, you indent them!\n"

    s.indent(2).should == indented_2
  end

  it "titlecases" do
    {
      "asdf asdfasdf asdf" => "Asdf Asdfasdf Asdf",
      " asdf"              => " Asdf",
      "ASDFASDFA SDF"      => "Asdfasdfa Sdf",
      "What's Up"          => "What's Up",
      "they're awesome"    => "They're Awesome",
      "king of pain"       => "King of Pain",
      "a-b-c 1-2-3"        => "A-B-C 1-2-3",
      "i'm the best"       => "I'm the Best"
    }.each {|orig, titled| orig.titlecase.should == titled }

    s = "asdf asdf"
    s.titlecase!
    s.should == "Asdf Asdf"
  end

  it "strips color" do
    s = "woot!"
    color_s = s.light_green
    color_s.strip_color.should == s
  end

  it "urlencodes/decodes" do
    s = "hi + there & mom + !!!!! I AM ON RSPEC"
    s.urlencode.should_not == s
    s.urlencode.should == "hi%20+%20there%20&%20mom%20+%20!!!!!%20I%20AM%20ON%20RSPEC"
    s.urlencode.urldecode.should == s
  end

  it "to_paramses" do
    "file=yay&setting=1&awesome=true".to_params.should == {"file" => "yay", "setting"=>"1", "awesome"=>"true"}
  end

  it "md5/sha1s" do
    s = "hashme"
    s.md5.should_not == s
    s.sha1.should_not == s
    s.sha1.should_not == s.md5
  end

  it "gzips/gunzips/delfates/inflates" do
    s = "asdklfjasdfjaeh"
    s.deflate.should_not == s
    s.deflate.inflate.should == s

    s.gzip.should_not == s
    s.gzip.gunzip.should == s

    s.gzip(9).size.should < s.gzip(0).size
    s.deflate(9).size.should < s.deflate(0).size
  end

  it "wordses" do
    s = "This, is a bunch, of words."
    s.words.should == ["This", "is", "a", "bunch", "of", "words"]

    "Weird word-like things".words.should == ["Weird", "word", "like", "things"]
  end

  it "wordses without stopwords" do
    s = "The answer to the ultimate question of life, the universe, and everything.".downcase
    s.without_stopwords.should == ["answer", "ultimate", "question", "life", "universe"]
  end

  it "starts/endswith" do
    "blahblahblah".startswith("blah").should == true
    "blahblahblah".endswith("blah").should == true
  end

  it "amounts" do
      "cookie".amount(5).should == "5 cookies"
      "cookie".amount(0).should == "0 cookies"
      "shirt".amount(17).should == "17 shirts"
    "dollar".amount(-10).should == "-10 dollars"
        "love".amount(1).should == "1 love"
  end

  it "slices" do
    e = "hellothere!".each_slice(2)
    e.should be_an Enumerator
    e.to_a.should == %w[he ll ot he re !]
  end

  it "n choose r" do
    n = 49
    r = 6

    n.choose(r).should == n.fact / (r.fact * (n-r).fact)
  end

  it "n perms r" do
    n = 23
    r = 3

    n.perms(r).should == (n.fact / (n-r).fact)
  end

  it "mulmods" do
    1.25.mulmod(2).should == [2, 0.5]
    5.mulmod(2).should == [10, 0]
  end

  it "to_i_from_byteses" do
    i = 2**31

    big_endian_bytes    = [i].pack("L>")
    little_endian_bytes = [i].pack("L<")

    big_endian_bytes.to_i_from_bytes(true).should == i
    little_endian_bytes.to_i_from_bytes.should == i
  end

  it "split_ats" do
         "hello@@there@@whee".split_at("@@").to_a.should == ["hello", "there", "whee"]
                      "hello".split_at("@@").to_a.should == ["hello"]
    "whatAAAtheBBBheck???oic".split_at(/[AB\?]{1,3}/).to_a.should == ["what", "the", "heck", "oic"]
                "hello@there".split_after("@").to_a.should == ["hello@", "there"]
               "line\nline\n".split_at("\n", include_boundary: true).to_a.should == ["line\n", "line\n"]
  end

  it "sentences" do
    string = "Sentence the first.  Sentence\nthe second. Sentence the third!!!\n\nThe end."

    string.sentences.to_a.should == [
      "Sentence the first.",
      "Sentence the second.",
      "Sentence the third!!!",
      "The end.",
    ]
  end

end


describe Integer do

  it "integer?s" do

    {
      true  => [ "123", "000", 123 ],
      false => [ "123asdf", "asdfasdf", Object.new, nil, 123.45 ]
    }.each do |expected_result, objects|
      objects.each { |object| object.integer?.should == expected_result }
    end

  end

  it "has bits" do
    1.to_bits.should == [1]
    2.to_bits.should == [0,1]
    3.to_bits.should == [1,1]
    42.to_bits.should == [0,1,0,1,0,1]

    # round trip
    20.times do
      n = rand(918282393982)
      n.to_bits.reverse.join.to_i(2).should == n
    end
  end

  it "slices into bits" do
    i = "111011".to_i(2)
    # Note: to_i(2) accepts big-endian, while the Fixnum#[] slicing will return little endian.
    #       So make sure to reverse the bit string for the specs.

    i[0].should == 1
    i[2].should == 0

    i[0..2].should == [1,1,0]
    i[-3..-1].should == [1,1,1]
    i[0..-1].should == [1,1,0,1,1,1]
  end

  it "converts to/from bases" do
    [1,20,500,501,34191923].each do |n|
      n.to_base62.from_base62.should == n
    end

    "777".from_base(16).should == 1911
    500.to_base(10).should == "500"
    500.to_base(10).from_base(10).should == 500

    sum = "asdf".md5
    sum.to_base62.from_base62.to_s(16).should == sum
  end

  it "factors numbers" do
    10.factors.should == [2,5]
    256.factors.should == [2,2,2,2,2,2,2,2]
  end

  it "primes numbers" do
    [3,5,7,11,13,17,23,3628273133].all? { |n| n.should be_prime }
  end

  it "factorializes" do
    -3.fact.should == -6
     0.fact.should == 1
     1.fact.should == 1
     2.fact.should == 2
    42.fact.should == 1405006117752879898543142606244511569936384000000000
     9.fact.should == 9.factorial
  end

end


describe Float do

  it "float?" do
    {
      true  => [ "0.0", "1.000", 123.45 ],
      false => [ "123asdf", "asdfasdf", Object.new, nil, 12345, "000", "123" ]
    }.each do |expected_result, objects|
      objects.each { |object| object.float?.should == expected_result }
    end
  end

  it "percent" do
    f = 0.716237
    f.percent.should == "72%"
    f.percent(2).should == "71.62%"
    f.percent(3).should == "71.624%"
  end

end

describe Number do

  it "number?" do
    {
      true  => [ "0.0", " 1.0", "1.000", "-1", "-1.25", 123.45, 12345, "000", "123", "1" ],
      false => [ "123asdf", "abcd123", "asdfasdf", Object.new, nil ]
    }.each do |expected_result, objects|
      objects.each { |object| object.number?.should == expected_result }
    end
  end

end


describe Array do

  it "squashes" do
    [1,2,[3,4,[5],[],[nil,nil],[6]]].squash.should == [1,2,3,4,5,6]
  end

  it "remove_ifs" do
    nums = [1,2,3,4,5,6,7,8,9,10,11,12]
    even = nums.remove_if { |n| n.even? }   # remove all even numbers from the "nums" array and return them
    odd = nums

    even.should == [2,4,6,8,10,12]
    odd.should == [1,3,5,7,9,11]
  end

  it "rzips" do
    in_times  = [:hours, :mins, :secs]
    in_tegers =          [   5,    39]
    out_put   = [[5, :mins], [39, :secs]]

    in_tegers.rzip(in_times).should == out_put

    enum = in_tegers.to_enum.rzip(in_times)
    enum.is_a?(Enumerator).should == true
    enum.to_a.should == [ [5, :mins], [39, :secs] ]
  end

  it "middles" do
    a = [0,1,2,3,4,5]
    a.middle.should == 2
    a << 6
    a.middle.should == 3
  end

  it "means, medians, modes" do
    a = [1,2,3,4,4,5,5,5,6]
    #       0 1 2 3 4 5 6 7 8
    #               ^- median

    a.median.should == 4
    a.mode.should == 5
    a.mean.should == a.sum.to_f / a.size
  end

  it "/'s" do
    a = [1,2,3,4,5]
    b = [1,2,3,4]

    # splits?
    (a/2).should == [[1,2,3],[4,5]]
    (a/3).should == [[1,2],[3,4],[5]]

    (b/2).should == [[1,2],[3,4]]
  end

  it "includes?s" do
    [:a, :b, :c].includes?(:c).should == true
    [:a, :b, :c].includes?(5).should == false
  end

  it "rpads" do
    [1,2,3].rpad(5).should == [1,2,3,nil,nil]
  end

  it "transpose_with_padding" do
    a = [
      [1,2],
      [1],
      [1,2,3]
    ]

    a_transposed = [
      [1,2,nil],
      [1,nil,nil],
      [1,2,3]
    ].transpose

    a.transpose_with_padding.should == a_transposed
  end

  it "rows and columnses" do
    a = [
      [  1,  2,  3,  4,  5 ],
      [  6,  7,  8,  9, 10 ],
      [ 11, 12             ],
    ]

    a.row(0).should   == [1,2,3,4,5]
    a.col(0).should   == [1,6,11]
    a.col(-1).should  == [5,10]
    a.col(-10).should == nil

    a.cols.map(&:size).should == [3,3,2,2,2]
  end

  it "matrixes" do
    m = Array.matrix(2,2,0)
    m.should == [[0,0],[0,0]]

    m = Array.rect(2,2)
    m.should == [[nil,nil],[nil,nil]]

    m = Array.rect(2,2) {|x,y| rand }
    pp m
    m.should_not == [[0,0],[0,0]]
  end

end


describe Enumerable do

  it "maps deeply" do
    [["a\n", "b\n"], ["c\n", "d\n"]].map_recursively(&:strip).should == [ %w[a b], %w[c d] ]

    [[1,2],[3,4]].map_recursively {|e| e ** 2}.should == [[1,4],[9,16]]
    [1,2,3,4].map_recursively {|e| e ** 2}.should == [1,4,9,16]
    [[],[],1,2,3,4].map_recursively {|e| e ** 2}.should == [[], [], 1, 4, 9, 16]
  end

  it "selects deeply" do
    [[1,2],[3,4]].select_recursively {|e| e % 2 == 0 }.should == [[2],[4]]
    [{},"Blah",1,2,3,4].select_recursively {|e| e == 2 }.should == [2]
  end

  it "splits" do
    [1,2,3,4,5].split_at     {|e| e == 3}.should == [ [1,2], [4,5] ]
    [1,2,3,4,5].split_after  {|e| e == 3}.should == [ [1,2,3], [4,5] ]
    [1,2,3,4,5].split_before {|e| e == 3}.should == [ [1,2], [3,4,5] ]

    result = "a\nb\n---\nc\nd\n".each_line.split_at(/---/)
    result.to_a.should == [ ["a\n", "b\n"], ["c\n", "d\n"] ]

    result = "hello\n\nthere\n".each_line.split_at("\n")
    result.to_a.should == [ ["hello\n"], ["there\n"] ]
  end

  it "splits with nested things" do
    array = [ [],["a"],"a",[1,2,3] ]

    lambda {
      array.split_at("a")
    }.should_not raise_error

    array.split_at("a").should     == [ array[0..1], array[3..3] ]
    array.split_at([1,2,3]).should == [ array[0..2] ]
  end

  it "splits with arbitrary objects" do
    arbitrary = Struct.new(:a, :b, :c)

    particular = arbitrary.new(1,2,3)
    array = [ arbitrary.new, arbitrary.new, particular, arbitrary.new]

    array.split_at(particular).should == [ array[0..1], array[3..3] ]
  end

  it "splits lazily" do
    result = "a\nb\nc\nd".each_line.split_at("b")
    result.should be_an Enumerator
  end

  it "splits between" do
    test_chunks = [
      [ [1,1] ],
      [ [1], [2] ],
      [ [1,1], [2,2,2], [3,3,3,3] ],
      [[]],
    ]

    test_chunks.each do |chunks|
      result = chunks.flatten.split_between do |a,b|
        a != b
      end

      result.should be_an Enumerator
      result.to_a.should == chunks
    end
  end

  it "sums" do
    [1,2,3,4,5].sum.should == 15
    [1,2,3,4,5].sum { 1 }.should == 5
  end

  it "averages" do
    [1,3].average.should == 2.0
    [1,1,3,3].average.should == 2.0
  end

  it "uniqs lazily" do
    [0,0,0,1].cycle.uniq.take(2).to_a.should == [0,1]
    [0,0,0,1].cycle.uniq_by(&:prime?).take(1).to_a.should == [0]
  end

  it "uniq_bys" do
    [1,2,3,4].uniq_by(&:prime?).to_a.should == [1,2]
  end

  it "foldl's" do
    a = [1,2,3,4]
    a.foldl(:+).should == a.sum
    %w[hi there].foldl(:+).should == "hithere"

    [ [1],[2],[3],[4] ].foldl(:+).should == [1,2,3,4]
  end

  it "powersets" do
    [1,2,3].powerset.to_a.should == [[], [1], [2], [1, 2], [3], [1, 3], [2, 3], [1, 2, 3]]
    [1,2].to_enum.powerset.to_a.should == [[], [1], [2], [1, 2]]
  end

  it "unzips" do
    [ [:a, 1], [:b, 2] ].unzip.should == [ [:a, :b], [1, 2] ]
  end

  it "group_neighbours_bys" do
    a = [1,2,5,6,7,10,11,13]
    result = a.group_neighbours_by { |a,b| b-a <= 1 }
    result.should == [[1,2],[5,6,7],[10,11],[13]]
  end

  it "grouped_to_h's" do
    [[:a, 1], [:b, 2], [:a, 0]].grouped_to_h.should == {
      a: [1,0],
      b: [2]
    }
  end

  it "includes?s" do
    [:a, :b, :c].to_enum.includes?(:c).should == true
    [:a, :b, :c].to_enum.includes?(5).should == false
  end

  it "permutatitons and combinations" do
    10.times.permutation(2).to_a.should == 10.times.to_a.permutation(2).to_a
    10.times.combination(2).to_a.should == 10.times.to_a.combination(2).to_a

    result = []
    10.times.permutation(2) { |perm| result << perm }
    result.should == 10.times.permutation(2).to_a
  end

  it "cartesian products" do
    a = [1,2]
    b = [3,4]

    (a * b).to_a.should == [[1,3],[1,4],[2,3],[2,4]]
  end

  it "rles" do
           [1, 2, 3,3,3, 4].rle.to_a.should == [ [1,1], [1,2], [3,3], [1,4] ]
    [5,5, 1, 2, 3,3,3, 4,4].rle.to_a.should == [ [2,5], [1,1], [1,2], [3,3], [2,4] ]
  end

  it "sorts strings numerically" do
    a  = ["a1", "a11", "a2", "a3"]
    proper = ["a1", "a2", "a3", "a11"]

    a.sort_numerically.should == proper
    a.sort.should_not == a.sort_numerically

    ps = a.map(&:to_Path)
    ps.sort_numerically.map(&:filename).should == proper
  end

end


describe Enumerator do

  it "spins" do
    lambda {
      (1..20).each.with_spinner(1).each { }
    }.should_not raise_error
  end

  it "concatenates" do
    e = [1,2,3].to_enum + [4,5,6].to_enum
    e.to_a.should == [1,2,3,4,5,6]
    e.size.should == 6

    e = [1,2,3].to_enum + [4,5,6]
    e.to_a.should == [1,2,3,4,5,6]
    e.size.should == 6
  end

  it "multiplies" do
    e = [1,2,3].to_enum * 3
    e.to_a.should == [1,2,3]*3

    e = [1,2].to_enum * [3,4].to_enum
    e.to_a.should == [[1,3],[1,4],[2,3],[2,4]]

    lambda { [].old_multiply }.should raise_error(NoMethodError)
  end

  it "exponentiates" do
    e = [1,2].to_enum ** 2
    squared = [[1,1], [1,2], [2,1], [2,2]]

    e.to_a.should == squared

    e = [1,2].to_enum ** 3

    e.to_a.should == squared * [1,2]
    e.to_a.should == ([1,2]**3)
  end

end


describe Hash do

  before :each do
    @h = {"key1"=>"val1", "key2"=>"val2"}
  end

  it "maps recursively" do
    # nevermind. hashes are stupid.
    # {a: 2, b: {c: 5, d: 7}}.map_recursively {|k,v| [k, v**2] }.should == {a: 4, b: {c: 25, d: 49}}
  end

  it "selects recursively" do
    # nevermind. hashes are stupid.
    # {1=>2, 3=>{4=>5, 6=>7}}.select_recursively {|k,v| k == 1 }.should == {1=>2}
  end

  it "maps keys" do
    h = @h.map_keys{|k| k.upcase}
    h.keys.should   == @h.keys.map{|k| k.upcase}
    h.values.should == @h.values

    h.map_keys! { 1 }
    h.keys.should   == [1]
  end

  it "maps values" do
    h = @h.map_values{|v| v.upcase}

    h.values.should =~ @h.values.map{|v| v.upcase}
    h.keys.should   =~ @h.keys
    h.map_values! { 1 }
    h.values.should =~ [1,1]
  end

  it "slices" do
    h = @h.dup

    h.slice("key1").should == {"key1" => "val1"}
    h.slice("key2").should == {"key2" => "val2"}

    h.slice!("key1")
    h.should == {"key1" => "val1"}

    h.slice("nonexistant").should == {}
  end

  it "mkdir_p's and trees" do
    h = {}
    h.mkdir_p(["a", "b", "c"]).should    == {"a"=>{"b"=>{"c"=>{}}}}
    h.mkdir_p(["a", "b", "whoa"]).should == {"a"=>{"b"=>{"c"=>{}, "whoa"=>{}}}}

    lambda {
      h.tree.should =~ ["a", "  b", "    c", "    whoa"]
    }.should_not raise_error
  end

  it "to_querys" do
    # this will probably fail half the time in Ruby 1.8 because the hash order is random
    params = {"donkeys"=>"7", "stubborn"=>"true"}
    params.to_query.to_params.should == params
    params.to_query.in?(["donkeys=7&stubborn=true", "stubborn=true&donkeys=7"]).should == true
  end

  it "includes?s and key?s" do
    @h.key?("key1").should      == true
    @h.includes?("key1").should == true
  end

  it "diffs" do
    a = {a: {c: 1, b: 2}, b: 2}
    b = {a: {c: 2, b: 2}}

    changes = a.diff(b)
    changes.should == {:a=>{:c=>[1, 2]}, :b=>[2, nil]}
    a.apply_diff(changes).should == b

    a.apply_diff!(changes)
    a.should == b
  end

end


describe Time do
  it "time in words" do
    Time.now.in_words.should           == "just now"
    1.second.ago.in_words.should       == "1 second ago"
    2.seconds.ago.in_words.should      == "2 seconds ago"
    3.weeks.ago.in_words.should        == "3 weeks ago"
    4.5.weeks.ago.in_words.should      == "1 month ago"
    2.months.ago.in_words.should       == "2 months ago"
    2.years.ago.in_words.should        == "2 years ago"
    2.5.years.ago.in_words.should      == "2 years ago"

    2.5.years.from_now.in_words.should == "2 years from now"
  end
end


describe Binding do
  a = 1
  b = proc { a }

  b.binding.keys.should =~ [:a, :b]
  b.binding.keys.should == b.binding.local_variables

  b.binding[:a].should  == 1
  b.binding["a"].should == 1
  b.binding[:b].should  == b

  b.binding[:a] = 5
  b.binding[:a].should  == 5
  b.call.should         == 5
end


describe Proc do

  it "joins procs" do
    a = proc { 1 } & proc { 2 }
    a.call.should == [1,2]

    a &= proc { 3 }
    a.call.should == [[1,2],3]
  end

  it "chains procs" do
    b = proc { 1 } | proc { |input| input + 1 }
    b.call.should == 2
    b = b.chain( proc { |input| input + 1 } )
    b.call(1).should == 3
  end

end


describe BasicObject do

  it "is blank!" do
    BasicObject.methods(false).should == []
  end

end


describe Range do

  it "generates random numbers" do
    r = 1..10
    50.times { r.includes?(r.rand).should == true }
  end

  it "does | and &" do
    a = 1..10
    b = 5...21
    (a & b).should == (5..10)
    (a | b).should == (1..20)

    c = 1..2
    d = 5..6

    (c | d).should == (c.first..d.last)
    a.merge(b).should == [a.first..b.last-1]
    c.merge(d).should == [c, d]
  end

  it "overlaps?" do
    (1..10).overlaps?(20..30).should == false
    (1..10).overlaps?(10..30).should == true
    (10..30).overlaps?(1..10).should == true
    (10..30).overlaps?(1..15).should == true
  end

  it "optimizes" do
    ranges = [ 1..5, 2..6, 7..10, 7..20, 25...50, 50..55 ].shuffle
    Range.optimize(ranges).should == [ 1..6, 7..20, 25...50, 50..55 ]
  end

end


describe ObjectSpace do

  it "is Enumerable" do
    ObjectSpace.select { |o| o.is_a? ObjectSpace }.map { |o| o.class.name }.uniq.should == ["Module"]
  end

end


describe Matrix do

  it "draws a matrix" do
    Matrix.identity(3).draw
    Matrix.random(3).draw
    (Matrix.identity(3) + 102321 ).draw
  end

  it "makes random matrices" do
    m = Matrix.random(4)
    m.size.should == [4,4]

    m = Matrix.random(3,2)
    m.size.should == [3,2]
  end

  it "does scalar things" do
    m = Matrix[[1,2,3]]
    (m + 1).to_a.should == [[2,3,4]]
    (m - 1).to_a.should == [[0,1,2]]
    (m * 2).to_a.should == [[2,4,6]]
    (m / 2.0).to_a.should == [[0.5,1,1.5]]
  end

  it "lets you set things" do
    m = Matrix.zeros(1,3)
    m.to_a.should == [[0,0,0]]
    m[0,0].should == 0
    m[0,2] = 5
    m.to_a.should == [[0,0,5]]
  end

  it "'each_row's" do
    m = Matrix.zeros(2,2)
    m.each_row do |row|
      row.size.should == 2
      row.to_a.should == [0,0]
    end

    Enumerator.should === m.each_row
  end

  it "'ones'es" do
    Matrix.ones(2).to_a == [1,1]
    Matrix.ones(2,2).to_a.should == [[1,1],[1,1]]
    proc { Matrix.ones(1,1,1) }.should raise_error(ArgumentError)
  end

  it "blits" do
    m = Matrix.zeros(5,5)
    s = Matrix.ones(2,2)
    m.blit!(s, 2, 1)
    m.to_a.should == [
      [0,0,0,0,0],
      [0,0,0,0,0],
      [0,1,1,0,0],
      [0,1,1,0,0],
      [0,0,0,0,0],
    ]
  end

end


describe "truthiness" do

  it "is truthy!" do
    {
      # truthy things
      true => [
        "yes", "on", "1", "Enabled",
        1, 1.7,
        :blah, true,
        [1,2,3], [1,2,3].to_enum,
        1938389127239847129803741980237498012374,
      ],

      # untruthy things
      false => [
        "", " ", "\t\n ", "asdf", 0, 0.0, false, nil, [], [].to_enum,
      ]
    }.each do |truthiness, objs|
      objs.each { |obj| obj.truthy?.should == truthiness }
    end
  end

end


describe "proper grammar" do

  it "responds_to?" do
    proc{}.responds_to?(:call).should == true
  end

  it "includes?" do
    [1,2,3,4,5].includes?(5).should == true
  end

  it "is_an?" do
    Object.new.is_an?(Object).should == true
  end

end


describe "metaclass" do

  it "metaclass" do
    o = Object.new
    o_metaclass = class << o; self; end
    o.metaclass.should == o_metaclass
  end

end


describe "global methods" do

  it "locals's" do
    require 'binding_of_caller'

    a = 5
    b = 10
    _what_ = :splunge

    locals.should == {:a=>5, :b=>10}
  end

end


describe "to_jsons and to_yamls" do
  data = {"a"=>"b", "yes"=>true, "hello"=>[1,2,3,4,5]}
  data.to_json.from_json.should == data

  data = {:a=>"b", 1=>true, "hello"=>[1,2,3,4,5]}
  data.to_yaml.from_yaml.should == data
end


describe "to_hms and from_hms" do
  60.to_hms.should == "01:00"
  60.to_hms.from_hms.should == 60

  60.1.to_hms.should == "01:00.1"
  60.1.to_hms.from_hms.should == 60.1

  60.15.to_hms.should == "01:00.15"
  60.2892.to_hms.should == "01:00.29"

  "1:20:33".from_hms.to_hms.should == "01:20:33"
  "5:01:20:33".from_hms.to_hms.should == "05:01:20:33"
end


describe File do

  it "seeks_to" do
    tmp = Path.tmp
    tmp << "012345hello7890"
    f = open(tmp)

    f.seek_to("hell", 4)

    f.pos.should == 6
    f.read(4).should == "hell"

    f.seek(-1, IO::SEEK_END)

    f.seek_backwards_to("hell", 5)

    f.pos.should == 10
    f.read(4).should == "o789"
  end

  it "reverse_eaches" do
    tmp = Path.tmp
    tmp << "hi\nthere\neveryone!\n"
    f = open(tmp)
    f.reverse_each.to_a.should == ["everyone!\n", "there\n", "hi\n"]

    [1,2,3].to_enum(:each).reverse_each { |x| x.class.should == Integer }
  end

end


describe "Anything" do

  it "is present" do
    {
      true  => ["hello", 1, 2, 3, []],
      false => [nil, "", false]
    }.each do |truth, vals|
      vals.each { |val| val.present?.should == truth }
    end
  end

end


describe URI do

  it "paramses" do
    opts = {"q" => "hello", "p" => "whee"}
    query = opts.to_query
    query.should == "q=hello&p=whee"

    uri = URI("http://blah.com/stuff?#{query}")

    uri.params.should == opts
  end

  it "gets" do
    response = URI("http://google.com/").get
    response.body.size
    (response.size > 0).should == true
  end

end