123456789101112131415161718192021222324252627282930313233343536373839404142434445
var jsv = require('jsverify');
var R = require('../source');var eq = require('./shared/eq');

describe('o', function() {
  it('is not a variadic function', function() {    eq(typeof R.o, 'function');    eq(R.o.length, 3);  });
  it('is a curried function', function() {    eq(R.o(R.add(1), R.multiply(2), 10), R.o(R.add(1))(R.multiply(2))(10));  });
  it('performs right-to-left function composition', function() {    //  f :: Number -> ([Number] -> [Number])    var f = R.o(R.map, R.multiply);
    eq(f.length, 1);    eq(f(10)([1, 2, 3]), [10, 20, 30]);  });
  describe('o properties', function() {
    jsv.property('composes two functions', jsv.fn(), jsv.fn(), jsv.nat, function(f, g, x) {      return R.equals(R.o(f, g)(x), f(g(x)));    });
    jsv.property('associative',  jsv.fn(), jsv.fn(), jsv.fn(), jsv.nat, function(f, g, h, x) {      var result = f(g(h(x)));      var fg = R.o(f, g);      var gh = R.o(g, h);      return R.all(R.equals(result), [        R.o(f, gh, x),        R.o(fg, h, x),        R.o(f, gh)(x),        R.o(fg, h)(x)      ]);    });  });});