bug#72154: test-error does not work

Hi, currently the test-error does not seem to work: (test-error "should throw" 'foo (throw 'bar)) results in test-name: should throw location: test.scm:191 source: + (test-error "should throw" 'foo (throw 'bar)) expected-error: + foo actual-error: + (ba

bug#72153: Test name is evaluated twice

Hello, given a test of (test-assert (pk "foo") #t) the test name is evaluated twice: ;;; ("foo") ;;; ("foo") test-name: foo location: test.scm:194 source: + (test-assert (pk "foo") #t) actual-value: #t result: PASS That does not seem to be allowed by