mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-11-29 16:54:42 +03:00
7b38759846
Ignore-this: 1d31bef2e227fefafe8bb4b6f9511e1d darcs-hash:20090904172928-f0a0d-987b6931294fd33f7825eddc0adf04c81716a4dd.gz
18 lines
449 B
Haskell
18 lines
449 B
Haskell
module Main where
|
|
import Verify
|
|
|
|
import Graphics.Vty.Attributes
|
|
import Graphics.Vty.Picture
|
|
|
|
sw_is_1_column :: SingleColumnChar -> Bool
|
|
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
|
|
|
|
main = run_test $ do
|
|
verify "sw_is_1_column" sw_is_1_column
|
|
verify "dw_is_2_column" dw_is_2_column
|
|
return ()
|
|
|