From d97227404226cb34f382920520a865daa0f69838 Mon Sep 17 00:00:00 2001 From: Fredrik Salomonsson Date: Sun, 14 Jun 2020 16:06:34 -0700 Subject: Comment out the nested test groups As there is a parsing bug in guile-hall's test runner. So if a error is triggered inside a nested test group no log will show up. So commenting out these temporarily to work around that issue. --- tests/pinentry-rofi.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'tests') diff --git a/tests/pinentry-rofi.scm b/tests/pinentry-rofi.scm index 31cbfa3..b0b7b87 100755 --- a/tests/pinentry-rofi.scm +++ b/tests/pinentry-rofi.scm @@ -26,7 +26,7 @@ (test-begin "pinentry-rofi") -(test-begin "pinentry") +;; (test-begin "pinentry") (let ((pinentry (make-pinentry #t "Prompt" "Ok" "Cancel" ":1" "test.log"))) (test-assert (pinentry? pinentry)) (test-assert (pinentry-ok pinentry)) @@ -42,9 +42,9 @@ (let ((pinentry (make-pinentry #f "Prompt" "Ok" "Cancel" ":1" "test.log"))) (test-assert (not (pinentry-ok pinentry)))) -(test-end "pinentry") +;; (test-end "pinentry") -(test-begin "utils") +;; (test-begin "utils") (test-equal "Ok" (remove-underline "_Ok")) (test-equal " Ok" (remove-underline " _Ok")) @@ -66,12 +66,12 @@ (test-assert (string-empty? "")) (test-assert (not (string-empty? "foo"))) -(test-end "utils") +;; (test-end "utils") (test-equal "This is one line\nThis is another%OA" (hex->char "%54his is one line%0AThis is another%OA")) -(test-begin "html") +;; (test-begin "html") (test-equal "%54his is one line This is another%OA" (html-newline "%54his is one line%0AThis is another%OA")) (test-equal "%54his is one line\nThis is another%OA" @@ -86,7 +86,7 @@ (test-equal "Ok%0ACancel" (html-underline "_Ok%0A_Cancel")) (test-equal "Ok Cancel" (html-underline "_Ok _Cancel")) -(test-end "html") +;; (test-end "html") (test-equal "This is one line This is another%OA" (pango-markup "_%54his is one line%0A_This is another%OA")) -- cgit