From 66ed696a14623f3062f28ede477ec73049e69321 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 19 Jun 2008 20:33:07 +0200 Subject: Fix escaped symbol reading. --- MLKLowLevelTests.m | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'MLKLowLevelTests.m') 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; } -- cgit v1.2.3