From 8f85e0138a09ba933351bfb522503dba4a157dcc Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Wed, 26 May 1999 04:10:44 +0000
Subject: [PATCH] May 25, 1999 Ron Pinkas added \tests\working\strdelim.prg to
 test all valid string delimiters.

---
 harbour/tests/working/strdelim.prg | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 harbour/tests/working/strdelim.prg

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
+
+