ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-10-04 11:17:08 +03:00
Code Issues Projects Releases Wiki Activity

additional testing of string width functionality

Browse Source
This commit is contained in:
Corey O'Connor 2013-07-05 18:35:36 -07:00
parent 5570a2efb7
commit 89b1a3a098
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/VerifyUtf8Width.hs
View File

@ -1,6 +1,7 @@
module VerifyUtf8Width where
import Verify
import Graphics.Text.Width
import Graphics.Vty.Attributes
import Graphics.Vty.Picture
@ -10,9 +11,18 @@ sw_is_1_column (SingleColumnChar c) = image_width (char def_attr c) == 1
dw_is_2_column :: DoubleColumnChar -> Bool
dw_is_2_column (DoubleColumnChar c) = image_width (char def_attr c) == 2
dc_string_is_even :: NonEmptyList DoubleColumnChar -> Bool
dc_string_is_even (NonEmpty dw_list) =
even $ safe_wcswidth [ c | DoubleColumnChar c <- dw_list ]
safe_wcwidth_for_control_chars :: Bool
safe_wcwidth_for_control_chars = 0 == safe_wcwidth '\NUL'
tests :: IO [Test]
tests = return
[ verify "sw_is_1_column" sw_is_1_column
, verify "dw_is_2_column" dw_is_2_column
, verify "a string of double characters is an even width" dc_string_is_even
, verify "safe_wcwidth provides a width of 0 for chars without widths" safe_wcwidth_for_control_chars
]