From 4f1b559f1c3a3ec72b659959447144d2fb872aae Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 3 Jun 2023 00:29:04 -0700
Subject: Initial commit

---
 tests/inkplate.scm | 286 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 286 insertions(+)
 create mode 100644 tests/inkplate.scm

(limited to 'tests')

diff --git a/tests/inkplate.scm b/tests/inkplate.scm
new file mode 100644
index 0000000..fb18199
--- /dev/null
+++ b/tests/inkplate.scm
@@ -0,0 +1,286 @@
+(use-modules (srfi srfi-64)
+             (inkplate lowlevel))
+
+(define* (call-with-test-device func #:key (input-string ""))
+  (let ((device (make-inkplate (open-input-string input-string) (open-output-string))))
+    (func device)
+    (close device)))
+
+(test-begin "Inkplate")
+(test-equal "Convert hello" "48656c6c6f" (convert-string-to-hex "Hello"))
+(test-equal "Convert zero-pads result" "0a" (convert-string-to-hex "\n"))
+(test-equal "Convert a path" "2f696d616765312e626d70" (convert-string-to-hex "/image1.bmp"))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw pixel command zero-padds coordinates and color"
+     "#0(005,005,01)*"
+     (begin
+       (draw-pixel test-device 5 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw line command zero-padds coordinates and color"
+     "#1(005,010,005,010,01)*"
+     (begin
+       (draw-line test-device 5 10 5 10 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw fast vertical line command zero-padds coordinates and color"
+     "#2(005,010,005,01)*"
+     (begin
+       (draw-fast-vertical-line test-device 5 10 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw fast horizontal line command zero-padds coordinates and color"
+     "#3(005,010,005,01)*"
+     (begin
+       (draw-fast-horizontal-line test-device 5 10 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw rectangle command zero-padds coordinates and color"
+     "#4(005,010,005,010,01)*"
+     (begin
+       (draw-rectangle test-device 5 10 5 10 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw circle command zero-padds coordinates and color"
+     "#5(005,010,005,01)*"
+     (begin
+       (draw-circle test-device 5 10 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw triangle command zero-padds coordinates and color"
+     "#6(005,010,005,010,005,010,01)*"
+     (begin
+       (draw-triangle test-device 5 10 5 10 5 10 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw rounded rectangle command zero-padds coordinates and color"
+     "#7(005,010,005,010,005,01)*"
+     (begin
+       (draw-rounded-rectangle test-device 5 10 5 10 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Fill rectangle command zero-padds coordinates and color"
+     "#8(005,010,005,010,01)*"
+     (begin
+       (fill-rectangle test-device 5 10 5 10 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Fill circle command zero-padds coordinates and color"
+     "#9(005,010,005,01)*"
+     (begin
+       (fill-circle test-device 5 10 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Fill triangle command zero-padds coordinates and color"
+     "#A(005,010,005,010,005,010,01)*"
+     (begin
+       (fill-triangle test-device 5 10 5 10 5 10 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Fill rounded rectangle command zero-padds coordinates and color"
+     "#B(005,010,005,010,005,01)*"
+     (begin
+       (fill-rounded-rectangle test-device 5 10 5 10 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Print command quotes its argument"
+     "#C(\"48656c6c6f\")*"
+     (begin
+       (print test-device "48656c6c6f")
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Set text size command zero-padds size"
+     "#D(05)*"
+     (begin
+       (set-text-size test-device 5)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Set cursor command zero-padds coordinates"
+     "#E(005,010)*"
+     (begin
+       (set-cursor test-device 5 10)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Set test wrap #t becomes T"
+     "#F(T)*"
+     (begin
+       (set-text-wrap test-device #t)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Set test wrap #f becomes F"
+     "#F(F)*"
+     (begin
+       (set-text-wrap test-device #f)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Set rotation command zero-padds the rotation"
+     "#G(000)*"
+     (begin
+       (set-rotation test-device 0)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw bitmap command zero-padds the coordinates and quotes the path"
+     "#H(005,010,\"48656c6c6f\")*"
+     (begin
+       (draw-bitmap test-device 5 10 "48656c6c6f")
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Set display mode command inserts a number"
+     "#I(1)*"
+     (begin
+       (set-display-mode test-device 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Get display mode command gets created"
+     "#J(?)*"
+     (begin
+       (get-display-mode test-device)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Clear screen command gets created"
+     "#K(1)*"
+     (begin
+       (clear-screen test-device)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Update display command gets created"
+     "#L(1)*"
+     (begin
+       (update test-device)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Partial update command zero-padds coordinates"
+     "#M(005,010,100)*"
+     (begin
+       (partial-update test-device 5 10 100)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Read temperature command gets created"
+     "#N(?)*"
+     (begin
+       (read-temperature test-device)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Read touchpad command gets created"
+     "#O(1)*"
+     (begin
+       (read-touchpad test-device 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Read battery command gets created"
+     "#P(?)*"
+     (begin
+       (read-battery test-device)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Panel supply command #t becomes 1"
+     "#Q(1)*"
+     (begin
+       (panel-supply test-device #t)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Panel supply command #f becomes 0"
+     "#Q(0)*"
+     (begin
+       (panel-supply test-device #f)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Get panel state command gets created"
+     "#R(?)*"
+     (begin
+       (get-panel-state test-device)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw image zero-padds coordinates and quotes path"
+     "#S(005,010,\"2f696d616765312e626d70\")*"
+     (begin
+       (draw-image test-device 5 10 "2f696d616765312e626d70")
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw thick line zero-padds arguments"
+     "#T(005,010,100,005,10,01)*"
+     (begin
+       (draw-thick-line test-device 5 10 100 5 10 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Draw ellipse zero-padds arguments"
+     "#U(005,010,100,005,01)*"
+     (begin
+       (draw-ellipse test-device 5 10 100 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(call-with-test-device
+ (lambda (test-device)
+   (test-equal "Fill ellipse zero-padds arguments"
+     "#V(005,010,100,005,01)*"
+     (begin
+       (fill-ellipse test-device 5 10 100 5 1)
+       (get-output-string (inkplate-output-port test-device))))))
+
+(test-end "Inkplate")
-- 
cgit v1.2.3-54-g00ecf