diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-21 21:08:13 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-21 21:08:13 +0000 |
| commit | 1ea6bd17fba3cfe3b4648ef6c8cbb5a716dbefad (patch) | |
| tree | 813e293a16dfb858ba9e38cc76badf58df3a44f9 /tests | |
| parent | b2df9d1a0f66144e82d28bb263d04c085849e146 (diff) | |
| download | fpc-1ea6bd17fba3cfe3b4648ef6c8cbb5a716dbefad.tar.gz | |
* fix TBufferedFileStream.Seek(0,soBeginning) as proposed by Andrey Zubarev, resolves #38351
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48282 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/webtbs/tw38351.pp | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/webtbs/tw38351.pp b/tests/webtbs/tw38351.pp new file mode 100644 index 0000000000..d76d639b4c --- /dev/null +++ b/tests/webtbs/tw38351.pp @@ -0,0 +1,33 @@ +{$MODE OBJFPC}
+{$APPTYPE CONSOLE}
+
+uses Classes, BufStream, Sysutils;
+
+procedure TestBufferedFileStream;
+var
+ F: TStream;
+ pf: File;
+begin
+ Assign(pf,'tw38351.tmp');
+ Rewrite(pf,1);
+ Seek(pf,100);
+ Close(pf);
+ F := TBufferedFileStream.Create('tw38351.tmp', fmOpenRead);
+ try
+ Writeln(F.Position);
+ if F.Position<>0 then
+ halt(1);
+ Writeln(F.Seek(0, soBeginning)); // TFileStream = 0, TBufferedFileStream = -1
+ Writeln(F.Position);
+ if F.Position<>0 then
+ halt(1);
+ finally
+ F.Free;
+ DeleteFile('tw38351.tmp');
+ end;
+end;
+
+begin
+ TestBufferedFileStream;
+ writeln('ok');
+end.
|