123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151
var R = require('../source');var eq = require('./shared/eq');var jsv = require('jsverify');var funcN = require('./shared/funcN');
describe('curry', function() {  it('curries a single value', function() {    var f = R.curry(function(a, b, c, d) {return (a + b * c) / d;}); // f(12, 3, 6, 2) == 15    var g = f(12);    eq(g(3, 6, 2), 15);  });
  it('curries multiple values', function() {    var f = R.curry(function(a, b, c, d) {return (a + b * c) / d;}); // f(12, 3, 6, 2) == 15    var g = f(12, 3);    eq(g(6, 2), 15);    var h = f(12, 3, 6);    eq(h(2), 15);  });
  it('allows further currying of a curried function', function() {    var f = R.curry(function(a, b, c, d) {return (a + b * c) / d;}); // f(12, 3, 6, 2) == 15    var g = f(12);    eq(g(3, 6, 2), 15);    var h = g(3);    eq(h(6, 2), 15);    eq(g(3, 6)(2), 15);  });
  it('properly reports the length of the curried function', function() {    var f = R.curry(function(a, b, c, d) {return (a + b * c) / d;});    eq(f.length, 4);    var g = f(12);    eq(g.length, 3);    var h = g(3);    eq(h.length, 2);    eq(g(3, 6).length, 1);  });
  it('preserves context', function() {    var ctx = {x: 10};    var f = function(a, b) { return a + b * this.x; };    var g = R.curry(f);
    eq(g.call(ctx, 2, 4), 42);    eq(g.call(ctx, 2).call(ctx, 4), 42);  });
  it('supports R.__ placeholder', function() {    var f = function(a, b, c) { return [a, b, c]; };    var g = R.curry(f);    var _ = R.__;
    eq(g(1)(2)(3), [1, 2, 3]);    eq(g(1)(2, 3), [1, 2, 3]);    eq(g(1, 2)(3), [1, 2, 3]);    eq(g(1, 2, 3), [1, 2, 3]);
    eq(g(_, 2, 3)(1), [1, 2, 3]);    eq(g(1, _, 3)(2), [1, 2, 3]);    eq(g(1, 2, _)(3), [1, 2, 3]);
    eq(g(1, _, _)(2)(3), [1, 2, 3]);    eq(g(_, 2, _)(1)(3), [1, 2, 3]);    eq(g(_, _, 3)(1)(2), [1, 2, 3]);
    eq(g(1, _, _)(2, 3), [1, 2, 3]);    eq(g(_, 2, _)(1, 3), [1, 2, 3]);    eq(g(_, _, 3)(1, 2), [1, 2, 3]);
    eq(g(1, _, _)(_, 3)(2), [1, 2, 3]);    eq(g(_, 2, _)(_, 3)(1), [1, 2, 3]);    eq(g(_, _, 3)(_, 2)(1), [1, 2, 3]);
    eq(g(_, _, _)(_, _)(_)(1, 2, 3), [1, 2, 3]);    eq(g(_, _, _)(1, _, _)(_, _)(2, _)(_)(3), [1, 2, 3]);  });
  it('supports @@functional/placeholder', function() {    var f = function(a, b, c) { return [a, b, c]; };    var g = R.curry(f);    var _ = {'@@functional/placeholder': true, x: Math.random()};
    eq(g(1)(2)(3), [1, 2, 3]);    eq(g(1)(2, 3), [1, 2, 3]);    eq(g(1, 2)(3), [1, 2, 3]);    eq(g(1, 2, 3), [1, 2, 3]);
    eq(g(_, 2, 3)(1), [1, 2, 3]);    eq(g(1, _, 3)(2), [1, 2, 3]);    eq(g(1, 2, _)(3), [1, 2, 3]);
    eq(g(1, _, _)(2)(3), [1, 2, 3]);    eq(g(_, 2, _)(1)(3), [1, 2, 3]);    eq(g(_, _, 3)(1)(2), [1, 2, 3]);
    eq(g(1, _, _)(2, 3), [1, 2, 3]);    eq(g(_, 2, _)(1, 3), [1, 2, 3]);    eq(g(_, _, 3)(1, 2), [1, 2, 3]);
    eq(g(1, _, _)(_, 3)(2), [1, 2, 3]);    eq(g(_, 2, _)(_, 3)(1), [1, 2, 3]);    eq(g(_, _, 3)(_, 2)(1), [1, 2, 3]);
    eq(g(_, _, _)(_, _)(_)(1, 2, 3), [1, 2, 3]);    eq(g(_, _, _)(1, _, _)(_, _)(2, _)(_)(3), [1, 2, 3]);  });
  it('forwards extra arguments', function() {    var f = function(a, b, c) {      void c;      return Array.prototype.slice.call(arguments);    };    var g = R.curry(f);
    eq(g(1, 2, 3), [1, 2, 3]);    eq(g(1, 2, 3, 4), [1, 2, 3, 4]);    eq(g(1, 2)(3, 4), [1, 2, 3, 4]);    eq(g(1)(2, 3, 4), [1, 2, 3, 4]);    eq(g(1)(2)(3, 4), [1, 2, 3, 4]);  });
});
describe('curry properties', function() {  jsv.property('curries multiple values', funcN(4), jsv.json, jsv.json, jsv.json, jsv.json, function(f, a, b, c, d) {    var g = R.curry(f);
    return R.all(R.equals(f(a, b, c, d)), [      g(a, b, c, d),      g(a)(b)(c)(d),      g(a)(b, c, d),      g(a, b)(c, d),      g(a, b, c)(d)    ]);  });
  jsv.property('curries with placeholder', funcN(3), jsv.json, jsv.json, jsv.json, function(f, a, b, c) {    var _ = {'@@functional/placeholder': true, x: Math.random()};    var g = R.curry(f);
    return R.all(R.equals(f(a, b, c)), [      g(_, _, c)(a, b),      g(a, _, c)(b),      g(_, b, c)(a),      g(a, _, _)(_, c)(b),      g(a, b, _)(c)    ]);  });});