From 3779c72c58008af3468952f7bb1e7f5830f5dcbc Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Wed, 17 Jul 2024 11:00:37 +0300 Subject: [PATCH] tests/table-preset ("print-table-presets"): New test * tests/table-preset.scm ("print-table-presets"): New test. --- tests/table-preset.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/tests/table-preset.scm b/tests/table-preset.scm index a5ff5a8..5f558e3 100644 --- a/tests/table-preset.scm +++ b/tests/table-preset.scm @@ -1,6 +1,6 @@ ;;; table-preset.scm -- Tests for table presets. -;; Copyright (C) 2021 Artyom V. Poptsov +;; Copyright (C) 2021-2024 Artyom V. Poptsov ;; ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -31,6 +31,17 @@ (test-assert "table-preset-name?: #f" (not (table-preset-name? "rs=-,cs=|"))) + + +(define %table-presets-path + (format #f "~a/presets" (getenv "abs_top_srcdir"))) + +(test-assert "print-table-presets" + (with-output-to-string + (lambda () + (print-table-presets (current-output-port) + #:table-presets-path %table-presets-path)))) + (define exit-status (test-runner-fail-count (test-runner-current)))