From 85762b55bf85437e981ebbf162e9af2255236330 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 19 Jun 2008 21:16:13 +0200 Subject: Make the list reader work for simple lists. --- MLKLowLevelTests.m | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'MLKLowLevelTests.m') 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; } -- cgit v1.2.3