diff options
Diffstat (limited to 'MLKLowLevelTests.m')
-rw-r--r-- | MLKLowLevelTests.m | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m index d4c478d..3214f7c 100644 --- a/MLKLowLevelTests.m +++ b/MLKLowLevelTests.m @@ -23,6 +23,8 @@ #include "MLKDynamicContext.h" #include "MLKEnvironment.h" #include "MLKLinkedList.h" +#include "MLKPackage.h" +#include "MLKReadtable.h" #include "MLKSymbol.h" @interface MLKLowLevelTests : NSObject <UKTest> @@ -80,6 +82,24 @@ } +-(id) testInitialReadtable +{ + MLKDynamicContext *ctx = [MLKDynamicContext currentContext]; + MLKReadtable *readtable = [ctx valueForBinding: + [[MLKPackage findPackage:@"COMMON-LISP"] + intern:@"*READTABLE*"]]; + UKTrue ([readtable characterHasCase:'a']); + UKTrue ([readtable characterHasCase:'x']); + UKTrue ([readtable characterHasCase:'F']); + UKTrue ([readtable characterHasCase:228]); // ä + UKTrue ([readtable characterHasCase:196]); // Ä + UKFalse ([readtable characterHasCase:'=']); + UKFalse ([readtable characterHasCase:'.']); + UKFalse ([readtable characterHasCase:223]); // ß + + return nil; +} + -(id) testStuff { // UKPass(); UKFail(); |