git.iko.soy/vty
on ae06339 help sign in
vty/test/verify_utf8_width.hs
17 lines 449 B history raw
1module Main where
2import Verify
4import Graphics.Vty.Attributes
5import Graphics.Vty.Picture
7sw_is_1_column :: SingleColumnChar -> Bool
8sw_is_1_column (SingleColumnChar c) = image_width (char def_attr c) == 1
10dw_is_2_column :: DoubleColumnChar -> Bool
11dw_is_2_column (DoubleColumnChar c) = image_width (char def_attr c) == 2
13main = run_test $ do
14 verify "sw_is_1_column" sw_is_1_column
15 verify "dw_is_2_column" dw_is_2_column
16 return ()