diff options
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; } |