mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 04:19:28 +02:00
* fix test for case sensitive file system, resolves #31452
git-svn-id: trunk@35543 -
This commit is contained in:
parent
6166215174
commit
5dd6232c0e
@ -10,7 +10,7 @@ program test(input, output, testfile);
|
||||
writeln(testfile,'Hello world');
|
||||
close(testfile);
|
||||
|
||||
assign(testfile,'testfile.txt');
|
||||
assign(testfile,'TESTFILE.txt');
|
||||
reset(testfile);
|
||||
readln(testfile,s);
|
||||
if (s[1]<>'H') or (s[2]<>'e') then
|
||||
|
Loading…
Reference in New Issue
Block a user