May 25, 1999 Ron Pinkas added \tests\working\strdelim.prg to test all valid string delimiters.

1999-05-26 04:10:44 +00:00
parent 27c15198dd
commit 8f85e0138a
1 changed files with 17 additions and 0 deletions
--- a/harbour/tests/working/strdelim.prg
+++ 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
+
+