diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-22 22:12:31 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-22 22:12:31 +0200 |
commit | bbd50fa93b66cfee268c3c7f038d855b953c7eb1 (patch) | |
tree | 89a5147f2df02a4809171d72f233f533bafb7234 /MLKLowLevelTests.m | |
parent | 29b9ca1a3a9d1f6291af51ab2f6150039b2d5619 (diff) |
Improve error reporting in the reader.
Diffstat (limited to 'MLKLowLevelTests.m')
-rw-r--r-- | MLKLowLevelTests.m | 10 |
1 files changed, 9 insertions, 1 deletions
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; } |