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

Merge of commit 43189 from trunk branch

Browse Source 
as merge of 43188 seems to generate troubles with
  testsuite database.

------------------------------------------------------------------------
r43189 | florian | 2019-10-13 11:42:33 +0000 (Sun, 13 Oct 2019) | 1 line

  * sorted out tests
------------------------------------------------------------------------
--- Merging r43189 into '.':
U    tests/webtbs/tw34848.pp
D    tests/webtbs/tw40850.pp
--- Recording mergeinfo for merge of r43189 into '.':
 U   .

git-svn-id: branches/fixes_3_2@44306 -
This commit is contained in:
pierre 2020-03-16 21:50:24 +00:00
parent 626c2b52c0
commit 0710825bda
3 changed files with 2 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -17686,7 +17686,6 @@ tests/webtbs/tw4058.pp svneol=native#text/plain
tests/webtbs/tw4068.pp svneol=native#text/plain tests/webtbs/tw4068.pp svneol=native#text/plain
tests/webtbs/tw4078.pp svneol=native#text/plain tests/webtbs/tw4078.pp svneol=native#text/plain
tests/webtbs/tw4080.pp svneol=native#text/plain tests/webtbs/tw4080.pp svneol=native#text/plain
tests/webtbs/tw40850.pp svneol=native#text/pascal
tests/webtbs/tw4086.pp svneol=native#text/plain tests/webtbs/tw4086.pp svneol=native#text/plain
tests/webtbs/tw4089.pp svneol=native#text/plain tests/webtbs/tw4089.pp svneol=native#text/plain
tests/webtbs/tw4093.pp svneol=native#text/plain tests/webtbs/tw4093.pp svneol=native#text/plain

2
tests/webtbs/tw34848.pp
View File

@ -24,6 +24,8 @@ begin
if EOF(test_file) then if EOF(test_file) then
writeln('EOF reached'); writeln('EOF reached');
pos := filepos(test_file); pos := filepos(test_file);
if pos<>9 then
halt(1);
writeln('File position: ', pos); writeln('File position: ', pos);
read(test_file, my_bits); read(test_file, my_bits);
writeln(my_bits); writeln(my_bits);

43
tests/webtbs/tw40850.pp
View File

@ -1,43 +0,0 @@
{$mode iso}
program mytest;
procedure my_test1;
type byte_file = file of byte;
var test_file : byte_file;
test_text : text;
loc : integer;
len : integer;
my_bits : byte;
pos : int64;
begin
assign(test_text, 'tw40850.data');
rewrite(test_text);
write(test_text,'0123456789'#10);
close(test_text);
loc := 9;
assign(test_file, 'tw40850.data');
reset(test_file);
len := filesize(test_file);
writeln('File size: ', len);
seek(test_file, loc);
if EOF(test_file) then
writeln('EOF reached');
pos := filepos(test_file);
if pos<>9 then
halt(1);
writeln('File position: ', pos);
read(test_file, my_bits);
if my_bits<>57 then
halt(1);
writeln(my_bits);
read(test_file, my_bits);
writeln(my_bits);
if my_bits<>10 then
halt(1);
close(test_file);
writeln('ok');
end;
begin
my_test1;
end.