RegressionTests__StringTests.st
changeset 2566 ca2e98a4c1ed
parent 2564 4e29ca66fa6b
child 2567 bf0f6e311a5d
--- a/RegressionTests__StringTests.st	Sun Feb 23 14:51:08 2020 +0100
+++ b/RegressionTests__StringTests.st	Sun Feb 23 15:58:35 2020 +0100
@@ -2266,6 +2266,25 @@
     ].
 !
 
+test86_misc
+    self assert:( '"hello"' withoutQuotes = 'hello' ).
+    self assert:( '''hello''' withoutQuotes = 'hello' ).
+
+    self assert:( 'hello''' withoutQuotes = 'hello''' ).
+    self assert:( '''hello' withoutQuotes = '''hello' ).
+
+    self assert:( 'hello"' withoutQuotes = 'hello"' ).
+    self assert:( '"hello' withoutQuotes = '"hello' ).
+    self assert:( 'hello' withoutQuotes = 'hello' ).
+
+    self assert:( 'he' withoutQuotes = 'he' ).
+    self assert:( 'h' withoutQuotes = 'h' ).
+    self assert:( '' withoutQuotes = '' ).
+
+    self assert:( '""' withoutQuotes = '' ).
+    self assert:( '''''' withoutQuotes = '' ).
+!
+
 test90_enumeratingLines
     
     |  |