lloeki/wasp
1
0
Fork 0
mirror of https://github.com/lloeki/wasp.git synced 2025-12-06 10:44:39 +01:00
Code Issues Projects Releases Packages Wiki Activity

let's get more serious (splat that mess)

Browse source
This commit is contained in:
Loic Nageleisen 2013-10-03 19:22:54 +02:00
parent 91020ddfe6
commit e8a036bb16
7 changed files with 132 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

39
test.py Normal file
View file

@ -0,0 +1,39 @@
from unittest import TestCase
import wasp.parser as parser
class TestParser(TestCase):
def test_atom(self):
self.assertEqual(str(parser.parse("1")), "1")
def test_quoted_atom(self):
self.assertEqual(str(parser.parse("'1")), "'1")
def test_nonalpha_symbol(self):
self.assertEqual(str(parser.parse("+")), "+")
def test_quoted_nonalpha_symbol(self):
self.assertEqual(str(parser.parse("'+")), "'+")
def test_list(self):
self.assertEqual(str(parser.parse("(+ 1 2)")),
"(+ . (1 . (2 . NIL)))")
def test_quoted_list(self):
self.assertEqual(str(parser.parse("'(+ 1 2)")),
"'(+ . (1 . (2 . NIL)))")
def test_list_in_list(self):
self.assertEqual(str(parser.parse("(+ 1 (* 3 2))")),
"(+ . (1 . ((* . (3 . (2 . NIL))) . NIL)))")
def test_lists_in_list(self):
self.assertEqual(str(parser.parse("(+ (* 4 5) (* 3 2))")),
"(+ . ((* . (4 . (5 . NIL))) . ((* . (3 . (2 . NIL))) . NIL)))")
def test_quote_in_list(self):
self.assertEqual(str(parser.parse("(+ '1 (* 3 2))")),
"(+ . ('1 . ((* . (3 . (2 . NIL))) . NIL)))")
if __name__ == '__main__':
import unittest
unittest.main()