def cons(x, s):
from clojure.lang.cons import Cons
from clojure.lang.persistentlist import EMPTY as EMPTY_LIST
if isinstance(s, ISeq):
return Cons(x, s)
if s is None:
return EMPTY_LIST.cons(x)
return Cons(x, seq(s))
def setUp(self):
# if this raises no exceptions, the others will validate creation
self.head = "head"
self.t1 = pl.creator(uobj)
self.t2 = pl.creator(0, uobj)
self.t3 = pl.creator(0, 1, uobj)
self.c1 = Cons(self.head, None)
self.c2 = Cons(self.head, self.t1)
# e.g. ("head" 0 uobj)
self.c3 = Cons(self.head, self.t2)
self.c4 = Cons(self.head, self.t3)
# just checking printed structure
self.printS = Cons(pl.creator(1, 2), pl.creator(pl.creator(3, 4)))
def setUp(self):
# if this raises no exceptions, the others will validate creation
self.head = "head"
self.t1 = pl.creator(uobj)
self.t2 = pl.creator(0, uobj)
self.t3 = pl.creator(0, 1, uobj)
self.c1 = Cons(self.head, None)
self.c2 = Cons(self.head, self.t1)
# e.g. ("head" 0 uobj)
self.c3 = Cons(self.head, self.t2)
self.c4 = Cons(self.head, self.t3)
# just checking printed structure
self.printS = Cons(pl.creator(1, 2),
pl.creator(pl.creator(3, 4)))
def cons(self, other):
"""Return a Cons.
other -- any object
The Cons will have object as the head, and this sequence as the
tail."""
from clojure.lang.cons import Cons
return Cons(other, self)
def seq(self):
s = self.root.nodeSeq() if self.root is not None else None
return Cons(MapEntry(None, self.noneValue), s) if self.hasNull else s
class TestCons(unittest.TestCase):
def setUp(self):
# if this raises no exceptions, the others will validate creation
self.head = "head"
self.t1 = pl.creator(uobj)
self.t2 = pl.creator(0, uobj)
self.t3 = pl.creator(0, 1, uobj)
self.c1 = Cons(self.head, None)
self.c2 = Cons(self.head, self.t1)
# e.g. ("head" 0 uobj)
self.c3 = Cons(self.head, self.t2)
self.c4 = Cons(self.head, self.t3)
# just checking printed structure
self.printS = Cons(pl.creator(1, 2), pl.creator(pl.creator(3, 4)))
def test__init___FAIL(self):
self.assertRaises(ArityException, Cons)
self.assertRaises(ArityException, Cons, 1, 2, 3, 4)
# next()
def testNext_PASS(self):
c = self.c2.next()
self.assertTrue(isinstance(c, ISeq))
self.assertEqual(c.next(), None)
# first()
def testFirst_PASS(self):
self.assertEqual(self.c1.first(), "head")
# __len__
def test__len___PASS(self):
self.assertEqual(self.c1.__len__(), 1)
self.assertEqual(self.c2.__len__(), 2)
self.assertEqual(self.c3.__len__(), 3)
self.assertEqual(self.c4.__len__(), 4)
# withMeta()
def testWithMeta_PASS(self):
c2 = self.c2.withMeta(pseudoMetaData)
self.assertEqual(c2.meta(), pseudoMetaData)
# (print s)
def testWriteAsString_PASS(self):
csio = StringIO()
self.printS.writeAsString(csio)
self.assertEqual(csio.getvalue(), "((1 2) (3 4))")
# (pr s)
def testWriteAsReplString_PASS(self):
csio = StringIO()
self.printS.writeAsReplString(csio)
self.assertEqual(csio.getvalue(), "((1 2) (3 4))")
# str(s)
def test__str___PASS(self):
self.assertEqual(self.printS.__str__(), "((1, 2), (3, 4))")
# make sure the correct namespace is printed
# repr(s)
def test__repr___PASS(self):
regex = r"<clojure\.lang\.cons\.Cons" \
r" object at 0x[a-fA-F0-9]+ \(\(1 2\) \(3 4\)\)>$"
self.assertTrue(re.match(regex, self.printS.__repr__()))
class TestCons(unittest.TestCase):
def setUp(self):
# if this raises no exceptions, the others will validate creation
self.head = "head"
self.t1 = pl.creator(uobj)
self.t2 = pl.creator(0, uobj)
self.t3 = pl.creator(0, 1, uobj)
self.c1 = Cons(self.head, None)
self.c2 = Cons(self.head, self.t1)
# e.g. ("head" 0 uobj)
self.c3 = Cons(self.head, self.t2)
self.c4 = Cons(self.head, self.t3)
# just checking printed structure
self.printS = Cons(pl.creator(1, 2),
pl.creator(pl.creator(3, 4)))
def test__init___FAIL(self):
self.assertRaises(ArityException, Cons)
self.assertRaises(ArityException, Cons, 1, 2, 3, 4)
# next()
def testNext_PASS(self):
c = self.c2.next()
self.assertTrue(isinstance(c, ISeq))
self.assertEqual(c.next(), None)
# first()
def testFirst_PASS(self):
self.assertEqual(self.c1.first(), "head")
# __len__
def test__len___PASS(self):
self.assertEqual(self.c1.__len__(), 1)
self.assertEqual(self.c2.__len__(), 2)
self.assertEqual(self.c3.__len__(), 3)
self.assertEqual(self.c4.__len__(), 4)
# withMeta()
def testWithMeta_PASS(self):
c2 = self.c2.withMeta(pseudoMetaData)
self.assertEqual(c2.meta(), pseudoMetaData)
# (print s)
def testWriteAsString_PASS(self):
csio = StringIO()
self.printS.writeAsString(csio)
self.assertEqual(csio.getvalue(), "((1 2) (3 4))")
# (pr s)
def testWriteAsReplString_PASS(self):
csio = StringIO()
self.printS.writeAsReplString(csio)
self.assertEqual(csio.getvalue(), "((1 2) (3 4))")
# str(s)
def test__str___PASS(self):
self.assertEqual(self.printS.__str__(), "((1, 2), (3, 4))")
# make sure the correct namespace is printed
# repr(s)
def test__repr___PASS(self):
regex = r"<clojure\.lang\.cons\.Cons" \
r" object at 0x[a-fA-F0-9]+ \(\(1 2\) \(3 4\)\)>$"
self.assertTrue(re.match(regex, self.printS.__repr__()))
