tests/more-tests/chars.rkt
#lang planet dyoo/whalesong/base

(char-upcase #\a)
(char-upcase #\b)
(char-upcase #\c)
(char-upcase #\A)
(char-upcase #\B)
(char-upcase #\C)

(char-downcase #\a)
(char-downcase #\b)
(char-downcase #\c)
(char-downcase #\A)
(char-downcase #\B)
(char-downcase #\C)