From c9863cb2e69fb9c2579507db41b0de7f0a7d3bbe Mon Sep 17 00:00:00 2001
From: vvzh <vvzh@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 9 May 2011 21:22:59 +0000
Subject: [PATCH] csvdocument: changed testsuite commandline syntax

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1624 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/csvdocument/testsuite/testcsvdoc.lpr | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/components/csvdocument/testsuite/testcsvdoc.lpr b/components/csvdocument/testsuite/testcsvdoc.lpr
index 411d3a45f..e624f9258 100644
--- a/components/csvdocument/testsuite/testcsvdoc.lpr
+++ b/components/csvdocument/testsuite/testcsvdoc.lpr
@@ -141,14 +141,26 @@ begin
   WriteLn('Built in ', BuildTime, ' ms');
 end;
 
+procedure SetupUnofficialCsvHandler(AHandler: TCSVHandler);
+begin
+  AHandler.Delimiter := ',';
+  AHandler.QuoteChar := '"';
+  AHandler.LineEnding := #13#10;
+  AHandler.IgnoreOuterWhitespace := True;
+  AHandler.QuoteOuterWhitespace := True;
+  AHandler.EqualColCountPerRow := False;
+end;
+
 var
   CsvDoc: TCSVDocument;
+  Param1: String;
 begin
+  Param1 := ParamStr(1);
   WriteLn('Testing CSVDocument');
   WriteLn('-------------------');
   CsvDoc := TCSVDocument.Create;
 
-  if ParamStr(1) = 'p' then
+  if Pos(Param1, 'performance') = 1 then
   begin
     CsvDoc.Delimiter := ';';
     CsvDoc.QuoteChar := '"';
@@ -163,12 +175,15 @@ begin
     ExecTests(CsvDoc, 'rfc4180');
 
     // setup for unofficial Creativyst spec
+    SetupUnofficialCsvHandler(CsvDoc);
     ExecTests(CsvDoc, 'unofficial');
 
     // setup for MS Excel files
+    // (todo)
     ExecTests(CsvDoc, 'msexcel');
 
     // setup for OOo Calc files
+    // (todo)
     ExecTests(CsvDoc, 'oocalc');
   end;