git.iko.soy/vty
on cd6747c help sign in
vty/test/VerifyImageTrans.hs
32 lines 1.5 kB history raw
1{-# LANGUAGE NamedFieldPuns #-}
2module VerifyImageTrans where
4import Verify.Graphics.Vty.Image
6import Verify
8import Data.Word
10is_horiz_text_of_columns :: Image -> Word -> Bool
11is_horiz_text_of_columns (HorizText { output_width = in_w }) expected_w = in_w == expected_w
12is_horiz_text_of_columns (BGFill { output_width = in_w }) expected_w = in_w == expected_w
13is_horiz_text_of_columns _image _expected_w = False
15verify_horiz_contat_wo_attr_change_simplifies :: SingleRowSingleAttrImage -> Bool
16verify_horiz_contat_wo_attr_change_simplifies (SingleRowSingleAttrImage _attr char_count image) =
17 is_horiz_text_of_columns image char_count
19verify_horiz_contat_w_attr_change_simplifies :: SingleRowTwoAttrImage -> Bool
20verify_horiz_contat_w_attr_change_simplifies ( SingleRowTwoAttrImage (SingleRowSingleAttrImage attr0 char_count0 _image0)
21 (SingleRowSingleAttrImage attr1 char_count1 _image1)
22 i
23 )
24 | char_count0 == 0 || char_count1 == 0 || attr0 == attr1 = is_horiz_text_of_columns i (char_count0 + char_count1)
25 | otherwise = False == is_horiz_text_of_columns i (char_count0 + char_count1)
27tests :: IO [Test]
28tests = return
29 [ verify "verify_horiz_contat_wo_attr_change_simplifies" verify_horiz_contat_wo_attr_change_simplifies
30 , verify "verify_horiz_contat_w_attr_change_simplifies" verify_horiz_contat_w_attr_change_simplifies
31 ]