MLKLowLevelTests: Add -testInitialReadtable.

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();