(import /src/print)
(use testament)
(use /test-support)
(deftest truncate
(is (= "(...)" (print/truncate "(xxxx)" 5)))
(is (= "[...]" (print/truncate "[xxxx]" 5)))
(is (= "xxxxxx" (print/truncate "xxxxxx" 5)))
(is (= "xxx (...)" (print/truncate "xxx (xxxxx)" 10)))
(is (= "xxx (x)" (print/truncate "xxx (x)" 5))))
(run-tests!)