From 575410631f6ad4670c0fef1cff668887637c0de8 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 6 Nov 2023 15:14:00 +0000 Subject: tests: Add tests for ui.scm. * tests/ui.scm: New file. --- tests/ui.scm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 tests/ui.scm (limited to 'tests') diff --git a/tests/ui.scm b/tests/ui.scm new file mode 100644 index 0000000..f7810d7 --- /dev/null +++ b/tests/ui.scm @@ -0,0 +1,38 @@ +;;; ccwl --- Concise Common Workflow Language +;;; Copyright © 2023 Arun Isaac +;;; +;;; This file is part of ccwl. +;;; +;;; ccwl is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; ccwl is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with ccwl. If not, see . + +(use-modules (srfi srfi-64) + (term ansi-color)) + +(define source-in-context + (@@ (ccwl ui) source-in-context)) + +(test-begin "ui") + +(test-equal "display source in context" + (string-append "(foo + " + (colorize-string "(bar)" 'BOLD 'RED) + ") +") + (call-with-input-string "(foo + (bar)) +" + (cut source-in-context <> 1 2))) + +(test-end "ui") -- cgit v1.2.3