gauche.test で出力を抑制する

gauche.test でテストの経過表示を省略したい。with-ports で消してみた。

(use gauche.test)

(let ([oport (open-output-string)]
      [eport (open-output-string)])
  (with-ports #f oport eport
    (lambda ()
      (test* 'plus 2 (+ 1 1))))
  (test-end))