X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/a1858883733a454b6ffb73aa263ef5badc2a1d07..19e44013088ff80c11e1d7c045331b96f4dc41f0:/testreadtxt2.dpr

diff --git a/testreadtxt2.dpr b/testreadtxt2.dpr
index a378293..2feeff9 100644
--- a/testreadtxt2.dpr
+++ b/testreadtxt2.dpr
@@ -1,3 +1,5 @@
+{$apptype console}
+
 { Copyright (C) 2009 Bas Steendijk and Peter Green
   For conditions of distribution and use, see copyright notice in zlib_license.txt
   which is included in the package
@@ -21,15 +23,45 @@ begin
   writestring(f,'DOS'#13#10);
   writestring(f,'UNIX'#10);
   writestring(f,'MAC'#13);
+  writestring(f,'UNIX'#10);
   writestring(f,'NONE');
   closefile(f);
+  
+  writeln('reading test file in default mode (all line endings treated as line endings)');
   t := treadtxt.createf('mixed.txt');
   if t.readline = 'DOS' then writeln('DOS success') else writeln('DOS fail');
   if t.readline = 'UNIX' then writeln('UNIX success') else writeln('UNIX fail');
   if t.readline = 'MAC' then writeln('MAC success') else writeln('MAC fail');
+  if t.readline = 'UNIX' then writeln('UNIX success') else writeln('UNIX fail');
+  if t.readline = 'NONE' then writeln('NONE success') else writeln('NONE fail');
+  t.destroy;
+  
+  writeln('reading test file with only CR treated as a line ending');
+  t := treadtxt.createf('mixed.txt');
+  t.allowedeol := eoltype_cr;
+  if t.readline = 'DOS' then writeln('DOS success') else writeln('DOS fail');
+  if t.readline = #10'UNIX'#10'MAC' then writeln('LF+UNIX+LF+MAC success') else writeln('LF+UNIX+LF+MAC fail');
+  if t.readline = 'UNIX'#10'NONE' then writeln('UNIX+LF+NONE success') else writeln('UNIX+LF+NONE fail');
+  t.destroy;
+
+  writeln('reading test file with only LF treated as a line ending');
+  t := treadtxt.createf('mixed.txt');
+  t.allowedeol := eoltype_lf;
+  if t.readline = 'DOS'#13 then writeln('DOS+CR success') else writeln('DOS+CR fail');
+  if t.readline = 'UNIX' then writeln('UNIX success') else writeln('UNIX fail');
+  if t.readline = 'MAC'#13'UNIX' then writeln('MAC+CR+UNIX success') else writeln('MAC+CR+UNIX fail');
   if t.readline = 'NONE' then writeln('NONE success') else writeln('NONE fail');
   t.destroy;
-  {$ifdef win32}
+
+  writeln('reading test file with only CRLF treated as a line ending');
+  t := treadtxt.createf('mixed.txt');
+  t.allowedeol := eoltype_crlf;
+  if t.readline = 'DOS' then writeln('DOS success') else writeln('DOS fail');
+  if t.readline = 'UNIX'#10'MAC'#13'UNIX'#10'NONE' then writeln('UNIX+LF+MAC+CR+UNIX+LF+NONE success') else writeln('UNIX+LF+MAC+CR+UNIX+LF+NONE fail');
+  t.destroy;
+
+  
+  {$ifdef mswindows}
     //make things a little easier to test in the delphi GUI
     readln;
   {$endif}