whalesong/tests/more-tests/chars.rkt
2011-08-31 18:08:04 -04:00

16 lines
263 B
Racket

#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)