mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 21:57:38 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
70 lines
2.5 KiB
JavaScript
70 lines
2.5 KiB
JavaScript
common = require('./common.js');
|
|
types = require('../types');
|
|
reader = require('../reader');
|
|
core = require('../core');
|
|
var assert_eq = common.assert_eq,
|
|
read_str = reader.read_str,
|
|
nth = core.ns.nth;
|
|
|
|
console.log("Testing read of constants/strings");
|
|
assert_eq(2,read_str('2'));
|
|
assert_eq(12345,read_str('12345'));
|
|
assert_eq(12345,read_str('12345 "abc"'));
|
|
assert_eq('abc',read_str('"abc"'));
|
|
assert_eq('a string (with parens)',read_str('"a string (with parens)"'));
|
|
|
|
console.log("Testing read of symbols");
|
|
assert(types._symbol_Q(read_str('abc')));
|
|
assert_eq('abc',read_str('abc').value);
|
|
assert_eq('.',read_str('.').value);
|
|
|
|
console.log("Testing READ_STR of strings");
|
|
assert_eq('a string',read_str('"a string"'));
|
|
assert_eq('a string (with parens)',read_str('"a string (with parens)"'));
|
|
assert_eq('a string',read_str('"a string"()'));
|
|
assert_eq('a string',read_str('"a string"123'));
|
|
assert_eq('a string',read_str('"a string"abc'));
|
|
assert_eq('',read_str('""'));
|
|
assert_eq('abc ',read_str('"abc "'));
|
|
assert_eq(' abc',read_str('" abc"'));
|
|
assert_eq('$abc',read_str('"$abc"'));
|
|
assert_eq('abc$()',read_str('"abc$()"'));
|
|
assert_eq('"xyz"',read_str('"\\"xyz\\""'));
|
|
|
|
|
|
console.log("Testing READ_STR of lists");
|
|
assert_eq(2,core.ns.count(read_str('(2 3)')));
|
|
assert_eq(2,core.ns.first(read_str('(2 3)')));
|
|
assert_eq(3,core.ns.first(core.ns.rest(read_str('(2 3)'))));
|
|
L = read_str('(+ 1 2 "str1" "string (with parens) and \'single quotes\'")');
|
|
assert_eq(5,core.ns.count(L));
|
|
assert_eq('str1',nth(L,3));
|
|
assert_eq('string (with parens) and \'single quotes\'',nth(L,4));
|
|
assert_eq([2,3],read_str('(2 3)'));
|
|
assert_eq([2,3, 'string (with parens)'],read_str('(2 3 "string (with parens)")'));
|
|
|
|
|
|
console.log("Testing READ_STR of quote/quasiquote");
|
|
assert_eq('quote',nth(read_str('\'1'),0).value);
|
|
assert_eq(1,nth(read_str('\'1'),1));
|
|
assert_eq('quote',nth(read_str('\'(1 2 3)'),0).value);
|
|
assert_eq(3,nth(nth(read_str('\'(1 2 3)'),1),2));
|
|
|
|
assert_eq('quasiquote',nth(read_str('`1'),0).value);
|
|
assert_eq(1,nth(read_str('`1'),1));
|
|
assert_eq('quasiquote',nth(read_str('`(1 2 3)'),0).value);
|
|
assert_eq(3,nth(nth(read_str('`(1 2 3)'),1),2));
|
|
|
|
assert_eq('unquote',nth(read_str('~1'),0).value);
|
|
assert_eq(1,nth(read_str('~1'),1));
|
|
assert_eq('unquote',nth(read_str('~(1 2 3)'),0).value);
|
|
assert_eq(3,nth(nth(read_str('~(1 2 3)'),1),2));
|
|
|
|
assert_eq('splice-unquote',nth(read_str('~@1'),0).value);
|
|
assert_eq(1,nth(read_str('~@1'),1));
|
|
assert_eq('splice-unquote',nth(read_str('~@(1 2 3)'),0).value);
|
|
assert_eq(3,nth(nth(read_str('~@(1 2 3)'),1),2));
|
|
|
|
|
|
console.log("All tests completed");
|