12345678910111213141516171819202122232425262728293031323334
var R = require('../source');var eq = require('./shared/eq');

describe('ap', function() {  function mult2(x) { return x * 2; }  function plus3(x) { return x + 3; }
  it('interprets [a] as an applicative', function() {    eq(R.ap([mult2, plus3], [1, 2, 3]), [2, 4, 6, 4, 5, 6]);  });
  it('interprets ((->) r) as an applicative', function() {    var f = function(r) {      return function(a) {        return r + a;      };    };    var g = function(r) { return r * 2; };    var h = R.ap(f, g);    // (<*>) :: (r -> a -> b) -> (r -> a) -> (r -> b)    // f <*> g = \x -> f x (g x)    eq(h(10), 10 + (10 * 2));
    eq(R.ap(R.add)(g)(10), 10 + (10 * 2));  });
  it('dispatches to the passed object\'s ap method when values is a non-Array object', function() {    var obj = {ap: function(n) { return 'called ap with ' + n; }};    eq(R.ap(obj, 10), obj.ap(10));  });
});