potato/rules: capitalize the status

This seems as more readable
This commit is contained in:
Kreyren 2021-12-07 20:03:30 +00:00 committed by GitHub
parent 8aeef1d8eb
commit 0ca055bdc0
Signed by: GitHub
GPG Key ID: 4AEE18F83AFDEB23

@ -904,11 +904,11 @@ This is where the magic happens."
(begin
(if (passed? node)
(when (>= %verbosity 2)
(format #t "~A~a~A~a: ~Apass~A~%~!"
(format #t "~A~a~A~a: ~APASS~A~%~!"
(node-depth-string node) (lquo) (node-get-name node) (rquo)
(green) (default)))
(when (>= %verbosity 2)
(format #t "~A~a~A~a: ~Afail~A~%~!"
(format #t "~A~a~A~a: ~AFAIL~A~%~!"
(node-depth-string node) (lquo) (node-get-name node) (rquo)
(red) (default))))
(if (has-parent? node)
@ -929,12 +929,12 @@ This is where the magic happens."
(lquo) (node-get-name node) (rquo)))
(if (passed? node)
(when (>= %verbosity 1)
(format #t "~A~a~A~a: ~Acomplete~A~%~!"
(format #t "~A~a~A~a: ~ACOMPLETE~A~%~!"
(node-depth-string node)
(lquo) (node-get-name node) (rquo)
(green) (default)))
(when (>= %verbosity 1)
(format #t "~A~a~A~a: ~Acomplete~A~%~!"
(format #t "~A~a~A~a: ~ACOMPLETE~A~%~!"
(node-depth-string node)
(lquo) (node-get-name node) (rquo)
(red) (default))))