From ea28070ab79a562423a42ffa63cee7c37ea849bc Mon Sep 17 00:00:00 2001
From: Jose Rodriguez <boriel@gmail.com>
Date: Sat, 8 Oct 2022 01:00:50 +0200
Subject: [PATCH] test: add PRINT COLOR test

---
 tests/runtime/cases/drawing_primitives.bas    |  21 ++++++++++++++++++
 tests/runtime/cases/print_color.bas           |  18 +++++++++++++++
 .../expected/drawing_primitives.tzx.scr       | Bin 0 -> 6912 bytes
 tests/runtime/expected/print_color.tzx.scr    | Bin 0 -> 6912 bytes
 4 files changed, 39 insertions(+)
 create mode 100644 tests/runtime/cases/drawing_primitives.bas
 create mode 100644 tests/runtime/cases/print_color.bas
 create mode 100644 tests/runtime/expected/drawing_primitives.tzx.scr
 create mode 100644 tests/runtime/expected/print_color.tzx.scr

diff --git a/tests/runtime/cases/drawing_primitives.bas b/tests/runtime/cases/drawing_primitives.bas
new file mode 100644
index 000000000..a7a9b5462
--- /dev/null
+++ b/tests/runtime/cases/drawing_primitives.bas
@@ -0,0 +1,21 @@
+#include "lib/tst_framework.bas"
+
+INIT("Testing PRINT color")
+
+Declare sub CenterText (ByVal Row as ubyte, ByVal Text as string)
+
+Ink 6
+Paper 1
+Print "x";
+
+Ink 7
+Paper 0
+Text ("Hello")
+FINISH
+
+Sub Text (ByVal Txt as string)
+ PLOT 10, 10
+ DRAW 20, 20
+ CIRCLE 100, 100, 20
+ DRAW 30, 30, 30
+End sub
diff --git a/tests/runtime/cases/print_color.bas b/tests/runtime/cases/print_color.bas
new file mode 100644
index 000000000..80deded99
--- /dev/null
+++ b/tests/runtime/cases/print_color.bas
@@ -0,0 +1,18 @@
+#include "lib/tst_framework.bas"
+
+INIT("Testing PRINT color")
+
+Declare sub CenterText (ByVal Row as ubyte, ByVal Text as string)
+
+Ink 6
+Paper 1
+Print "x";
+
+Ink 7
+Paper 0
+Text ("Hello")
+FINISH
+
+Sub Text (ByVal Txt as string)
+ PRINT Txt;
+End sub
diff --git a/tests/runtime/expected/drawing_primitives.tzx.scr b/tests/runtime/expected/drawing_primitives.tzx.scr
new file mode 100644
index 0000000000000000000000000000000000000000..1825199e042e28b76b0b0e507112f3dc036cc2d3
GIT binary patch
literal 6912
zcmeHKy>8nu5Wd((EEGn-ZXN=Z**bRAU<8aHbjX+|5c&iiJ$T@w`BCy19f~I3iIid5
zJkqk909A7E4|(7HeMeHJi9WXcBT@=2*lg}AjETn|NmN;uv|dqF6~7eSma4oB=-0t)
zd=ph0^`owt|C1tJt6B#nzX!ANP1L$n3j8;l;xWd5?B_w58ThZr)Wy#j|Ix4iYP~4y
z8JX(7;`6^K!~H+@^Y2b{IlhB^c}8>koeHYxnr1{+vatmaphhq-z^;HHMpUk$<);zb
z#AM=?65b`2;>ThJx+N`w`N2fdl51}c)VpcNU+*;GAjhBiv9HAMRQ|jSXGufTl%Ga*
zs6qU}u#8y8Ar|KWO6Df54<|R?246?g^`-khGB8eaHh)X>^5-b(PN7j9_>18?{!)YP
z5DEV6dlz(XFtKg>#P#oZbBw5Hr<L+YefE@yKi|&x6bD0t#f6Qud}K8oth_<)04MqT
z{f8V;>GW^KA90tOo};;0X;1)OVtT7#WaSO=6)-nX3NZ1{pN=O?L$Piu`FAH%hh8Vo
zP+Nl=f@p7$*tH;TVh!|m0Du4cb2fi}G8>c;mlqq?J8eN%c!bN3K+B7V2zW&$$Nvkw
zxI}6FCgkeN@#iw4;`y5>2&H$l5)S@EQyCWhh5;g97d8X;$n6@>BqeExZY1n{y|myy
z;xM>JS+0|*e&X=I!A)7*u&(xDa1Z`u**Mki>GO2UHkTFg#^BNngZq?f*f@E|{r0y{
zyc2CR7m{J{i8Zulnm?EA@I60tI@vHd9Xmu@>P@J7hnY#|$iQjmUMT;=q-`&kOBma9
XkPMu5&Z6^-++^@i__G85a|d1ls_Rqk

literal 0
HcmV?d00001

diff --git a/tests/runtime/expected/print_color.tzx.scr b/tests/runtime/expected/print_color.tzx.scr
new file mode 100644
index 0000000000000000000000000000000000000000..6615f9adf1d689963130dc4d5f1014e66cb2c35a
GIT binary patch
literal 6912
zcmeH{Jqp7x3`R8sn!ywuAVbEC9W|I>gy_(*N9ZX$m>#{<A(NmGI#&HO>1TRRmWlp5
zUPR1YL2Ik_oVMJB?sL}*RIrFp&7?X$m?mMF9G$5!i))1{*a~0FHvT))Y;3dRTb{;j
zt`(}_+V|V}TN`hm_*rXg{xWpFOvT3QC;mlCZ2nx6*g!>B-R?h$fB&XArNH;UA9HxX
qP=6L+U;qYS00v+H24DaNU;qYS00v+H2EH?JI*9YZ9Ag;xWdm;<D=wY@

literal 0
HcmV?d00001