#!/usr/bin/env gosh

(use test.unit)

(require "test/uim-test-utils")

(define-uim-test-case "test uim"
  ("test control-char?"
   (assert-true (uim-bool '(control-char? 31)))
   (assert-false (uim-bool '(control-char? 33))))
  ("test control-char?"
   (assert-true (uim-bool '(control-char? 31)))
   (assert-false (uim-bool '(control-char? 33)))))
