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