diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-18 01:58:34 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-18 01:58:34 +0000 |
commit | 38b5e0606069cc5985e995e1da5b6855db67f507 (patch) | |
tree | 3396f758ef2cea5a0760aa73a6578a35c4fcac87 /tests/test/units/sysutils/texpfncase.pp | |
parent | c99242579a36e85923993a66ac396d7bb3747221 (diff) | |
parent | 003a6cf3bbb6833d60fdf0df1ad4d75449951a8e (diff) | |
download | fpc-38b5e0606069cc5985e995e1da5b6855db67f507.tar.gz |
* synchronized with trunk
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/unicodekvm@49224 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/test/units/sysutils/texpfncase.pp')
-rw-r--r-- | tests/test/units/sysutils/texpfncase.pp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/test/units/sysutils/texpfncase.pp b/tests/test/units/sysutils/texpfncase.pp index a4adf805e7..1a92839c9c 100644 --- a/tests/test/units/sysutils/texpfncase.pp +++ b/tests/test/units/sysutils/texpfncase.pp @@ -116,6 +116,9 @@ begin {$IFDEF DEBUG} {$IFDEF FPC} WriteLn ('FileNameCaseSensitive = ', FileNameCaseSensitive); + WriteLn ('IsFileNameCaseSensitive('''+TempDir+''') = ', IsFileNameCaseSensitive(TempDir)); + Writeln('Setting FileNameCaseSensitive to result of IsFileNameCaseSensitive('''+TempDir+''');'); + FileNameCaseSensitive:=IsFileNameCaseSensitive(TempDir); {$ENDIF FPC} WriteLn ('TempDir = ', TempDir); WriteLn ('SetCurrentDir result = ', SetCurrentDir (TempDir)); |