ramda-ruby 0.1.0.alpha → 0.1.0

data/spec/ramda/logic_spec.rb

@@ -0,0 +1,74 @@
+require 'spec_helper'
+
+describe Ramda::Logic do
+  let(:r) { described_class }
+
+  it '#all_pass' do
+    is_queen = R.prop_eq(:rank, 'Queen')
+    is_spade = R.prop_eq(:suit, 'Spade')
+
+    is_queen_of_spades = r.all_pass([is_queen, is_spade])
+
+    expect(is_queen_of_spades.call(rank: 'King', suit: 'Spade')).to be_falsey
+    expect(is_queen_of_spades.call(rank: 'Queen', suit: 'Spade')).to be_truthy
+  end
+
+  it '#and' do
+    expect(r.and(true, true)).to be_truthy
+    expect(r.and(true, false)).to be_falsey
+    expect(r.and(false, true)).to be_falsey
+    expect(r.and(false, false)).to be_falsey
+  end
+
+  it '#any_pass' do
+    is_club = R.prop_eq(:suit, 'club')
+    is_spade = R.prop_eq(:suit, 'spade')
+    is_black_card = r.any_pass([is_club, is_spade])
+
+    expect(is_black_card.call(rank: '10', suit: 'club')).to be_truthy
+    expect(is_black_card.call(rank: 'Q', suit: 'spade')).to be_truthy
+    expect(is_black_card.call(rank: 'Q', suit: 'diamond')).to be_falsey
+  end
+
+  context '#if_else' do
+    it 'from docs' do
+      inc_count = R.if_else(
+        Ramda.prop(:count),
+        Ramda.prop(:count),
+        Ramda.identity
+      )
+      expect(inc_count.call({})).to eq({})
+      expect(inc_count.call(count: 1)).to eq(1)
+    end
+  end
+
+  context '#is_empty' do
+    it 'from docs' do
+      expect(r.is_empty([1, 2, 3])).to be_falsey
+      expect(r.is_empty([])).to be_truthy
+      expect(r.is_empty('')).to be_truthy
+      expect(r.is_empty(nil)).to be_falsey
+      expect(r.is_empty({})).to be_truthy
+      expect(r.is_empty(0)).to be_falsey
+      expect(r.is_empty(length: 0)).to be_falsey
+    end
+  end
+
+  context '#not' do
+    it 'from docs' do
+      expect(r.not(true)).to be_falsey
+      expect(r.not(false)).to be_truthy
+      expect(r.not(0)).to be_falsey
+      expect(r.not(1)).to be_falsey
+    end
+  end
+
+  context '#or' do
+    it 'from docs' do
+      expect(r.or(true, true)).to be_truthy
+      expect(r.or(true, false)).to be_truthy
+      expect(r.or(false, true)).to be_truthy
+      expect(r.or(false, false)).to be_falsey
+    end
+  end
+end

data/spec/ramda/math_spec.rb

@@ -0,0 +1,75 @@
+require 'spec_helper'
+
+describe Ramda::Math do
+  let(:r) { described_class }
+
+  context '#add' do
+    it 'from docs' do
+      expect(r.add(2, 3)).to be(5)
+    end
+
+    it 'is curried' do
+      expect(r.add(2).call(3)).to be(5)
+    end
+  end
+
+  context '#dec' do
+    it 'from docs' do
+      expect(r.dec(42)).to eq(41)
+    end
+  end
+
+  context '#divide' do
+    it 'from docs' do
+      expect(r.divide(71, 100)).to eq(0.71)
+    end
+
+    it 'is curried' do
+      expect(r.divide(1).call(4)).to eq(0.25)
+    end
+  end
+
+  context '#inc' do
+    it 'from docs' do
+      expect(r.inc(42)).to eq(43)
+    end
+  end
+
+  context '#multipy' do
+    it 'from docs' do
+      triple = r.multiply(3)
+
+      expect(triple.call(4)).to be(12)
+      expect(r.multiply(2, 5)).to be(10)
+    end
+
+    it '#curried' do
+      expect(r.multiply(2).call(5)).to eq(10)
+    end
+  end
+
+  context '#product' do
+    it 'from docs' do
+      expect(r.product([2, 4, 6, 8, 100, 1])).to be(38_400)
+    end
+  end
+
+  context '#subsctrcat' do
+    it 'from docs' do
+      expect(r.subtract(10, 8)).to be(2)
+
+      minus5 = r.subtract(17)
+      expect(minus5.call(5)).to be(12)
+
+      complementary_angel = r.subtract(90)
+      expect(complementary_angel.call(30)).to be(60)
+      expect(complementary_angel.call(72)).to be(18)
+    end
+  end
+
+  context '#sum' do
+    it 'from docs' do
+      expect(r.sum([2, 4, 6, 8, 100, 1])).to be(121)
+    end
+  end
+end

data/spec/ramda/object_spec.rb

@@ -0,0 +1,117 @@
+require 'spec_helper'
+
+describe Ramda::Object do
+  let(:r) { described_class }
+
+  context '#assoc' do
+    it 'from docs' do
+      expect(r.assoc(:c, 3, a: 1, b: 2)).to eq(a: 1, b: 2, c: 3)
+    end
+  end
+
+  context '#clone' do
+    it 'from docs' do
+      objects = [{}, {}, {}]
+      objects_clone = r.clone(objects)
+      expect(objects).not_to be(objects_clone)
+      expect(objects[0]).not_to be(objects_clone[0])
+    end
+  end
+
+  context '#dissoc' do
+    it 'from docs' do
+      expect(r.dissoc(:b, a: 1, b: 2, c: 3)).to eq(a: 1, c: 3)
+    end
+  end
+
+  context '#eq_props' do
+    it 'from docs' do
+      o1 = { a: 1, b: 2, c: 3, d: 4 }
+      o2 = { a: 10, b: 20, c: 3, d: 40 }
+
+      expect(r.eq_props(:a, o1, o2)).to be_falsey
+      expect(r.eq_props(:c, o1, o2)).to be_truthy
+    end
+
+    it 'curried' do
+      o1 = { a: 1, b: 2, c: 3, d: 4 }
+      o2 = { a: 10, b: 20, c: 3, d: 40 }
+
+      expect(r.eq_props(:c).call(o1, o2)).to be_truthy
+    end
+  end
+
+  context '#keys' do
+    it 'from docs' do
+      expect(r.keys(a: 1, b: 2, c: 3)).to eq([:a, :b, :c])
+    end
+  end
+
+  context '#merge' do
+    it 'from docs' do
+      expect(r.merge({ name: 'fred', age: 10 }, age: 40))
+        .to eq(name: 'fred', age: 40)
+    end
+
+    it 'is curried' do
+      expect(r.merge(a: 1).call(b: 2)).to eq(a: 1, b: 2)
+      # var resetToDefault = R.merge(R.__, {x: 0});
+      # resetToDefault({x: 5, y: 2}); //=> {x: 0, y: 2}
+    end
+  end
+
+  context '#omit' do
+    it 'from docs' do
+      expect(r.omit([:a, :d], a: 1, b: 2, c: 3, d: 4)).to eq(b: 2, c: 3)
+    end
+  end
+
+  context '#pick' do
+    it 'from docs' do
+      expect(r.pick([:a, :d], a: 1, b: 2, c: 3, d: 4)).to eq(a: 1, d: 4)
+      expect(r.pick([:a, :e, :f], a: 1, b: 2, c: 3, d: 4)).to eq(a: 1)
+    end
+  end
+
+  context '#pick_all' do
+    it 'from docs' do
+      expect(r.pick_all([:a, :d], a: 1, b: 2, c: 3, d: 4)).to eq(a: 1, d: 4)
+      expect(r.pick_all([:a, :e, :f], a: 1, b: 2, c: 3, d: 4)).to eq(a: 1, e: nil, f: nil)
+    end
+  end
+
+  context '#project' do
+    it 'from docs' do
+      abby = { name: 'Abby', age: 7, hair: 'blond', grade: 2 }
+      fred = { name: 'Fred', age: 12, hair: 'brown', grade: 7 }
+      kids = [abby, fred]
+
+      expect(r.project([:name, :grade], kids))
+        .to eq([{ name: 'Abby', grade: 2 }, { name: 'Fred', grade: 7 }])
+    end
+  end
+
+  context '#prop' do
+    it 'from docs' do
+      expect(r.prop(:x, x: 100)).to be(100)
+      expect(r.prop(:x, {})).to be_nil
+    end
+  end
+
+  context '#props' do
+    it 'from docs' do
+      expect(r.props([:x, :y], x: 1, y: 2)).to eq([1, 2])
+      expect(r.props([:c, :a, :b], b: 2, a: 1)).to eq([nil, 1, 2])
+
+      full_name = R.compose(R.join(' '), r.props([:first, :last]))
+      expect(full_name.call(last: 'Bullet-Tooth', age: 33, first: 'Tony'))
+        .to eq('Tony Bullet-Tooth')
+    end
+  end
+
+  context '#values' do
+    it 'from docs' do
+      expect(r.values(a: 1, b: 2, c: 3)).to eq([1, 2, 3])
+    end
+  end
+end

data/spec/ramda/relation_spec.rb

@@ -0,0 +1,174 @@
+require 'spec_helper'
+
+describe Ramda::Relation do
+  let(:r) { described_class }
+
+  context '#equals' do
+    it 'from docs' do
+      expect(r.equals(1, 1)).to be_truthy
+      expect(r.equals(1, '1')).to be_falsey
+      expect(r.equals([1, 2, 3], [1, 2, 3])).to be_truthy
+      expect(r.equals({}, {})).to be_truthy
+    end
+
+    it 'is curried' do
+      expect(r.equals(1).call(1)).to be_truthy
+    end
+  end
+
+  context '#count_by' do
+    it 'from docs' do
+      letters = ['a', 'b', 'A', 'a', 'B', 'c']
+      expect(r.count_by(R.to_lower).call(letters)).to eq('a' => 3, 'b' => 2, 'c' => 1)
+    end
+  end
+
+  context '#difference' do
+    it 'from docs' do
+      expect(r.difference([1, 2, 3, 4], [7, 6, 5, 4, 3])).to eq([1, 2])
+      expect(r.difference([7, 6, 5, 4, 3], [1, 2, 3, 4])).to eq([7, 6, 5])
+      expect(r.difference([{ a: 1 }, { b: 2 }], [{ a: 1 }, { c: 3 }])).to eq([{ b: 2 }])
+    end
+  end
+
+  context '#difference_with' do
+    it 'from docs' do
+      cmp = ->(x, y) { x.fetch(:a) == y.fetch(:a) }
+      l1 = [{ a: 1, b: 1 }, { a: 2, b: 1 }, { a: 3, b: 1 }]
+      l2 = [{ a: 3, b: 2 }, { a: 4, b: 2 }, { a: 5, b: 2 }]
+
+      expect(r.difference_with(cmp, l1, l2)).to eq([{ a: 1, b: 1 }, { a: 2, b: 1 }])
+    end
+  end
+
+  context '#eq_by' do
+    it 'from docs' do
+      size_fn = ->(x) { x.size }
+      expect(r.eq_by(size_fn, ['abc'], [100])).to be_truthy
+      expect(r.eq_by(size_fn, [1, 2], [1])).to be_falsey
+    end
+  end
+
+  context '#gt' do
+    it 'from docs' do
+      expect(r.gt(2, 1)).to be_truthy
+      expect(r.gt(2, 2)).to be_falsey
+      expect(r.gt(2, 3)).to be_falsey
+      expect(r.gt('a', 'z')).to be_falsey
+      expect(r.gt('z', 'a')).to be_truthy
+    end
+
+    it 'is curried' do
+      expect(r.gt(2).call(1)).to be_truthy
+    end
+  end
+
+  context '#gte' do
+    it 'from docs' do
+      expect(r.gte(2, 1)).to be_truthy
+      expect(r.gte(2, 2)).to be_truthy
+      expect(r.gte(2, 3)).to be_falsey
+      expect(r.gte('a', 'z')).to be_falsey
+      expect(r.gte('z', 'a')).to be_truthy
+    end
+
+    it 'is curried' do
+      expect(r.gte(2).call(1)).to be_truthy
+    end
+  end
+
+  context '#intersection' do
+    it 'from docs' do
+      expect(r.intersection([1, 2, 3, 4], [7, 6, 5, 4, 3])).to eq([3, 4])
+    end
+
+    it 'is curried' do
+      expect(r.intersection([1, 2, 3, 4]).call([7, 6, 5, 4, 3])).to match_array([3, 4])
+    end
+  end
+
+  context '#lt' do
+    it 'from docs' do
+      expect(r.lt(2, 1)).to be_falsey
+      expect(r.lt(2, 2)).to be_falsey
+      expect(r.lt(2, 3)).to be_truthy
+      expect(r.lt('a', 'z')).to be_truthy
+      expect(r.lt('z', 'a')).to be_falsey
+    end
+
+    it 'is curried' do
+      expect(r.lt(2).call(1)).to be_falsey
+    end
+  end
+
+  context '#lte' do
+    it 'from docs' do
+      expect(r.lte(2, 1)).to be_falsey
+      expect(r.lte(2, 2)).to be_truthy
+      expect(r.lte(2, 3)).to be_truthy
+      expect(r.lte('a', 'z')).to be_truthy
+      expect(r.lte('z', 'a')).to be_falsey
+    end
+
+    it 'is curried' do
+      expect(r.lt(2).call(1)).to be_falsey
+    end
+  end
+
+  context '#max' do
+    it 'from docs' do
+      expect(r.max(789, 123)).to be(789)
+      expect(r.max('a', 'b')).to eq('b')
+    end
+  end
+
+  context '#min' do
+    it 'from docs' do
+      expect(r.min(789, 123)).to be(123)
+      expect(r.min('a', 'b')).to eq('a')
+    end
+  end
+
+  context '#prop_eq' do
+    it 'from docs' do
+      abby = { name: 'Abby', age: 7, hair: 'blond' }
+      fred = { name: 'Fred', age: 12, hair: 'brown' }
+      rusty = { name: 'Rusty', age: 10, hair: 'brown' }
+      alois = { name: 'Alois', age: 15, disposition: 'surly' }
+      kids = [abby, fred, rusty, alois]
+      has_brown_hair = r.prop_eq(:hair, 'brown')
+      expect(R.filter(has_brown_hair, kids)).to eq([fred, rusty])
+    end
+  end
+
+  context '#sort_by' do
+    it 'from docs 1' do
+      sort_by_first_item = r.sort_by(R.prop(0))
+      pairs = [[-1, 1], [-2, 2], [-3, 3]]
+      expect(sort_by_first_item.call(pairs)).to eq([[-3, 3], [-2, 2], [-1, 1]])
+    end
+
+    it 'from docs 2' do
+      alice = { name: 'ALICE', age: 101 }
+      bob = { name: 'Bob', age: -10 }
+      clara = { name: 'clara', age: 314.159 }
+      people = [clara, bob, alice]
+      sort_by_name_case_insensitive = r.sort_by(R.compose(R.to_lower, R.prop(:name)))
+      expect(sort_by_name_case_insensitive.call(people)).to eq([alice, bob, clara])
+    end
+  end
+
+  context '#union' do
+    it 'from docs' do
+      expect(r.union([1, 2, 3], [2, 3, 4])).to eq([1, 2, 3, 4])
+    end
+  end
+
+  context '#union_with' do
+    it 'from docs' do
+      l1 = [{ a: 1 }, { a: 2 }]
+      l2 = [{ a: 1 }, { a: 4 }]
+      expect(r.union_with(R.prop(:a), l1, l2)).to eq([{ a: 1 }, { a: 2 }, { a: 4 }])
+    end
+  end
+end

data/spec/ramda/string_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+
+describe Ramda::String do
+  let(:r) { described_class }
+
+  context '#match' do
+    it 'from docs' do
+      expect(r.match(/([a-z]a)/, 'bananas')).to eq('ba')
+      expect(r.match(/a/, 'b')).to eq(nil)
+      expect { r.match(/a/, nil) }.to raise_error(ArgumentError)
+    end
+  end
+
+  context '#split' do
+    it 'from docs' do
+      path_components = r.split('/')
+
+      expect(R.tail(path_components.call('/usr/local/bin/node')))
+        .to eq(['usr', 'local', 'bin', 'node'])
+
+      expect(r.split('.', 'a.b.c.xyz.d')).to eq(['a', 'b', 'c', 'xyz', 'd'])
+    end
+  end
+
+  context '#to_upper' do
+    it 'from docs' do
+      expect(r.to_upper('abc')).to eq('ABC')
+    end
+
+    it 'curried' do
+      expect(r.to_upper.call('abc')).to eq('ABC')
+    end
+  end
+
+  context '#to_lower' do
+    it 'from docs' do
+      expect(r.to_lower('XYZ')).to eq('xyz')
+    end
+
+    it 'curried' do
+      expect(r.to_lower.call('XYZ')).to eq('xyz')
+    end
+  end
+end