X-Git-Url: https://gerrit.opnfv.org/gerrit/gitweb?a=blobdiff_plain;f=qemu%2Froms%2Fopenbios%2Fforth%2Ftestsuite%2Fframebuffer-test.fs;fp=qemu%2Froms%2Fopenbios%2Fforth%2Ftestsuite%2Fframebuffer-test.fs;h=11099325925390b5f76020766be465f35fe0dedd;hb=e44e3482bdb4d0ebde2d8b41830ac2cdb07948fb;hp=0000000000000000000000000000000000000000;hpb=9ca8dbcc65cfc63d6f5ef3312a33184e1d726e00;p=kvmfornfv.git

diff --git a/qemu/roms/openbios/forth/testsuite/framebuffer-test.fs b/qemu/roms/openbios/forth/testsuite/framebuffer-test.fs
new file mode 100644
index 000000000..110993259
--- /dev/null
+++ b/qemu/roms/openbios/forth/testsuite/framebuffer-test.fs
@@ -0,0 +1,10 @@
+
+: test-screen
+  10 10 pci-l@
+  f0 0 do
+    dup d# 1280 i * +
+    500 i fill
+  loop
+  ;
+
+  test-screen