Преглед изворни кода

* beautified output

git-svn-id: trunk@3219 -
florian пре 19 година
родитељ
комит
abfb6d0668
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      tests/test/units/dos/tdos.pp

+ 1 - 1
tests/test/units/dos/tdos.pp

@@ -104,7 +104,7 @@ begin
   AddDisk('/fd0');
   writeln('DiskSize 4 : ',DiskSize(4));
 {$ENDIF}
-  write('FindFirst/FindNext Test');
+  writeln('FindFirst/FindNext Test');
 
   FindFirst('*.*',$20,Dir);
   while (DosError=0) do