diff options
author | Fredrik Salomonsson <plattfot@gmail.com> | 2020-06-14 16:06:34 -0700 |
---|---|---|
committer | Fredrik Salomonsson <plattfot@gmail.com> | 2020-06-14 16:06:34 -0700 |
commit | d97227404226cb34f382920520a865daa0f69838 (patch) | |
tree | ba829d2f39d6a5887d5b392ec104d5a0bb2f8f1c | |
parent | 0514db6bd62d1f3873081b1425aae17f04b37c11 (diff) | |
download | pinentry-rofi-d97227404226cb34f382920520a865daa0f69838.tar.gz |
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.
-rwxr-xr-x | tests/pinentry-rofi.scm | 12 |
1 files changed, 6 insertions, 6 deletions
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 "<u>O</u>k%0A<u>C</u>ancel" (html-underline "_Ok%0A_Cancel")) (test-equal "<u>O</u>k <u>C</u>ancel" (html-underline "_Ok _Cancel")) -(test-end "html") +;; (test-end "html") (test-equal "<u>T</u>his is one line <u>T</u>his is another%OA" (pango-markup "_%54his is one line%0A_This is another%OA")) |