potato/rules: capitalize the status
This seems as more readable
This commit is contained in:
parent
8aeef1d8eb
commit
0ca055bdc0
@ -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))))
|
||||
|
Loading…
Reference in New Issue
Block a user