public void TestRevappend() { List head = AdtLisp.List(1, 2, 3); List tail = AdtLisp.List(4, 5, 6); List result = AdtLisp.Revappend(head, tail); Assert.AreEqual(3, result.First()); List tail1 = result.Rest(); Assert.AreEqual(2, tail1.First()); List tail2 = tail1.Rest(); Assert.AreEqual(1, tail2.First()); List tail3 = tail2.Rest(); Assert.AreEqual(4, tail3.First()); List tail4 = tail3.Rest(); Assert.AreEqual(5, tail4.First()); List tail5 = tail4.Rest(); Assert.AreEqual(6, tail5.First()); List tail6 = tail5.Rest(); Assert.IsTrue(tail6.EndP); }
public void TestListEnumerator() { StringBuilder sb = new StringBuilder(); foreach (object o in AdtLisp.List(1, 2, 3, 4, 5)) { sb.Append(o.ToString()); } Assert.AreEqual("12345", sb.ToString()); }
public void TestPrintLength() { int oldPrintLength = List.PrintLength; try { List.PrintLength = 3; Assert.AreEqual("(1 2 3 ...)", AdtLisp.List(1, 2, 3, 4, 5).ToString()); } finally { List.PrintLength = oldPrintLength; } }
public void TestPrintDepth() { int oldPrintDepth = List.PrintDepth; try { List.PrintDepth = 1; Assert.AreEqual("(1 2 # 4 5)", AdtLisp.List(1, 2, AdtLisp.List(3, 4), 4, 5).ToString()); } finally { List.PrintDepth = oldPrintDepth; } }
private List MakeTestList() { return(AdtLisp.List(1, 2, 3)); }