123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179
var assert = require('assert');var fs = require('fs');var R = require('../source');var dox = require('dox');
// simple object to hold info about our examplesfunction ExampleTest(dox_info, original_source, alias_of) {  this.func_name = this.getFunctionName(dox_info.code);  this.line_number = dox_info.line;  this.original_source = original_source;  this.alias_of = alias_of;  this.testable_source = this.getTestableSource();}
ExampleTest.prototype.getFunctionName = function(code) {  var func_lines = code.split('\n').slice(0, 2);  if (func_lines.length === 0) {    return false;  }  var matches;  var func_line = (func_lines[0].indexOf('TODO') !== -1 && func_lines.length > 1) ? func_lines[1] : func_lines[0];  if ((matches = func_line.match(/^function (\w+)/)) !== null) {    return matches[1];  } else if ((matches = func_line.match(/([\w\.]+\s*=\s*)+/)) !== null) {    var names = R.reject(R.isEmpty, R.map(R.trim, matches[0].split('=')));    return names.length > 0 && (R.find(R.match(/^R\./), names) || names[0]);  } else {    return false;  }};
// make some minor adjustments to our example source so we can test outputExampleTest.prototype.getTestableSource = function() {  if (!this.original_source) {    return false;  }  // convert multiline command + output to single line for testing  var testable_source = this.original_source.replace(/^(.*?;.*)$\s*?(\/\/=>.*)$/mg, '$1 $2');
  // convert lines of the form  // var x = myFunc('something'); //=> 'output'  // to two test_lines so we can test output  testable_source = testable_source.replace(/^\s*(var (\w+).*?;).*?(\/\/=>\s*.*)$/mg, '$1\n$2; $3\n');
  // get rid of console.log so we're not printing stuff while running tests  testable_source = testable_source.replace(/console\.log\(.*\);/mg, ';');
  var test_lines = R.map(this.getTestLine.bind(this), testable_source.split('\n'));  return test_lines.join('\n');};
// check line for sample output, add to our _tests arrayExampleTest.prototype.getTestLine = function(line) {  line = line.trim();  var matches = line.match(/^(.*);\s*\/\/=>\s*(.+?)(\/\/.+$|$)/);  if (matches) {    var expression = matches[1];    var expected = matches[2];    var test_info_str = '';
    // special case for NaN (NaN === NaN => false)    if (expected === 'NaN') {      expression = 'String(' + expression + ')';      expected = 'String(NaN)';    }    test_info_str += '_tests.push({';    test_info_str += 'expression:'   + expression + ',';    test_info_str += 'expected:'     + expected + ',';    test_info_str += 'description:"(' + expression.replace(/"/g, '\\"') + ' => "+' + expression + '+")"';    test_info_str += '});';    return test_info_str;  } else {    return line;  }};
function splitAt(str, target) {  if (!R.is(String, str)) {    str = String(str);  }  var idx = str.indexOf(target);  if (idx < 0) {    return false;  }  return [str.substr(0, idx), str.substr(idx)];}
function assertPairEqual(test_info) {  var msg = test_info.description + ' === ' + test_info.expected;  return assert.deepEqual(test_info.expression, test_info.expected, msg);}
function requireFromStr(src, filename) {  var m = new module.constructor();  m.paths = module.paths;  m._compile(src, filename);  return m.exports;}
function processExample(e, idx, all_examples) {  // dox ends up with a few local functions and extra  // functions from comments we don't need to worry about  if (e.func_name === false) {    return;  }  if (e.testable_source) {    // we have testable source, run example    var run_func_name = 'runExample_' + e.func_name.replace(/\W/g, '_') + '_' + e.line_number;    runExample[run_func_name] = function(etmp) { runExample(etmp); };    runExample[run_func_name](e);  } else {    // see if e is alias for function with example    checkForAliasExample(e, all_examples);  }}
function runExample(e) {  var Rtest = requireFromStr(ramda_wrap(example_wrap(e.testable_source)), 'example_tester');  var test_data = Rtest.example_test();  it('compile and test ' + e.func_name + ' examples (' + test_data.length + ')', function() {    R.map(assertPairEqual, test_data);  });}
function checkForAliasExample(e) {  it(e.func_name + ' has example or is an alias for function that has example', function() {  });}
// wrap a stringvar wrap = R.curry(function(pre, post, s) {  return pre + s + post;});
// get the tags we need as a mapfunction tagListToMap(targets, list) {  var map = {};  R.forEach(function(x) {    var val_key = targets[x.type];    map[x.type] = x[val_key];  }, list);  return map;}
var propIn = R.curry(function(prop_name, prop_vals, object) {  return R.any(R.identity, R.ap(R.map(R.propEq(prop_name), prop_vals), [object]));});
// create our example objects from doxfunction getExampleFromDox(dox_info) {  var tags = R.filter(propIn('type', ['example', 'see', 'namespace']), dox_info.tags);  var tag_map = tagListToMap({example: 'string', namespace: 'string', see: 'local'}, tags);  if (tag_map.namespace) {    // ignore namespaces    return false;  } else {    return new ExampleTest(dox_info, tag_map.example, tag_map.see);  }}
// get ramda sourcevar ramda_source = String(fs.readFileSync('./dist/ramda.js'));
// build doxvar ramda_dox = dox.parseComments(ramda_source);
// get our examplesvar examples = R.filter(R.complement(R.eq(false)), R.mapIndexed(getExampleFromDox, ramda_dox));
// prepare our source code to inject examplesvar source_for_compliation = splitAt(ramda_source, '/* TEST_ENTRY_POINT */');var ramda_wrap = wrap(source_for_compliation[0], source_for_compliation[1]);var example_wrap = wrap('R.example_test = function(){\nvar _tests = [];\n', '\nreturn _tests;\n};\n');
// process examplesdescribe('example tests', function() {  R.forEachIndexed(processExample, examples);});