+ (interactive) test for mantis #8076

git-svn-id: trunk@15242 -

.gitattributes

@@ -11056,6 +11056,7 @@ tests/webtbs/tw8018.pp svneol=native#text/plain
 tests/webtbs/tw8028.pp svneol=native#text/plain
 tests/webtbs/tw8049.pp svneol=native#text/plain
 tests/webtbs/tw8055.pp svneol=native#text/plain
+tests/webtbs/tw8076.pp svneol=native#text/plain
 tests/webtbs/tw8090.pp svneol=native#text/plain
 tests/webtbs/tw8140.pp svneol=native#text/plain
 tests/webtbs/tw8140b.pp svneol=native#text/plain

tests/webtbs/tw8076.pp

@@ -0,0 +1,16 @@
+{ %interactive }
+
+{ should fill the rightmost column of the window with a yellow bar }
+
+uses crt;
+
+var
+  i: longint;
+begin
+for i := 1 to SCREENHEIGHT do
+begin
+textbackground(YELLOW);
+gotoxy(SCREENWIDTH, i);
+write(' ');
+end;
+end.