paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 06:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* forgot that tests should be non interactive !!

Browse Source
This commit is contained in:
pierre 2000-01-31 10:17:36 +00:00
parent 38fb93fcfc
commit 7a4ea522ae
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tbug816.pp
View File

@ -1,7 +1,6 @@
uses graph;
var
gd,gm:integer;
s : string;
testimage:array[1..50000] of byte; {this is plenty big}
begin
gd:=VESA;
@ -12,7 +11,6 @@ begin
Writeln('Unable to open driver ',gd,' in mode ',gm);
Halt(1);
end;
readln(s);
line(0,0,639,399);
getimage(190,49,257,125,testimage);
{ a simple statement, and yet
@ -22,7 +20,5 @@ begin
Is this a bug in getimage, or is there something i am
missing here?
}
readln(s);
closegraph;
end.