Make the list reader work for simple lists.

1 files changed, 22 insertions, 0 deletions

diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m
index 4eef0c9..ae04bf3 100644
--- a/MLKLowLevelTests.m
+++ b/MLKLowLevelTests.m
@@ -170,6 +170,28 @@
   UKStringsEqual ([[MLKReader readFromString:@"|Class Name|"] name], @"Class Name");
   UKStringsEqual ([[MLKReader readFromString:@"class\\ name"] name], @"CLASS NAME");
   UKStringsEqual ([[MLKReader readFromString:@"\\100"] name], @"100");
+  
+  UKStringsEqual ([[MLKReader readFromString:@"a b c d e"] name], @"A");
+
+  return nil;
+}
+
+
+-(id) testParenReading
+{
+  UKObjectKindOf ([MLKReader readFromString:@"(1 2)"], MLKCons);
+  UKObjectKindOf ([MLKReader readFromString:@"(1 . 2)"], MLKCons);
+  UKObjectKindOf ([MLKReader readFromString:@"(a b)"], MLKCons);
+
+  UKNil ([MLKReader readFromString:@"()"]);
+
+  UKObjectKindOf ([[MLKReader readFromString:@"(1 . 2)"] car], MLKInteger);
+  UKObjectKindOf ([[MLKReader readFromString:@"(1 . 2)"] cdr], MLKInteger);
+  
+  UKObjectKindOf ([[MLKReader readFromString:@"(a b)"] car], MLKSymbol);
+  UKObjectKindOf ([[MLKReader readFromString:@"(a b)"] cdr], MLKCons);
+  
+  UKObjectKindOf ([[MLKReader readFromString:@"((a) b)"] car], MLKCons);
 
   return nil;
 }