diff --git a/harbour/tests/working/strdelim.prg b/harbour/tests/working/strdelim.prg
new file mode 100644
index 0000000000..3d42a5cd09
--- /dev/null
+++ b/harbour/tests/working/strdelim.prg
@@ -0,0 +1,17 @@
+procedure main()
+
+   local aArray := {{NIL}}
+
+   aArray  [ 1 /*first*/ ][ 1 /* second */ ] := [Hello]
+
+   QOut( aArray[1][1] )
+
+   QOut( 'World "Peace[!]"' )
+
+   QOut( "Harbour 'Power[!]'" )
+
+   QOut( [King 'Clipper "!"'] )
+
+return
+
+