paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 22:30:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed off-by-one error in the optimised rawbytestring/unicodestring

Browse Source 
dodirseparators() routines + added test (only testable under Windows)

git-svn-id: branches/cpstrrtl@25089 -
This commit is contained in:
Jonas Maebe 2013-07-12 17:18:16 +00:00
parent ba49e4a29d
commit 0ef0206417
2 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/system.inc
View File

@ -1451,7 +1451,7 @@ begin
p:=pchar(ps);
unique:=true;
end;
p[i]:=DirectorySeparator;
p[i-1]:=DirectorySeparator;
end;
end;
@ -1471,7 +1471,7 @@ begin
p:=pwidechar(ps);
unique:=true;
end;
p[i]:=DirectorySeparator;
p[i-1]:=DirectorySeparator;
end;
end;

31
tests/test/units/system/tdir.pp
View File

@ -46,7 +46,36 @@ Begin
test(IOResult, 0);
WriteLn('Passed!');
Write('removing directory ...');
Write('making subdirectory /testdir3...');
mkdir('testdir2/testdir3');
test(IOResult, 0);
WriteLn('Passed!');
{$ifdef mswindows}
Write('making subdirectory \testdir4...');
mkdir('testdir2\testdir4');
test(IOResult, 0);
WriteLn('Passed!');
Write('removing directory /testdir3 ...');
rmdir('testdir2\testdir3');
test(IOResult, 0);
WriteLn('Passed!');
Write('removing directory \testdir4 ...');
rmdir('testdir2/testdir4');
test(IOResult, 0);
WriteLn('Passed!');
{$else}
{ Unix platforms do not translate \ into / in the system unit *dir functions,
regardless of the allowdirectoryseparators setting -> no \ testing }
Write('removing directory /testdir3 ...');
rmdir('testdir2/testdir3');
test(IOResult, 0);
WriteLn('Passed!');
{$endif}
Write('removing directory 3 ...');
rmdir('testdir2');
test(IOResult, 0);
WriteLn('Passed!');