Many more tests

Author: jlumpe

tests/test_ast.py

@@ -7,7 +7,7 @@
 T = el.Symbol('t')
 NIL = el.Symbol('nil')
 
-SYMBOLS = [T, NIL] + list(map(el.Symbol, ['foo', ':foo', 'bar']))
+SYMBOLS = [T, NIL] + list(map(el.Symbol, ['foo', ':foo', '+']))
 LITERALS = list(map(el.Literal, [0, 1, -1, 0.0, 1.0, "foo", "bar", ""]))
 CONS = [el.Cons(el.Literal(0), el.Literal(1)), el.Cons(el.Symbol('foo'), el.Literal('bar'))]
 LISTS = list(map(el.List, [
@@ -16,6 +16,7 @@
 	[el.Literal(s) for s in ['foo', 'bar', 'baz']],
 ]))
 QUOTES = [el.Quote(n) for l in [SYMBOLS, LITERALS, CONS, LISTS] for n in l[:2]]
+RAW = [el.Raw('(+ 1 2)'), el.Raw('(message "hello")')]
 
 NODES = SYMBOLS + LITERALS + CONS + LISTS
 
@@ -66,14 +67,76 @@ def test_convert():
 
 	# Tuples to lists
 	tup = ((3.14, "bar", NIL, (1, 2)))
-	assert el.to_elisp(tup) == el.make_list(tup)
+	assert el.to_elisp(tup) == el.List(list(map(el.to_elisp, tup)))
+
+	# Lists become quoted
+	assert el.to_elisp(list(tup)) == el.Quote(el.to_elisp(tup))
+
+	# Mapping objects converted as alists
+	d = {'a': 1, 'b': 'foo', 'c': True}
+	assert el.to_elisp(d) == el.make_alist(d)
 
 	# Should leave existing nodes unchanged
 	for n in NODES:
 		assert el.to_elisp(n) == n
 
 
-def test_make_list():
-	assert el.make_list((3.14, "bar", NIL, (1, 2))) == \
-	       el.List([el.Literal(3.14), el.Literal("bar"), NIL,
-	                el.List([el.Literal(1), el.Literal(2)])])
+def test_symbol_call():
+	"""Test that calling a symbol creates a function call."""
+	assert el.Symbol('+')(1, 2) == el.List([el.Symbol('+'), 1, 2])
+
+
+def test_str():
+	"""Test conversion to str."""
+	assert list(map(str, SYMBOLS)) == ['t', 'nil', 'foo', ':foo', '+']
+
+	assert list(map(str, LITERALS)) == ['0', '1', '-1', '0.0', '1.0', '"foo"', '"bar"', '""']
+
+	assert str(el.List([1, el.Symbol('a'), "b"])) == '(1 a "b")'
+
+	assert str(el.Cons(el.Symbol('a'), 1)) == '(cons a 1)'
+
+	assert str(el.Quote(el.Symbol('foo'))) == '\'foo'
+	assert str(el.Quote(el.List([1, el.Symbol('a'), "b"]))) == '\'(1 a "b")'
+	assert str(el.Quote(el.Cons(el.Symbol('a'), 1))) == '\'(a . 1)'
+
+	assert str(el.Raw('(+ 1 2)')) == '(+ 1 2)'
+
+
+def test_quote():
+	"""Test quote() function."""
+	sym = el.Symbol('a')
+	assert el.quote(sym) == el.Quote(sym)
+	assert el.quote('a') == el.Quote(sym)
+
+	l = el.List([1, 2, 3])
+	assert el.quote(l) == el.Quote(l)
+
+
+def test_symbols():
+	"""Test the symbols() function."""
+	syms = el.symbols('a', 'b', 'c')
+	assert syms == el.List(list(map(el.Symbol, 'abc')))
+	assert el.symbols('a', 'b', 'c', quote=True) == el.Quote(syms)
+
+
+def test_make_alist():
+	"""Test the make_alist() function."""
+	d = {'a': 1, 'b': ('foo', el.Symbol('bar')), 42: True}
+	assert el.make_alist(d) == el.List([
+		el.Cons(el.Symbol('a'), el.Literal(1)),
+		el.Cons(el.Symbol('b'), el.to_elisp(d['b'])),
+		el.Cons(el.Literal(42), el.Symbol('t')),
+	])
+	assert el.make_alist(d, quote=True) == el.Quote(el.make_alist(d))
+
+
+def test_make_plist():
+	"""Test the make_plist() function."""
+	d = {'a': "foo", 'b': (1, 2, 3), 'c': True}
+	assert el.make_plist(d) == el.List([
+		el.Symbol('a'), el.Literal("foo"),
+		el.Symbol('b'), el.to_elisp(d['b']),
+		el.Symbol('c'), el.Symbol('t'),
+	])
+	assert el.make_plist(d, quote=True) == el.Quote(el.make_plist(d))