From bbd50fa93b66cfee268c3c7f038d855b953c7eb1 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 22 Jun 2008 22:12:31 +0200 Subject: Improve error reporting in the reader. --- MLKLowLevelTests.m | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'MLKLowLevelTests.m') diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m index 34d0296..498369c 100644 --- a/MLKLowLevelTests.m +++ b/MLKLowLevelTests.m @@ -171,9 +171,17 @@ 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"); + UKObjectKindOf ([MLKReader readFromString:@"cl::if"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"cl:if"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"cl-user::mulk"], MLKSymbol); + UKObjectsSame ([MLKReader readFromString:@"common-lisp-user::a"], + [MLKReader readFromString:@"cl-user::a"]); + UKObjectsSame ([MLKReader readFromString:@"a"], + [MLKReader readFromString:@"cl-user::a"]); + return nil; } -- cgit v1.2.3