diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-19 20:33:07 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-19 20:33:07 +0200 |
commit | 66ed696a14623f3062f28ede477ec73049e69321 (patch) | |
tree | ee2ad382f0c1b12fb01f0af8c0b35c6a1d17b52f /MLKLowLevelTests.m | |
parent | d1503a4c0651018d6484a9780722a1969a6f5634 (diff) |
Fix escaped symbol reading.
Diffstat (limited to 'MLKLowLevelTests.m')
-rw-r--r-- | MLKLowLevelTests.m | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m index 7d78377..4eef0c9 100644 --- a/MLKLowLevelTests.m +++ b/MLKLowLevelTests.m @@ -122,8 +122,16 @@ UKObjectKindOf ([MLKReader readFromString:@"a"], MLKSymbol); UKObjectKindOf ([MLKReader readFromString:@"MULK"], MLKSymbol); UKObjectKindOf ([MLKReader readFromString:@"+"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"1-"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"1+"], MLKSymbol); UKObjectKindOf ([MLKReader readFromString:@"0AA0A"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"0AA0A"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"0\\aA0A"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"\\0"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"|abc def (mulk!)|"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"0\\.3"], MLKSymbol); + UKObjectKindOf ([MLKReader readFromString:@"134651234"], MLKInteger); UKObjectKindOf ([MLKReader readFromString:@"223555."], MLKInteger); UKObjectKindOf ([MLKReader readFromString:@"-134651234"], MLKInteger); @@ -153,6 +161,16 @@ UKObjectKindOf ([MLKReader readFromString:@"-.5678e3"], MLKSingleFloat); UKObjectKindOf ([MLKReader readFromString:@"+.5678e3"], MLKSingleFloat); + UKStringsEqual ([[MLKReader readFromString:@"a"] name], @"A"); + UKStringsEqual ([[MLKReader readFromString:@"1+"] name], @"1+"); + UKStringsEqual ([[MLKReader readFromString:@"mulkmulk"] name], @"MULKMULK"); + UKStringsEqual ([[MLKReader readFromString:@"ABCDefghIJKL"] name], @"ABCDEFGHIJKL"); + UKStringsEqual ([[MLKReader readFromString:@"class-name"] name], @"CLASS-NAME"); + UKStringsEqual ([[MLKReader readFromString:@"\\class-\\name"] name], @"cLASS-nAME"); + UKStringsEqual ([[MLKReader readFromString:@"|Class Name|"] name], @"Class Name"); + UKStringsEqual ([[MLKReader readFromString:@"class\\ name"] name], @"CLASS NAME"); + UKStringsEqual ([[MLKReader readFromString:@"\\100"] name], @"100"); + return nil; } |