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));
}
