@@ -1,12 +1,12 @@
1{-# LANGUAGE QuasiQuotes #-}
1{-# LANGUAGE QuasiQuotes #-}
2+{-# LANGUAGE ScopedTypeVariables #-}
2module Main where
3module Main where
4import Graphics.Vty
5import Graphics.Vty
5import Graphics.Vty.Attributes
6import Graphics.Vty.Attributes
6import Graphics.Vty.Inline
7import Graphics.Vty.Inline
7import Graphics.Vty.Picture
8import Graphics.Vty.Picture
8−import Graphics.Vty.Terminal
9+import Graphics.Vty.Output
9−import Graphics.Vty.DisplayRegion
11import Control.Concurrent (threadDelay)
11import Control.Concurrent (threadDelay)
12import Control.Exception
12import Control.Exception
@@ -18,18 +18,18 @@ import Data.Monoid
18import Data.String.QQ
18import Data.String.QQ
19import Data.Word
19import Data.Word
21−import Foreign.Marshal.Array
21+import Foreign.Marshal.Array
23import qualified System.Environment as Env
23import qualified System.Environment as Env
25import System.IO ( hFlush, hPutStr, hPutBuf, stdout )
25import System.IO ( hFlush, hPutStr, hPutBuf, stdout )
28− print_intro
28+ printIntro
30−output_file_path = "test_results.list"
30+outputFilePath = "test_results.list"
32−print_intro = do
32+printIntro = do
33 putStr $ [s|
33 putStr $ [s|
34This is an interactive verification program for the terminal input and output
34This is an interactive verification program for the terminal input and output
35support of the VTY library. This will ask a series of questions about what you
35support of the VTY library. This will ask a series of questions about what you
@@ -37,7 +37,7 @@ see on screen. The goal is to verify that VTY's output and input support
37performs as expected with your terminal.
37performs as expected with your terminal.
39This program produces a file named
39This program produces a file named
40− |] ++ output_file_path ++ [s|
40+ |] ++ outputFilePath ++ [s|
41in the current directory that contains the results for each test assertion. This
41in the current directory that contains the results for each test assertion. This
42can be emailed to coreyoconnor@gmail.com and used by the VTY authors to improve
42can be emailed to coreyoconnor@gmail.com and used by the VTY authors to improve
43support for your terminal. No personal information is contained in the report.
43support for your terminal. No personal information is contained in the report.
@@ -66,41 +66,40 @@ All the tests assume the following about the terminal display:
66Thanks for the help! :-D
66Thanks for the help! :-D
67To exit the test early enter "q" anytime at the following menu screen.
67To exit the test early enter "q" anytime at the following menu screen.
69−If any test failed then please post an issue to
69+If any test fails then please post an issue to
70 https://github.com/coreyoconnor/vty/issues
70 https://github.com/coreyoconnor/vty/issues
71−with the test_results.list file pasted into the issue. The issue summary can
71+with the test_results.list file pasted into the issue. A suitable summary is:
72−mention the specific tests that failed or just say "interactive terminal test
72+"interactive terminal test failure".
75− wait_for_return
74+ waitForReturn
76− results <- do_test_menu 1
75+ results <- doTestMenu 1
77− env_attributes <- mapM ( \env_name -> Control.Exception.catch ( Env.getEnv env_name >>= return . (,) env_name )
76+ envAttributes <- mapM ( \envName -> Control.Exception.catch ( Env.getEnv envName >>= return . (,) envName )
78− ( \ (_ :: SomeException) -> return (env_name, "") )
77+ ( \ (_ :: SomeException) -> return (envName, "") )
80− [ "TERM", "COLORTERM", "LANG", "TERM_PROGRAM", "XTERM_VERSION" ]
79+ [ "TERM", "COLORTERM", "LANG", "TERM_PROGRAM", "XTERM_VERSION" ]
81− t <- current_terminal
80+ t <- standardIOConfig >>= outputForConfig
82− let results_txt = show env_attributes ++ "\n"
81+ let resultsTxt = show envAttributes ++ "\n"
83− ++ terminal_ID t ++ "\n"
82+ ++ terminalID t ++ "\n"
84− ++ show results ++ "\n"
83+ ++ show results ++ "\n"
85− release_terminal t
84+ releaseTerminal t
86− writeFile output_file_path results_txt
85+ writeFile outputFilePath resultsTxt
88−wait_for_return = do
87+waitForReturn = do
89 putStr "\n(press return to continue)"
88 putStr "\n(press return to continue)"
90 hFlush stdout
89 hFlush stdout
93−test_menu :: [(String, Test)]
92+testMenu :: [(String, Test)]
94−test_menu = zip (map show [1..]) all_tests
93+testMenu = zip (map show [1..]) allTests
96−do_test_menu :: Int -> IO [(String, Bool)]
95+doTestMenu :: Int -> IO [(String, Bool)]
97−do_test_menu next_ID
96+doTestMenu nextID
98− | next_ID > length all_tests = do
97+ | nextID > length allTests = do
99− putStrLn $ "Done! Please email the " ++ output_file_path ++ " file to coreyoconnor@gmail.com"
98+ putStrLn $ "Done! Please email the " ++ outputFilePath ++ " file to coreyoconnor@gmail.com"
100 return []
99 return []
101 | otherwise = do
100 | otherwise = do
102− display_test_menu
101+ displayTestMenu
103− putStrLn $ "Press return to start with #" ++ show next_ID ++ "."
102+ putStrLn $ "Press return to start with #" ++ show nextID ++ "."
104 putStrLn "Enter a test number to perform only that test."
103 putStrLn "Enter a test number to perform only that test."
105 putStrLn "q (or control-C) to quit."
104 putStrLn "q (or control-C) to quit."
106 putStr "> "
105 putStr "> "
@@ -108,102 +107,102 @@ do_test_menu next_ID
108 s <- getLine >>= return . filter (/= '\n')
107 s <- getLine >>= return . filter (/= '\n')
109 case s of
108 case s of
110 "q" -> return mempty
109 "q" -> return mempty
111− "" -> do
110+ "" -> do
112− r <- run_test $ show next_ID
111+ r <- runTest $ show nextID
113− rs <- do_test_menu ( next_ID + 1 )
112+ rs <- doTestMenu ( nextID + 1 )
114 return $ r : rs
113 return $ r : rs
115− i | isJust ( lookup i test_menu ) -> do
114+ i | isJust ( lookup i testMenu ) -> do
116− r <- run_test i
115+ r <- runTest i
117− rs <- do_test_menu ( read i + 1 )
116+ rs <- doTestMenu ( read i + 1 )
118 return $ r : rs
117 return $ r : rs
120− display_test_menu
119+ displayTestMenu
121− = mapM_ display_test_menu' test_menu
120+ = mapM_ displayTestMenu' testMenu
122− display_test_menu' ( i, t )
121+ displayTestMenu' ( i, t )
123− = putStrLn $ ( if i == show next_ID
122+ = putStrLn $ ( if i == show nextID
124− then "> "
123+ then "> "
126− ) ++ i ++ ". " ++ test_name t
125+ ) ++ i ++ ". " ++ testName t
128−run_test :: String -> IO (String, Bool)
127+runTest :: String -> IO (String, Bool)
129−run_test i = do
128+runTest i = do
130− let t = fromJust $ lookup i test_menu
129+ let t = fromJust $ lookup i testMenu
131− print_summary t
130+ printSummary t
132− wait_for_return
131+ waitForReturn
133− test_action t
132+ testAction t
134− r <- confirm_results t
133+ r <- confirmResults t
135− return (test_ID t, r)
134+ return (testID t, r)
137−default_success_confirm_results = do
136+defaultSuccessConfirmResults = do
138 putStr "\n"
137 putStr "\n"
139 putStr "[Y/n] "
138 putStr "[Y/n] "
140 hFlush stdout
139 hFlush stdout
141 r <- getLine
140 r <- getLine
142 case r of
141 case r of
143− "" -> return True
142+ "" -> return True
144 "y" -> return True
143 "y" -> return True
145 "Y" -> return True
144 "Y" -> return True
146 "n" -> return False
145 "n" -> return False
148data Test = Test
147data Test = Test
149− { test_name :: String
148+ { testName :: String
150− , test_ID :: String
149+ , testID :: String
151− , test_action :: IO ()
150+ , testAction :: IO ()
152− , print_summary :: IO ()
151+ , printSummary :: IO ()
153− , confirm_results :: IO Bool
152+ , confirmResults :: IO Bool
156−all_tests
155+allTests
157− = [ reserve_output_test
156+ = [ reserveOutputTest
158− , display_bounds_test_0
157+ , displayBoundsTest0
159− , display_bounds_test_1
158+ , displayBoundsTest1
160− , display_bounds_test_2
159+ , displayBoundsTest2
161− , display_bounds_test_3
160+ , displayBoundsTest3
162− , unicode_single_width_0
161+ , unicodeSingleWidth0
163− , unicode_single_width_1
162+ , unicodeSingleWidth1
164− , unicode_double_width_0
163+ , unicodeDoubleWidth0
165− , unicode_double_width_1
164+ , unicodeDoubleWidth1
166− , attributes_test_0
165+ , attributesTest0
167− , attributes_test_1
166+ , attributesTest1
168− , attributes_test_2
167+ , attributesTest2
169− , attributes_test_3
168+ , attributesTest3
170− , attributes_test_4
169+ , attributesTest4
171− , attributes_test_5
170+ , attributesTest5
172− , inline_test_0
171+ , inlineTest0
173− , inline_test_1
172+ , inlineTest1
174− , inline_test_2
173+ , inlineTest2
175− , cursor_hide_test_0
174+ , cursorHideTest0
176− , vert_crop_test_0
175+ , vertCropTest0
177− , vert_crop_test_1
176+ , vertCropTest1
178− , vert_crop_test_2
177+ , vertCropTest2
179− , vert_crop_test_3
178+ , vertCropTest3
180− , horiz_crop_test_0
179+ , horizCropTest0
181− , horiz_crop_test_1
180+ , horizCropTest1
182− , horiz_crop_test_2
181+ , horizCropTest2
183− , horiz_crop_test_3
182+ , horizCropTest3
184− , layer_0
183+ , layer0
185− , layer_1
184+ , layer1
188−reserve_output_test = Test
187+reserveOutputTest = Test
189− { test_name = "Initialize and reserve terminal output then restore previous state."
188+ { testName = "Initialize and reserve terminal output then restore previous state."
190− , test_ID = "reserve_output_test"
189+ , testID = "reserveOutputTest"
191− , test_action = do
190+ , testAction = do
192− t <- current_terminal
191+ t <- standardIOConfig >>= outputForConfig
193− reserve_display t
192+ reserveDisplay t
194 putStrLn "Line 1"
193 putStrLn "Line 1"
195 putStrLn "Line 2"
194 putStrLn "Line 2"
196 putStrLn "Line 3"
195 putStrLn "Line 3"
197 putStrLn "Line 4 (press return)"
196 putStrLn "Line 4 (press return)"
198 hFlush stdout
197 hFlush stdout
200− release_display t
199+ releaseDisplay t
201− release_terminal t
200+ releaseTerminal t
202 return ()
201 return ()
203− , print_summary = do
202+ , printSummary = do
204 putStr $ [s|
203 putStr $ [s|
205Once return is pressed:
204Once return is pressed:
206− 0. The screen will be cleared.
205+ 0. The screen will be cleared.
207 1. Four lines of text should be visible.
206 1. Four lines of text should be visible.
208 1. The cursor should be visible and at the start of the fifth line.
207 1. The cursor should be visible and at the start of the fifth line.
@@ -211,123 +210,123 @@ After return is pressed for the second time this test then:
211 * The screen containing the test summary should be restored;
210 * The screen containing the test summary should be restored;
212 * The cursor is visible.
211 * The cursor is visible.
214− , confirm_results = do
213+ , confirmResults = do
215 putStr $ [s|
214 putStr $ [s|
216Did the test output match the description?
215Did the test output match the description?
218− default_success_confirm_results
217+ defaultSuccessConfirmResults
221−display_bounds_test_0 = Test
220+displayBoundsTest0 = Test
222− { test_name = "Verify display bounds are correct test 0: Using spaces."
221+ { testName = "Verify display bounds are correct test 0: Using spaces."
223− , test_ID = "display_bounds_test_0"
222+ , testID = "displayBoundsTest0"
224− , test_action = do
223+ , testAction = do
225− t <- current_terminal
224+ t <- standardIOConfig >>= outputForConfig
226− reserve_display t
225+ reserveDisplay t
227− DisplayRegion w h <- display_bounds t
226+ (w,h) <- displayBounds t
228− let row_0 = replicate (fromEnum w) 'X' ++ "\n"
227+ let row0 = replicate (fromEnum w) 'X' ++ "\n"
229− row_h = replicate (fromEnum w - 1) 'X'
228+ rowH = replicate (fromEnum w - 1) 'X'
230− row_n = "X" ++ replicate (fromEnum w - 2) ' ' ++ "X\n"
229+ rowN = "X" ++ replicate (fromEnum w - 2) ' ' ++ "X\n"
231− image = row_0 ++ (concat $ replicate (fromEnum h - 2) row_n) ++ row_h
230+ image = row0 ++ (concat $ replicate (fromEnum h - 2) rowN) ++ rowH
232 putStr image
231 putStr image
233 hFlush stdout
232 hFlush stdout
235− release_display t
234+ releaseDisplay t
236− release_terminal t
235+ releaseTerminal t
237 return ()
236 return ()
238− , print_summary = display_bounds_test_summary True
237+ , printSummary = displayBoundsTestSummary True
239− , confirm_results = generic_output_match_confirm
238+ , confirmResults = genericOutputMatchConfirm
242−display_bounds_test_1 = Test
241+displayBoundsTest1 = Test
243− { test_name = "Verify display bounds are correct test 0: Using cursor movement."
242+ { testName = "Verify display bounds are correct test 0: Using cursor movement."
244− , test_ID = "display_bounds_test_1"
243+ , testID = "displayBoundsTest1"
245− , test_action = do
244+ , testAction = do
246− t <- current_terminal
245+ t <- standardIOConfig >>= outputForConfig
247− reserve_display t
246+ reserveDisplay t
248− DisplayRegion w h <- display_bounds t
247+ (w,h) <- displayBounds t
249− set_cursor_pos t 0 0
248+ setCursorPos t 0 0
250− let row_0 = replicate (fromEnum w) 'X' ++ "\n"
249+ let row0 = replicate (fromEnum w) 'X' ++ "\n"
251− putStr row_0
250+ putStr row0
252 forM_ [1 .. h - 2] $ \y -> do
251 forM_ [1 .. h - 2] $ \y -> do
253− set_cursor_pos t 0 y
252+ setCursorPos t 0 y
254 putStr "X"
253 putStr "X"
255 hFlush stdout
254 hFlush stdout
256− set_cursor_pos t (w - 1) y
255+ setCursorPos t (w - 1) y
257 putStr "X"
256 putStr "X"
258 hFlush stdout
257 hFlush stdout
259− set_cursor_pos t 0 (h - 1)
258+ setCursorPos t 0 (h - 1)
260− let row_h = replicate (fromEnum w - 1) 'X'
259+ let rowH = replicate (fromEnum w - 1) 'X'
261− putStr row_h
260+ putStr rowH
262 hFlush stdout
261 hFlush stdout
264− release_display t
263+ releaseDisplay t
265− release_terminal t
264+ releaseTerminal t
266 return ()
265 return ()
267− , print_summary = display_bounds_test_summary True
266+ , printSummary = displayBoundsTestSummary True
268− , confirm_results = generic_output_match_confirm
267+ , confirmResults = genericOutputMatchConfirm
271−display_bounds_test_2 = Test
270+displayBoundsTest2 = Test
272− { test_name = "Verify display bounds are correct test 0: Using Image ops."
271+ { testName = "Verify display bounds are correct test 0: Using Image ops."
273− , test_ID = "display_bounds_test_2"
272+ , testID = "displayBoundsTest2"
274− , test_action = do
273+ , testAction = do
275− t <- current_terminal
274+ t <- standardIOConfig >>= outputForConfig
276− reserve_display t
275+ reserveDisplay t
277− bounds@(DisplayRegion w h) <- display_bounds t
276+ bounds@(w,h) <- displayBounds t
278− let first_row = horiz_cat $ replicate (fromEnum w) (char def_attr 'X')
277+ let firstRow = horizCat $ replicate (fromEnum w) (char defAttr 'X')
279− middle_rows = vert_cat $ replicate (fromEnum h - 2) middle_row
278+ middleRows = vertCat $ replicate (fromEnum h - 2) middleRow
280− middle_row = (char def_attr 'X') <|> background_fill (w - 2) 1 <|> (char def_attr 'X')
279+ middleRow = (char defAttr 'X') <|> backgroundFill (w - 2) 1 <|> (char defAttr 'X')
281− end_row = first_row
280+ endRow = firstRow
282− image = first_row <-> middle_rows <-> end_row
281+ image = firstRow <-> middleRows <-> endRow
283− pic = (pic_for_image image) { pic_cursor = Cursor (w - 1) (h - 1) }
282+ pic = (picForImage image) { picCursor = Cursor (w - 1) (h - 1) }
284− d <- display_context t bounds
283+ d <- displayContext t bounds
285− output_picture d pic
284+ outputPicture d pic
287− release_display t
286+ releaseDisplay t
288− release_terminal t
287+ releaseTerminal t
289 return ()
288 return ()
290− , print_summary = display_bounds_test_summary True
289+ , printSummary = displayBoundsTestSummary True
291− , confirm_results = generic_output_match_confirm
290+ , confirmResults = genericOutputMatchConfirm
294−display_bounds_test_3 = Test
293+displayBoundsTest3 = Test
295− { test_name = "Verify display bounds are correct test 0: Hide cursor; Set cursor pos."
294+ { testName = "Verify display bounds are correct test 0: Hide cursor; Set cursor pos."
296− , test_ID = "display_bounds_test_3"
295+ , testID = "displayBoundsTest3"
297− , test_action = do
296+ , testAction = do
298− t <- current_terminal
297+ t <- standardIOConfig >>= outputForConfig
299− reserve_display t
298+ reserveDisplay t
300− DisplayRegion w h <- display_bounds t
299+ (w,h) <- displayBounds t
301− hide_cursor t
300+ hideCursor t
302− set_cursor_pos t 0 0
301+ setCursorPos t 0 0
303− let row_0 = replicate (fromEnum w) 'X'
302+ let row0 = replicate (fromEnum w) 'X'
304− putStrLn row_0
303+ putStrLn row0
305 forM_ [1 .. h - 2] $ \y -> do
304 forM_ [1 .. h - 2] $ \y -> do
306− set_cursor_pos t 0 y
305+ setCursorPos t 0 y
307 putStr "X"
306 putStr "X"
308 hFlush stdout
307 hFlush stdout
309− set_cursor_pos t (w - 1) y
308+ setCursorPos t (w - 1) y
310 putStr "X"
309 putStr "X"
311 hFlush stdout
310 hFlush stdout
312− set_cursor_pos t 0 (h - 1)
311+ setCursorPos t 0 (h - 1)
313− let row_h = row_0
312+ let rowH = row0
314− putStr row_h
313+ putStr rowH
315 hFlush stdout
314 hFlush stdout
317− show_cursor t
316+ showCursor t
318− release_display t
317+ releaseDisplay t
319− release_terminal t
318+ releaseTerminal t
320 return ()
319 return ()
321− , print_summary = display_bounds_test_summary False
320+ , printSummary = displayBoundsTestSummary False
322− , confirm_results = generic_output_match_confirm
321+ , confirmResults = genericOutputMatchConfirm
325−display_bounds_test_summary has_cursor = do
324+displayBoundsTestSummary hasCursor = do
326 putStr $ [s|
325 putStr $ [s|
327Once return is pressed:
326Once return is pressed:
328 0. The screen will be cleared.
327 0. The screen will be cleared.
330− if has_cursor
329+ if hasCursor
331 then putStr " 1. The cursor will be visible."
330 then putStr " 1. The cursor will be visible."
332 else putStr " 1. The cursor will NOT be visible."
331 else putStr " 1. The cursor will NOT be visible."
333 putStr [s|
332 putStr [s|
@@ -338,7 +337,7 @@ Once return is pressed:
338 |XXXXXXXXXXXXX|
337 |XXXXXXXXXXXXX|
341− if has_cursor
340+ if hasCursor
342 then putStr $ [s|
341 then putStr $ [s|
344 |XXXXXXXXXXXXC| |]
343 |XXXXXXXXXXXXC| |]
@@ -359,13 +358,13 @@ After return is pressed for the second time:
359 1. The cursor should be visible.
358 1. The cursor should be visible.
362−generic_output_match_confirm = do
361+genericOutputMatchConfirm = do
363 putStr $ [s|
362 putStr $ [s|
364Did the test output match the description?
363Did the test output match the description?
366− default_success_confirm_results
365+ defaultSuccessConfirmResults
368−-- Explicitely definethe bytes that encode each example text.
367+-- Explicitly define the bytes that encode each example text.
369-- This avoids any issues with how the compiler represents string literals.
368-- This avoids any issues with how the compiler represents string literals.
371-- This document is UTF-8 encoded so the UTF-8 string is still included for
370-- This document is UTF-8 encoded so the UTF-8 string is still included for
@@ -374,24 +373,24 @@ Did the test output match the description?
374-- It's assumed the compiler will at least not barf on UTF-8 encoded text in
373-- It's assumed the compiler will at least not barf on UTF-8 encoded text in
375-- comments ;-)
374-- comments ;-)
377−-- txt_0 = ↑↑↓↓←→←→BA
376+-- txt0 = ↑↑↓↓←→←→BA
379−utf8_txt_0 :: [[Word8]]
378+utf8Txt0 :: [[Word8]]
380−utf8_txt_0 = [ [ 0xe2 , 0x86 , 0x91 ]
379+utf8Txt0 = [ [ 0xe2 , 0x86 , 0x91 ]
381− , [ 0xe2 , 0x86 , 0x91 ]
380+ , [ 0xe2 , 0x86 , 0x91 ]
382− , [ 0xe2 , 0x86 , 0x93 ]
381+ , [ 0xe2 , 0x86 , 0x93 ]
383− , [ 0xe2 , 0x86 , 0x93 ]
382+ , [ 0xe2 , 0x86 , 0x93 ]
384− , [ 0xe2 , 0x86 , 0x90 ]
383+ , [ 0xe2 , 0x86 , 0x90 ]
385− , [ 0xe2 , 0x86 , 0x92 ]
384+ , [ 0xe2 , 0x86 , 0x92 ]
386− , [ 0xe2 , 0x86 , 0x90 ]
385+ , [ 0xe2 , 0x86 , 0x90 ]
387− , [ 0xe2 , 0x86 , 0x92 ]
386+ , [ 0xe2 , 0x86 , 0x92 ]
388− , [ 0x42 ]
387+ , [ 0x42 ]
389− , [ 0x41 ]
388+ , [ 0x41 ]
392−iso_10646_txt_0 :: String
391+iso10646Txt0 :: String
393−iso_10646_txt_0 = map toEnum
392+iso10646Txt0 = map toEnum
@@ -403,46 +402,46 @@ iso_10646_txt_0 = map toEnum
406−unicode_single_width_0 = Test
405+unicodeSingleWidth0 = Test
407− { test_name = "Verify terminal can display unicode single-width characters. (Direct UTF-8)"
406+ { testName = "Verify terminal can display unicode single-width characters. (Direct UTF-8)"
408− , test_ID = "unicode_single_width_0"
407+ , testID = "unicodeSingleWidth0"
409− , test_action = do
408+ , testAction = do
410− t <- current_terminal
409+ t <- standardIOConfig >>= outputForConfig
411− reserve_display t
410+ reserveDisplay t
412− hide_cursor t
411+ hideCursor t
413− withArrayLen (concat utf8_txt_0) (flip $ hPutBuf stdout)
412+ withArrayLen (concat utf8Txt0) (flip $ hPutBuf stdout)
414 hPutStr stdout "\n"
413 hPutStr stdout "\n"
415 hPutStr stdout "0123456789\n"
414 hPutStr stdout "0123456789\n"
416 hFlush stdout
415 hFlush stdout
418− release_display t
417+ releaseDisplay t
419− release_terminal t
418+ releaseTerminal t
420 return ()
419 return ()
421− , print_summary = unicode_single_width_summary
420+ , printSummary = unicodeSingleWidthSummary
422− , confirm_results = generic_output_match_confirm
421+ , confirmResults = genericOutputMatchConfirm
425−unicode_single_width_1 = Test
424+unicodeSingleWidth1 = Test
426− { test_name = "Verify terminal can display unicode single-width characters. (Image ops)"
425+ { testName = "Verify terminal can display unicode single-width characters. (Image ops)"
427− , test_ID = "unicode_single_width_1"
426+ , testID = "unicodeSingleWidth1"
428− , test_action = do
427+ , testAction = do
429− t <- current_terminal
428+ t <- standardIOConfig >>= outputForConfig
430− reserve_display t
429+ reserveDisplay t
431− let pic = pic_for_image image
430+ let pic = picForImage image
432− image = line_0 <-> line_1
431+ image = line0 <-> line1
433− line_0 = iso_10646_string def_attr iso_10646_txt_0
432+ line0 = iso10646String defAttr iso10646Txt0
434− line_1 = string def_attr "0123456789"
433+ line1 = string defAttr "0123456789"
435− d <- display_bounds t >>= display_context t
434+ d <- displayBounds t >>= displayContext t
436− output_picture d pic
435+ outputPicture d pic
438− release_display t
437+ releaseDisplay t
439− release_terminal t
438+ releaseTerminal t
440 return ()
439 return ()
441− , print_summary = unicode_single_width_summary
440+ , printSummary = unicodeSingleWidthSummary
442− , confirm_results = generic_output_match_confirm
441+ , confirmResults = genericOutputMatchConfirm
445−unicode_single_width_summary = putStr [s|
444+unicodeSingleWidthSummary = putStr [s|
446Once return is pressed:
445Once return is pressed:
447 0. The screen will be cleared.
446 0. The screen will be cleared.
448 1. The cursor will be hidden.
447 1. The cursor will be hidden.
@@ -476,55 +475,55 @@ After return is pressed for the second time:
477-- The second example is a unicode string containing double-width glyphs
476-- The second example is a unicode string containing double-width glyphs
479−utf8_txt_1 :: [[Word8]]
478+utf8Txt1 :: [[Word8]]
480−utf8_txt_1 = [ [0xe4,0xbd,0xa0]
479+utf8Txt1 = [ [0xe4,0xbd,0xa0]
481− , [0xe5,0xa5,0xbd]
480+ , [0xe5,0xa5,0xbd]
482− , [0xe5,0x90,0x97]
481+ , [0xe5,0x90,0x97]
485−iso_10646_txt_1 :: String
484+iso10646Txt1 :: String
486−iso_10646_txt_1 = map toEnum [20320,22909,21527]
485+iso10646Txt1 = map toEnum [20320,22909,21527]
488−unicode_double_width_0 = Test
487+unicodeDoubleWidth0 = Test
489− { test_name = "Verify terminal can display unicode double-width characters. (Direct UTF-8)"
488+ { testName = "Verify terminal can display unicode double-width characters. (Direct UTF-8)"
490− , test_ID = "unicode_double_width_0"
489+ , testID = "unicodeDoubleWidth0"
491− , test_action = do
490+ , testAction = do
492− t <- current_terminal
491+ t <- standardIOConfig >>= outputForConfig
493− reserve_display t
492+ reserveDisplay t
494− hide_cursor t
493+ hideCursor t
495− withArrayLen (concat utf8_txt_1) (flip $ hPutBuf stdout)
494+ withArrayLen (concat utf8Txt1) (flip $ hPutBuf stdout)
496 hPutStr stdout "\n"
495 hPutStr stdout "\n"
497 hPutStr stdout "012345\n"
496 hPutStr stdout "012345\n"
498 hFlush stdout
497 hFlush stdout
500− release_display t
499+ releaseDisplay t
501− release_terminal t
500+ releaseTerminal t
502 return ()
501 return ()
503− , print_summary = unicode_double_width_summary
502+ , printSummary = unicodeDoubleWidthSummary
504− , confirm_results = generic_output_match_confirm
503+ , confirmResults = genericOutputMatchConfirm
507−unicode_double_width_1 = Test
506+unicodeDoubleWidth1 = Test
508− { test_name = "Verify terminal can display unicode double-width characters. (Image ops)"
507+ { testName = "Verify terminal can display unicode double-width characters. (Image ops)"
509− , test_ID = "unicode_double_width_1"
508+ , testID = "unicodeDoubleWidth1"
510− , test_action = do
509+ , testAction = do
511− t <- current_terminal
510+ t <- standardIOConfig >>= outputForConfig
512− reserve_display t
511+ reserveDisplay t
513− let pic = pic_for_image image
512+ let pic = picForImage image
514− image = line_0 <-> line_1
513+ image = line0 <-> line1
515− line_0 = iso_10646_string def_attr iso_10646_txt_1
514+ line0 = iso10646String defAttr iso10646Txt1
516− line_1 = string def_attr "012345"
515+ line1 = string defAttr "012345"
517− d <- display_bounds t >>= display_context t
516+ d <- displayBounds t >>= displayContext t
518− output_picture d pic
517+ outputPicture d pic
520− release_display t
519+ releaseDisplay t
521− release_terminal t
520+ releaseTerminal t
522 return ()
521 return ()
523− , print_summary = unicode_double_width_summary
522+ , printSummary = unicodeDoubleWidthSummary
524− , confirm_results = generic_output_match_confirm
523+ , confirmResults = genericOutputMatchConfirm
527−unicode_double_width_summary = putStr [s|
526+unicodeDoubleWidthSummary = putStr [s|
528Once return is pressed:
527Once return is pressed:
529 0. The screen will be cleared.
528 0. The screen will be cleared.
530 1. The cursor will be hidden.
529 1. The cursor will be hidden.
@@ -551,32 +550,32 @@ After return is pressed for the second time:
551 1. The cursor should be visible.
550 1. The cursor should be visible.
554−all_colors = zip [ black, red, green, yellow, blue, magenta, cyan, white ]
553+allColors = zip [ black, red, green, yellow, blue, magenta, cyan, white ]
555− [ "black", "red", "green", "yellow", "blue", "magenta", "cyan", "white" ]
554+ [ "black", "red", "green", "yellow", "blue", "magenta", "cyan", "white" ]
557−all_bright_colors
556+allBrightColors
558− = zip [ bright_black, bright_red, bright_green, bright_yellow, bright_blue, bright_magenta, bright_cyan, bright_white ]
557+ = zip [ brightBlack, brightRed, brightGreen, brightYellow, brightBlue, brightMagenta, brightCyan, brightWhite ]
559 [ "bright black", "bright red", "bright green", "bright yellow", "bright blue", "bright magenta", "bright cyan", "bright white" ]
558 [ "bright black", "bright red", "bright green", "bright yellow", "bright blue", "bright magenta", "bright cyan", "bright white" ]
561−attributes_test_0 = Test
560+attributesTest0 = Test
562− { test_name = "Character attributes: foreground colors."
561+ { testName = "Character attributes: foreground colors."
563− , test_ID = "attributes_test_0"
562+ , testID = "attributesTest0"
564− , test_action = do
563+ , testAction = do
565− t <- current_terminal
564+ t <- standardIOConfig >>= outputForConfig
566− reserve_display t
565+ reserveDisplay t
567− let pic = pic_for_image image
566+ let pic = picForImage image
568− image = border <|> column_0 <|> border <|> column_1 <|> border
567+ image = border <|> column0 <|> border <|> column1 <|> border
569− column_0 = vert_cat $ map line_with_color all_colors
568+ column0 = vertCat $ map lineWithColor allColors
570− border = vert_cat $ replicate (length all_colors) $ string def_attr " | "
569+ border = vertCat $ replicate (length allColors) $ string defAttr " | "
571− column_1 = vert_cat $ map (string def_attr . snd) all_colors
570+ column1 = vertCat $ map (string defAttr . snd) allColors
572− line_with_color (c, c_name) = string (def_attr `with_fore_color` c) c_name
571+ lineWithColor (c, cName) = string (defAttr `withForeColor` c) cName
573− d <- display_bounds t >>= display_context t
572+ d <- displayBounds t >>= displayContext t
574− output_picture d pic
573+ outputPicture d pic
576− release_display t
575+ releaseDisplay t
577− release_terminal t
576+ releaseTerminal t
578 return ()
577 return ()
579− , print_summary = do
578+ , printSummary = do
580 putStr $ [s|
579 putStr $ [s|
581Once return is pressed:
580Once return is pressed:
582 0. The screen will be cleared.
581 0. The screen will be cleared.
@@ -597,32 +596,32 @@ After return is pressed for the second time:
597 0. The screen containing the test summary should be restored.
596 0. The screen containing the test summary should be restored.
598 1. The cursor should be visible.
597 1. The cursor should be visible.
600− , confirm_results = do
599+ , confirmResults = do
601 putStr $ [s|
600 putStr $ [s|
602Did the test output match the description?
601Did the test output match the description?
604− default_success_confirm_results
603+ defaultSuccessConfirmResults
607−attributes_test_1 = Test
606+attributesTest1 = Test
608− { test_name = "Character attributes: background colors."
607+ { testName = "Character attributes: background colors."
609− , test_ID = "attributes_test_1"
608+ , testID = "attributesTest1"
610− , test_action = do
609+ , testAction = do
611− t <- current_terminal
610+ t <- standardIOConfig >>= outputForConfig
612− reserve_display t
611+ reserveDisplay t
613− let pic = pic_for_image image
612+ let pic = picForImage image
614− image = border <|> column_0 <|> border <|> column_1 <|> border
613+ image = border <|> column0 <|> border <|> column1 <|> border
615− column_0 = vert_cat $ map line_with_color all_colors
614+ column0 = vertCat $ map lineWithColor allColors
616− border = vert_cat $ replicate (length all_colors) $ string def_attr " | "
615+ border = vertCat $ replicate (length allColors) $ string defAttr " | "
617− column_1 = vert_cat $ map (string def_attr . snd) all_colors
616+ column1 = vertCat $ map (string defAttr . snd) allColors
618− line_with_color (c, c_name) = string (def_attr `with_back_color` c) c_name
617+ lineWithColor (c, cName) = string (defAttr `withBackColor` c) cName
619− d <- display_bounds t >>= display_context t
618+ d <- displayBounds t >>= displayContext t
620− output_picture d pic
619+ outputPicture d pic
622− release_display t
621+ releaseDisplay t
623− release_terminal t
622+ releaseTerminal t
624 return ()
623 return ()
625− , print_summary = do
624+ , printSummary = do
626 putStr $ [s|
625 putStr $ [s|
627Once return is pressed:
626Once return is pressed:
628 0. The screen will be cleared.
627 0. The screen will be cleared.
@@ -652,57 +651,57 @@ After return is pressed for the second time:
652 0. The screen containing the test summary should be restored.
651 0. The screen containing the test summary should be restored.
653 1. The cursor should be visible.
652 1. The cursor should be visible.
655− , confirm_results = do
654+ , confirmResults = do
656 putStr $ [s|
655 putStr $ [s|
657Did the test output match the description?
656Did the test output match the description?
659− default_success_confirm_results
658+ defaultSuccessConfirmResults
662−attributes_test_2 = Test
661+attributesTest2 = Test
663− { test_name = "Character attributes: Vivid foreground colors."
662+ { testName = "Character attributes: Vivid foreground colors."
664− , test_ID = "attributes_test_2"
663+ , testID = "attributesTest2"
665− , test_action = do
664+ , testAction = do
666− t <- current_terminal
665+ t <- standardIOConfig >>= outputForConfig
667− reserve_display t
666+ reserveDisplay t
668− let pic = pic_for_image image
667+ let pic = picForImage image
669− image = horiz_cat [border, column_0, border, column_1, border, column_2, border]
668+ image = horizCat [border, column0, border, column1, border, column2, border]
670− border = vert_cat $ replicate (length all_colors) $ string def_attr " | "
669+ border = vertCat $ replicate (length allColors) $ string defAttr " | "
671− column_0 = vert_cat $ map line_with_color_0 all_colors
670+ column0 = vertCat $ map lineWithColor0 allColors
672− column_1 = vert_cat $ map line_with_color_1 all_bright_colors
671+ column1 = vertCat $ map lineWithColor1 allBrightColors
673− column_2 = vert_cat $ map (string def_attr . snd) all_colors
672+ column2 = vertCat $ map (string defAttr . snd) allColors
674− line_with_color_0 (c, c_name) = string (def_attr `with_fore_color` c) c_name
673+ lineWithColor0 (c, cName) = string (defAttr `withForeColor` c) cName
675− line_with_color_1 (c, c_name) = string (def_attr `with_fore_color` c) c_name
674+ lineWithColor1 (c, cName) = string (defAttr `withForeColor` c) cName
676− d <- display_bounds t >>= display_context t
675+ d <- displayBounds t >>= displayContext t
677− output_picture d pic
676+ outputPicture d pic
679− release_display t
678+ releaseDisplay t
680− release_terminal t
679+ releaseTerminal t
681 return ()
680 return ()
682− , print_summary = do
681+ , printSummary = do
683 putStr $ [s|
682 putStr $ [s|
684Once return is pressed:
683Once return is pressed:
685 0. The screen will be cleared.
684 0. The screen will be cleared.
686 1. The cursor will be hidden.
685 1. The cursor will be hidden.
687 2. 9 lines of text in three columns will be drawn:
686 2. 9 lines of text in three columns will be drawn:
688 a. The first column will be a name of a standard color (for an 8 color
687 a. The first column will be a name of a standard color (for an 8 color
689− terminal) rendered with that color as the foreground color.
688+ terminal) rendered with that color as the foreground color.
690 b. The next column will be also be the name of a standard color rendered
689 b. The next column will be also be the name of a standard color rendered
691 with that color as the foreground color but the shade used should be
690 with that color as the foreground color but the shade used should be
692− more vivid than the shade used in the first column.
691+ more vivid than the shade used in the first column.
693 c. The final column will be the name of a color rendered with the
692 c. The final column will be the name of a color rendered with the
694 default attributes.
693 default attributes.
696For instance, one line will be the word "magenta" and that word should be
695For instance, one line will be the word "magenta" and that word should be
697−rendered in the magenta color.
696+rendered in the magenta color.
699I'm not actually sure exactly what "vivid" means in this context. For xterm the
698I'm not actually sure exactly what "vivid" means in this context. For xterm the
700−vivid colors are brighter.
699+vivid colors are brighter.
703 * The first column: The foreground color matches the named color.
702 * The first column: The foreground color matches the named color.
704 * The second column: The foreground color matches the named color but is
703 * The second column: The foreground color matches the named color but is
705− more vivid than the color used in the first column.
704+ more vivid than the color used in the first column.
706 * The third column: All text is rendered with the default attributes.
705 * The third column: All text is rendered with the default attributes.
707 * The vertical bars used in each line to mark the border of a column are
706 * The vertical bars used in each line to mark the border of a column are
708 lined up.
707 lined up.
@@ -711,34 +710,34 @@ After return is pressed for the second time:
711 0. The screen containing the test summary should be restored.
710 0. The screen containing the test summary should be restored.
712 1. The cursor should be visible.
711 1. The cursor should be visible.
714− , confirm_results = do
713+ , confirmResults = do
715 putStr $ [s|
714 putStr $ [s|
716Did the test output match the description?
715Did the test output match the description?
718− default_success_confirm_results
717+ defaultSuccessConfirmResults
721−attributes_test_3 = Test
720+attributesTest3 = Test
722− { test_name = "Character attributes: Vivid background colors."
721+ { testName = "Character attributes: Vivid background colors."
723− , test_ID = "attributes_test_3"
722+ , testID = "attributesTest3"
724− , test_action = do
723+ , testAction = do
725− t <- current_terminal
724+ t <- standardIOConfig >>= outputForConfig
726− reserve_display t
725+ reserveDisplay t
727− let pic = pic_for_image image
726+ let pic = picForImage image
728− image = horiz_cat [border, column_0, border, column_1, border, column_2, border]
727+ image = horizCat [border, column0, border, column1, border, column2, border]
729− border = vert_cat $ replicate (length all_colors) $ string def_attr " | "
728+ border = vertCat $ replicate (length allColors) $ string defAttr " | "
730− column_0 = vert_cat $ map line_with_color_0 all_colors
729+ column0 = vertCat $ map lineWithColor0 allColors
731− column_1 = vert_cat $ map line_with_color_1 all_bright_colors
730+ column1 = vertCat $ map lineWithColor1 allBrightColors
732− column_2 = vert_cat $ map (string def_attr . snd) all_colors
731+ column2 = vertCat $ map (string defAttr . snd) allColors
733− line_with_color_0 (c, c_name) = string (def_attr `with_back_color` c) c_name
732+ lineWithColor0 (c, cName) = string (defAttr `withBackColor` c) cName
734− line_with_color_1 (c, c_name) = string (def_attr `with_back_color` c) c_name
733+ lineWithColor1 (c, cName) = string (defAttr `withBackColor` c) cName
735− d <- display_bounds t >>= display_context t
734+ d <- displayBounds t >>= displayContext t
736− output_picture d pic
735+ outputPicture d pic
738− release_display t
737+ releaseDisplay t
739− release_terminal t
738+ releaseTerminal t
740 return ()
739 return ()
741− , print_summary = do
740+ , printSummary = do
742 putStr $ [s|
741 putStr $ [s|
743Once return is pressed:
742Once return is pressed:
744 0. The screen will be cleared.
743 0. The screen will be cleared.
@@ -746,23 +745,23 @@ Once return is pressed:
746 2. 9 lines of text in three columns will be drawn:
745 2. 9 lines of text in three columns will be drawn:
747 a. The first column will contain be a name of a standard color for an 8
746 a. The first column will contain be a name of a standard color for an 8
748 color terminal rendered with the default foreground color with a
747 color terminal rendered with the default foreground color with a
749− background the named color.
748+ background the named color.
750 b. The first column will contain be a name of a standard color for an 8
749 b. The first column will contain be a name of a standard color for an 8
751 color terminal rendered with the default foreground color with the
750 color terminal rendered with the default foreground color with the
752− background a vivid version of the named color.
751+ background a vivid version of the named color.
753 c. The third column will be the name of a standard color rendered with
752 c. The third column will be the name of a standard color rendered with
754 the default attributes.
753 the default attributes.
756For instance, one line will contain be the word "magenta" and the word should
755For instance, one line will contain be the word "magenta" and the word should
757−be rendered in the default foreground color over a magenta background.
756+be rendered in the default foreground color over a magenta background.
759I'm not actually sure exactly what "vivid" means in this context. For xterm the
758I'm not actually sure exactly what "vivid" means in this context. For xterm the
760vivid colors are brighter.
759vivid colors are brighter.
763 * The first column: The background color matches the named color.
762 * The first column: The background color matches the named color.
764 * The second column: The background color matches the named color and is
763 * The second column: The background color matches the named color and is
765− more vivid than the color used in the first column.
764+ more vivid than the color used in the first column.
766 * The third column column: All text is rendered with the default attributes.
765 * The third column column: All text is rendered with the default attributes.
767 * The vertical bars used in each line to mark the border of a column are
766 * The vertical bars used in each line to mark the border of a column are
768 lined up.
767 lined up.
@@ -778,51 +777,51 @@ After return is pressed for the second time:
778 0. The screen containing the test summary should be restored.
777 0. The screen containing the test summary should be restored.
779 1. The cursor should be visible.
778 1. The cursor should be visible.
781− , confirm_results = do
780+ , confirmResults = do
782 putStr $ [s|
781 putStr $ [s|
783Did the test output match the description?
782Did the test output match the description?
785− default_success_confirm_results
784+ defaultSuccessConfirmResults
788−attr_combos =
787+attrCombos =
789 [ ( "default", id )
788 [ ( "default", id )
790− , ( "bold", flip with_style bold )
789+ , ( "bold", flip withStyle bold )
791− , ( "blink", flip with_style blink )
790+ , ( "blink", flip withStyle blink )
792− , ( "underline", flip with_style underline )
791+ , ( "underline", flip withStyle underline )
793− , ( "bold + blink", flip with_style (bold + blink) )
792+ , ( "bold + blink", flip withStyle (bold + blink) )
794− , ( "bold + underline", flip with_style (bold + underline) )
793+ , ( "bold + underline", flip withStyle (bold + underline) )
795− , ( "underline + blink", flip with_style (underline + blink) )
794+ , ( "underline + blink", flip withStyle (underline + blink) )
796− , ( "bold + blink + underline", flip with_style (bold + blink + underline) )
795+ , ( "bold + blink + underline", flip withStyle (bold + blink + underline) )
799−attributes_test_4 = Test
798+attributesTest4 = Test
800− { test_name = "Character attributes: Bold; Blink; Underline."
799+ { testName = "Character attributes: Bold; Blink; Underline."
801− , test_ID = "attributes_test_4"
800+ , testID = "attributesTest4"
802− , test_action = do
801+ , testAction = do
803− t <- current_terminal
802+ t <- standardIOConfig >>= outputForConfig
804− reserve_display t
803+ reserveDisplay t
805− let pic = pic_for_image image
804+ let pic = picForImage image
806− image = horiz_cat [border, column_0, border, column_1, border]
805+ image = horizCat [border, column0, border, column1, border]
807− border = vert_cat $ replicate (length attr_combos) $ string def_attr " | "
806+ border = vertCat $ replicate (length attrCombos) $ string defAttr " | "
808− column_0 = vert_cat $ map line_with_attrs attr_combos
807+ column0 = vertCat $ map lineWithAttrs attrCombos
809− column_1 = vert_cat $ map (string def_attr . fst) attr_combos
808+ column1 = vertCat $ map (string defAttr . fst) attrCombos
810− line_with_attrs (desc, attr_f) = string (attr_f def_attr) desc
809+ lineWithAttrs (desc, attrF) = string (attrF defAttr) desc
811− d <- display_bounds t >>= display_context t
810+ d <- displayBounds t >>= displayContext t
812− output_picture d pic
811+ outputPicture d pic
814− release_display t
813+ releaseDisplay t
815− release_terminal t
814+ releaseTerminal t
816 return ()
815 return ()
817− , print_summary = do
816+ , printSummary = do
818 putStr $ [s|
817 putStr $ [s|
819Once return is pressed:
818Once return is pressed:
820 0. The screen will be cleared.
819 0. The screen will be cleared.
821 1. The cursor will be hidden.
820 1. The cursor will be hidden.
822− 2. 8 rows of text in two columns.
821+ 2. 8 rows of text in two columns.
823 The rows will contain the following text:
822 The rows will contain the following text:
827 underline
826 underline
828 bold + blink
827 bold + blink
@@ -831,8 +830,8 @@ Once return is pressed:
831 bold + blink + underline
830 bold + blink + underline
832 The first column will be rendered with the described attributes. The second
831 The first column will be rendered with the described attributes. The second
833 column will be rendered with the default attributes.
832 column will be rendered with the default attributes.
836 * The vertical bars used in each line to mark the border of a column are
835 * The vertical bars used in each line to mark the border of a column are
837 lined up.
836 lined up.
838 * The text in the first column is rendered as described.
837 * The text in the first column is rendered as described.
@@ -841,31 +840,31 @@ After return is pressed for the second time:
841 0. The screen containing the test summary should be restored.
840 0. The screen containing the test summary should be restored.
842 1. The cursor should be visible.
841 1. The cursor should be visible.
844− , confirm_results = do
843+ , confirmResults = do
845 putStr $ [s|
844 putStr $ [s|
846Did the test output match the description?
845Did the test output match the description?
848− default_success_confirm_results
847+ defaultSuccessConfirmResults
851−attributes_test_5 = Test
850+attributesTest5 = Test
852− { test_name = "Character attributes: 240 color palette"
851+ { testName = "Character attributes: 240 color palette"
853− , test_ID = "attributes_test_5"
852+ , testID = "attributesTest5"
854− , test_action = do
853+ , testAction = do
855− t <- current_terminal
854+ t <- standardIOConfig >>= outputForConfig
856− reserve_display t
855+ reserveDisplay t
857− let pic = pic_for_image image
856+ let pic = picForImage image
858− image = vert_cat $ map horiz_cat $ split_color_images color_images
857+ image = vertCat $ map horizCat $ splitColorImages colorImages
859− color_images = map (\i -> string (current_attr `with_back_color` Color240 i) " ") [0..239]
858+ colorImages = map (\i -> string (currentAttr `withBackColor` Color240 i) " ") [0..239]
860− split_color_images [] = []
859+ splitColorImages [] = []
861− split_color_images is = (take 20 is ++ [string def_attr " "]) : (split_color_images (drop 20 is))
860+ splitColorImages is = (take 20 is ++ [string defAttr " "]) : (splitColorImages (drop 20 is))
862− d <- display_bounds t >>= display_context t
861+ d <- displayBounds t >>= displayContext t
863− output_picture d pic
862+ outputPicture d pic
865− release_display t
864+ releaseDisplay t
866− release_terminal t
865+ releaseTerminal t
867 return ()
866 return ()
868− , print_summary = do
867+ , printSummary = do
869 putStr $ [s|
868 putStr $ [s|
870Once return is pressed:
869Once return is pressed:
871 0. The screen will be cleared.
870 0. The screen will be cleared.
@@ -873,296 +872,304 @@ Once return is pressed:
873 2. A 20 character wide and 12 row high block of color squares. This should look like a palette
872 2. A 20 character wide and 12 row high block of color squares. This should look like a palette
874 of some sort. I'm not exactly sure if all color terminals use the same palette. I doubt it...
873 of some sort. I'm not exactly sure if all color terminals use the same palette. I doubt it...
878After return is pressed for the second time:
877After return is pressed for the second time:
879 0. The screen containing the test summary should be restored.
878 0. The screen containing the test summary should be restored.
880 1. The cursor should be visible.
879 1. The cursor should be visible.
882− , confirm_results = do
881+ , confirmResults = do
883 putStr $ [s|
882 putStr $ [s|
884Did the test output match the description?
883Did the test output match the description?
886− default_success_confirm_results
885+ defaultSuccessConfirmResults
889−inline_test_0 = Test
888+inlineTest0 = Test
890− { test_name = "Verify styled output can be performed without clearing the screen."
889+ { testName = "Verify styled output can be performed without clearing the screen."
891− , test_ID = "inline_test_0"
890+ , testID = "inlineTest0"
892− , test_action = do
891+ , testAction = do
893 putStrLn "line 1."
892 putStrLn "line 1."
894− put_attr_change_ $ back_color red >> apply_style underline
893+ putAttrChange_ $ backColor red >> applyStyle underline
895 putStrLn "line 2."
894 putStrLn "line 2."
896− put_attr_change_ $ default_all
895+ putAttrChange_ $ defaultAll
897 putStrLn "line 3."
896 putStrLn "line 3."
898− , print_summary = putStr $ [s|
897+ , printSummary = putStr $ [s|
899lines are in order.
898lines are in order.
900The second line "line 2" should have a red background and the text underline.
899The second line "line 2" should have a red background and the text underline.
901The third line "line 3" should be drawn in the same style as the first line.
900The third line "line 3" should be drawn in the same style as the first line.
904− , confirm_results = generic_output_match_confirm
903+ , confirmResults = genericOutputMatchConfirm
907−inline_test_1 = Test
906+inlineTest1 = Test
908− { test_name = "Verify styled output can be performed without clearing the screen."
907+ { testName = "Verify styled output can be performed without clearing the screen."
909− , test_ID = "inline_test_1"
908+ , testID = "inlineTest1"
910− , test_action = do
909+ , testAction = do
911 putStr "Not styled. "
910 putStr "Not styled. "
912− put_attr_change_ $ back_color red >> apply_style underline
911+ putAttrChange_ $ backColor red >> applyStyle underline
913 putStr " Styled! "
912 putStr " Styled! "
914− put_attr_change_ $ default_all
913+ putAttrChange_ $ defaultAll
915 putStrLn "Not styled."
914 putStrLn "Not styled."
916− , print_summary = putStr $ [s|
915+ , printSummary = putStr $ [s|
919− , confirm_results = generic_output_match_confirm
918+ , confirmResults = genericOutputMatchConfirm
922−inline_test_2 = Test
921+inlineTest2 = Test
923− { test_name = "Verify styled output can be performed without clearing the screen."
922+ { testName = "Verify styled output can be performed without clearing the screen."
924− , test_ID = "inline_test_1"
923+ , testID = "inlineTest1"
925− , test_action = do
924+ , testAction = do
926 putStr "Not styled. "
925 putStr "Not styled. "
927− put_attr_change_ $ back_color red >> apply_style underline
926+ putAttrChange_ $ backColor red >> applyStyle underline
928 putStr " Styled! "
927 putStr " Styled! "
929− put_attr_change_ $ default_all
928+ putAttrChange_ $ defaultAll
930 putStr "Not styled.\n"
929 putStr "Not styled.\n"
931− , print_summary = putStr $ [s|
930+ , printSummary = putStr $ [s|
933− , confirm_results = generic_output_match_confirm
932+ , confirmResults = genericOutputMatchConfirm
936−cursor_hide_test_0 :: Test
935+cursorHideTest0 :: Test
937−cursor_hide_test_0 = Test
936+cursorHideTest0 = Test
938− { test_name = "Verify the cursor is hid and re-shown. issue #7"
937+ { testName = "Verify the cursor is hid and re-shown. issue #7"
939− , test_ID = "cursor_hide_test_0"
938+ , testID = "cursorHideTest0"
940− , test_action = do
939+ , testAction = do
941− vty <- mkVty
940+ vty <- mkVty defaultConfig
942− show_cursor $ terminal vty
941+ showCursor $ outputIface vty
943− set_cursor_pos (terminal vty) 5 5
942+ setCursorPos (outputIface vty) 5 5
944− next_event vty
943+ nextEvent vty
945− hide_cursor $ terminal vty
944+ hideCursor $ outputIface vty
946− next_event vty
945+ nextEvent vty
947 shutdown vty
946 shutdown vty
948 return ()
947 return ()
949− , print_summary = putStr $ [s|
948+ , printSummary = putStr $ [s|
950 1. verify the cursor is displayed.
949 1. verify the cursor is displayed.
951 2. press enter
950 2. press enter
952 3. verify the cursor is hid.
951 3. verify the cursor is hid.
953 4. press enter.
952 4. press enter.
954 5. the display should return to the state before the test.
953 5. the display should return to the state before the test.
956− , confirm_results = generic_output_match_confirm
955+ , confirmResults = genericOutputMatchConfirm
959−output_image_and_wait :: Image -> IO ()
958+outputImageAndWait :: Image -> IO ()
960−output_image_and_wait image = do
959+outputImageAndWait image = do
961− let pic = pic_for_image image
960+ let pic = picForImage image
962− output_pic_and_wait pic
961+ outputPicAndWait pic
964−output_pic_and_wait :: Picture -> IO ()
963+outputPicAndWait :: Picture -> IO ()
965−output_pic_and_wait pic = do
964+outputPicAndWait pic = do
966− t <- current_terminal
965+ t <- standardIOConfig >>= outputForConfig
967− reserve_display t
966+ reserveDisplay t
968− d <- display_bounds t >>= display_context t
967+ d <- displayBounds t >>= displayContext t
969− output_picture d pic
968+ outputPicture d pic
971− release_display t
970+ releaseDisplay t
972− release_terminal t
971+ releaseTerminal t
973 return ()
972 return ()
975−vert_crop_test_0 :: Test
974+vertCropTest0 :: Test
976−vert_crop_test_0 = Test
975+vertCropTest0 = Test
977− { test_name = "Verify bottom cropping works as expected with single column chars"
976+ { testName = "Verify bottom cropping works as expected with single column chars"
978− , test_ID = "crop_test_0"
977+ , testID = "cropTest0"
979− , test_action = do
978+ , testAction = do
980− let block_0 = crop_bottom 2 $ vert_cat $ map (string def_attr) lorum_ipsum
979+ let block0 = cropBottom 2 $ vertCat $ map (string defAttr) lorumIpsum
981− block_1 = vert_cat $ map (string def_attr) $ take 2 lorum_ipsum
980+ block1 = vertCat $ map (string defAttr) $ take 2 lorumIpsum
982− image = block_0 <-> background_fill 10 2 <-> block_1
981+ image = block0 <-> backgroundFill 10 2 <-> block1
983− output_image_and_wait image
982+ outputImageAndWait image
984− , print_summary = putStr $ [s|
983+ , printSummary = putStr $ [s|
985 1. Verify the two text blocks are identical.
984 1. Verify the two text blocks are identical.
986 2. press enter.
985 2. press enter.
987 3. the display should return to the state before the test.
986 3. the display should return to the state before the test.
989− , confirm_results = generic_output_match_confirm
988+ , confirmResults = genericOutputMatchConfirm
992−vert_crop_test_1 :: Test
991+vertCropTest1 :: Test
993−vert_crop_test_1 = Test
992+vertCropTest1 = Test
994− { test_name = "Verify bottom cropping works as expected with double column chars"
993+ { testName = "Verify bottom cropping works as expected with double column chars"
995− , test_ID = "crop_test_0"
994+ , testID = "cropTest0"
996− , test_action = do
995+ , testAction = do
997− let block_0 = crop_bottom 2 $ vert_cat $ map (string def_attr) lorum_ipsum_chinese
996+ let block0 = cropBottom 2 $ vertCat $ map (string defAttr) lorumIpsumChinese
998− block_1 = vert_cat $ map (string def_attr) $ take 2 lorum_ipsum_chinese
997+ block1 = vertCat $ map (string defAttr) $ take 2 lorumIpsumChinese
999− image = block_0 <-> background_fill 10 2 <-> block_1
998+ image = block0 <-> backgroundFill 10 2 <-> block1
1000− output_image_and_wait image
999+ outputImageAndWait image
1001− , print_summary = putStr $ [s|
1000+ , printSummary = putStr $ [s|
1002 1. Verify the two text blocks are identical.
1001 1. Verify the two text blocks are identical.
1003 2. press enter.
1002 2. press enter.
1004 3. the display should return to the state before the test.
1003 3. the display should return to the state before the test.
1006− , confirm_results = generic_output_match_confirm
1005+ , confirmResults = genericOutputMatchConfirm
1009−vert_crop_test_2 :: Test
1008+vertCropTest2 :: Test
1010−vert_crop_test_2 = Test
1009+vertCropTest2 = Test
1011− { test_name = "Verify top cropping works as expected with single column chars"
1010+ { testName = "Verify top cropping works as expected with single column chars"
1012− , test_ID = "crop_test_0"
1011+ , testID = "cropTest2"
1013− , test_action = do
1012+ , testAction = do
1014− let block_0 = crop_top 2 $ vert_cat $ map (string def_attr) lorum_ipsum
1013+ let block0 = cropTop 2 $ vertCat $ map (string defAttr) lorumIpsum
1015− block_1 = vert_cat $ map (string def_attr) $ drop (length lorum_ipsum - 2) lorum_ipsum
1014+ block1 = vertCat $ map (string defAttr) $ drop (length lorumIpsum - 2) lorumIpsum
1016− image = block_0 <-> background_fill 10 2 <-> block_1
1015+ image = block0 <-> backgroundFill 10 2 <-> block1
1017− output_image_and_wait image
1016+ outputImageAndWait image
1018− , print_summary = putStr $ [s|
1017+ , printSummary = putStr $ [s|
1019 1. Verify the two text blocks are identical.
1018 1. Verify the two text blocks are identical.
1020 2. press enter.
1019 2. press enter.
1021 3. the display should return to the state before the test.
1020 3. the display should return to the state before the test.
1023− , confirm_results = generic_output_match_confirm
1022+ , confirmResults = genericOutputMatchConfirm
1026−vert_crop_test_3 :: Test
1025+vertCropTest3 :: Test
1027−vert_crop_test_3 = Test
1026+vertCropTest3 = Test
1028− { test_name = "Verify top cropping works as expected with double column chars"
1027+ { testName = "Verify top cropping works as expected with double column chars"
1029− , test_ID = "crop_test_0"
1028+ , testID = "cropTest0"
1030− , test_action = do
1029+ , testAction = do
1031− let block_0 = crop_top 2 $ vert_cat $ map (string def_attr) lorum_ipsum_chinese
1030+ let block0 = cropTop 2 $ vertCat $ map (string defAttr) lorumIpsumChinese
1032− block_1 = vert_cat $ map (string def_attr) $ drop (length lorum_ipsum_chinese - 2 ) lorum_ipsum_chinese
1031+ block1 = vertCat $ map (string defAttr) $ drop (length lorumIpsumChinese - 2 ) lorumIpsumChinese
1033− image = block_0 <-> background_fill 10 2 <-> block_1
1032+ image = block0 <-> backgroundFill 10 2 <-> block1
1034− output_image_and_wait image
1033+ outputImageAndWait image
1035− , print_summary = putStr $ [s|
1034+ , printSummary = putStr $ [s|
1036 1. Verify the two text blocks are identical.
1035 1. Verify the two text blocks are identical.
1037 2. press enter.
1036 2. press enter.
1038 3. the display should return to the state before the test.
1037 3. the display should return to the state before the test.
1040− , confirm_results = generic_output_match_confirm
1039+ , confirmResults = genericOutputMatchConfirm
1043−horiz_crop_test_0 :: Test
1042+horizCropTest0 :: Test
1044−horiz_crop_test_0 = Test
1043+horizCropTest0 = Test
1045− { test_name = "Verify right cropping works as expected with single column chars"
1044+ { testName = "Verify right cropping works as expected with single column chars"
1046− , test_ID = "crop_test_0"
1045+ , testID = "cropTest0"
1047− , test_action = do
1046+ , testAction = do
1048− let base_image = vert_cat $ map (string def_attr) lorum_ipsum
1047+ let baseImage = vertCat $ map (string defAttr) lorumIpsum
1049− cropped_image = crop_right (image_width base_image `div` 2) base_image
1048+ croppedImage = cropRight (imageWidth baseImage `div` 2) baseImage
1050− image = base_image <-> background_fill 10 2 <-> cropped_image
1049+ image = baseImage <-> backgroundFill 10 2 <-> croppedImage
1051− output_image_and_wait image
1050+ outputImageAndWait image
1052− , print_summary = putStr $ [s|
1051+ , printSummary = putStr $ [s|
1053 1. Verify the bottom text block is about half the width of the top text block.
1052 1. Verify the bottom text block is about half the width of the top text block.
1054 2. press enter.
1053 2. press enter.
1055 3. the display should return to the state before the test.
1054 3. the display should return to the state before the test.
1057− , confirm_results = generic_output_match_confirm
1056+ , confirmResults = genericOutputMatchConfirm
1060−horiz_crop_test_1 :: Test
1059+horizCropTest1 :: Test
1061−horiz_crop_test_1 = Test
1060+horizCropTest1 = Test
1062− { test_name = "Verify right cropping works as expected with double column chars"
1061+ { testName = "Verify right cropping works as expected with double column chars"
1063− , test_ID = "crop_test_0"
1062+ , testID = "cropTest0"
1064− , test_action = do
1063+ , testAction = do
1065− let base_image = vert_cat $ map (string def_attr) lorum_ipsum_chinese
1064+ let baseImage = vertCat $ map (string defAttr) lorumIpsumChinese
1066− cropped_image = crop_right (image_width base_image `div` 2) base_image
1065+ croppedImage = cropRight (imageWidth baseImage `div` 2) baseImage
1067− image = base_image <-> background_fill 10 2 <-> cropped_image
1066+ image = baseImage <-> backgroundFill 10 2 <-> croppedImage
1068− output_image_and_wait image
1067+ outputImageAndWait image
1069− , print_summary = putStr $ [s|
1068+ , printSummary = putStr $ [s|
1070 1. Verify the bottom text block is the left half of the top block. Ellipses on the right edge are OK.
1069 1. Verify the bottom text block is the left half of the top block. Ellipses on the right edge are OK.
1071 2. press enter.
1070 2. press enter.
1072 3. the display should return to the state before the test.
1071 3. the display should return to the state before the test.
1074− , confirm_results = generic_output_match_confirm
1073+ , confirmResults = genericOutputMatchConfirm
1077−horiz_crop_test_2 :: Test
1076+horizCropTest2 :: Test
1078−horiz_crop_test_2 = Test
1077+horizCropTest2 = Test
1079− { test_name = "Verify left cropping works as expected with single column chars"
1078+ { testName = "Verify left cropping works as expected with single column chars"
1080− , test_ID = "crop_test_0"
1079+ , testID = "cropTest0"
1081− , test_action = do
1080+ , testAction = do
1082− let base_image = vert_cat $ map (string def_attr) lorum_ipsum
1081+ let baseImage = vertCat $ map (string defAttr) lorumIpsum
1083− cropped_image = crop_left (image_width base_image `div` 2) base_image
1082+ croppedImage = cropLeft (imageWidth baseImage `div` 2) baseImage
1084− image = base_image <-> background_fill 10 2 <-> cropped_image
1083+ image = baseImage <-> backgroundFill 10 2 <-> croppedImage
1085− output_image_and_wait image
1084+ outputImageAndWait image
1086− , print_summary = putStr $ [s|
1085+ , printSummary = putStr $ [s|
1087 1. Verify the bottom text block is the right half of the top text block.
1086 1. Verify the bottom text block is the right half of the top text block.
1088 2. press enter.
1087 2. press enter.
1089 3. the display should return to the state before the test.
1088 3. the display should return to the state before the test.
1091− , confirm_results = generic_output_match_confirm
1090+ , confirmResults = genericOutputMatchConfirm
1094−horiz_crop_test_3 :: Test
1093+horizCropTest3 :: Test
1095−horiz_crop_test_3 = Test
1094+horizCropTest3 = Test
1096− { test_name = "Verify right cropping works as expected with double column chars"
1095+ { testName = "Verify right cropping works as expected with double column chars"
1097− , test_ID = "crop_test_0"
1096+ , testID = "cropTest0"
1098− , test_action = do
1097+ , testAction = do
1099− let base_image = vert_cat $ map (string def_attr) lorum_ipsum_chinese
1098+ let baseImage = vertCat $ map (string defAttr) lorumIpsumChinese
1100− cropped_image = crop_left (image_width base_image `div` 2) base_image
1099+ croppedImage = cropLeft (imageWidth baseImage `div` 2) baseImage
1101− image = base_image <-> background_fill 10 2 <-> cropped_image
1100+ image = baseImage <-> backgroundFill 10 2 <-> croppedImage
1102− output_image_and_wait image
1101+ outputImageAndWait image
1103− , print_summary = putStr $ [s|
1102+ , printSummary = putStr $ [s|
1104 1. Verify the bottom text block is the right half of the top block. Ellipses on the left edge are OK.
1103 1. Verify the bottom text block is the right half of the top block. Ellipses on the left edge are OK.
1105 2. press enter.
1104 2. press enter.
1106 3. the display should return to the state before the test.
1105 3. the display should return to the state before the test.
1108− , confirm_results = generic_output_match_confirm
1107+ , confirmResults = genericOutputMatchConfirm
1111−layer_0 :: Test
1110+layer0 :: Test
1112−layer_0 = Test
1111+layer0 = Test
1113− { test_name = "verify layer 0"
1112+ { testName = "verify layer 0"
1114− , test_ID = "layer_0"
1113+ , testID = "layer0"
1115− , test_action = do
1114+ , testAction = do
1116− let upper_image = vert_cat $ map (string def_attr) lorum_ipsum_chinese
1115+ let upperImage = vertCat $ map (string defAttr) lorumIpsumChinese
1117− lower_image = vert_cat $ map (string def_attr) lorum_ipsum
1116+ lowerImage = vertCat $ map (string defAttr) lorumIpsum
1118− p = pic_for_layers [upper_image, lower_image]
1117+ p = picForLayers [upperImage, lowerImage]
1119− output_pic_and_wait p
1118+ outputPicAndWait p
1120− , print_summary = putStr $ [s|
1119+ , printSummary = putStr $ [s|
1121 1. Verify the text block appears to be Chinese text placed on top Latin text.
1120 1. Verify the text block appears to be Chinese text placed on top Latin text.
1122 2. press enter.
1121 2. press enter.
1123 3. the display should return to the state before the test.
1122 3. the display should return to the state before the test.
1125− , confirm_results = generic_output_match_confirm
1124+ , confirmResults = genericOutputMatchConfirm
1128−layer_1 :: Test
1127+layer1 :: Test
1129−layer_1 = Test
1128+layer1 = Test
1130− { test_name = "verify layer 1"
1129+ { testName = "verify layer 1"
1131− , test_ID = "layer_1"
1130+ , testID = "layer1"
1132− , test_action = do
1131+ , testAction = do
1133− let upper_image = vert_cat $ map (string def_attr) lorum_ipsum_chinese
1132+ let upperImage = vertCat $ map (string defAttr) lorumIpsumChinese
1134− block = resize 10 10 upper_image
1133+ block = resize 10 10 upperImage
1135− layer_0 = vert_cat $ map (string def_attr) lorum_ipsum
1134+ layer0 = vertCat $ map (string defAttr) lorumIpsum
1136− layer_1 = char_fill (def_attr `with_back_color` blue) '#' 1000 1000
1135+ layer1 = charFill (defAttr `withBackColor` blue) '#' 1000 1000
1137− cheesy_anim_0 block [layer_0, layer_1]
1136+ cheesyAnim0 block [layer0, layer1]
1138− , print_summary = putStr $ [s|
1137+ , printSummary = putStr $ [s|
1139 1. Verify the text block appears to be Chinese text moving on top a Latin text.
1138 1. Verify the text block appears to be Chinese text moving on top a Latin text.
1140 Which is all on a background of '#' characters over blue.
1139 Which is all on a background of '#' characters over blue.
1141 2. press enter.
1140 2. press enter.
1142 3. the display should return to the state before the test.
1141 3. the display should return to the state before the test.
1144− , confirm_results = generic_output_match_confirm
1143+ , confirmResults = genericOutputMatchConfirm
1147−cheesy_anim_0 :: Image -> [Image] -> IO ()
1146+cheesyAnim0 :: Image -> [Image] -> IO ()
1148−cheesy_anim_0 i background = do
1147+cheesyAnim0 i background = do
1149− t <- current_terminal
1148+ t <- standardIOConfig >>= outputForConfig
1150− reserve_display t
1149+ reserveDisplay t
1151− bounds <- display_bounds t
1150+ bounds <- displayBounds t
1152− d <- display_context t bounds
1151+ d <- displayContext t bounds
1153− forM_ [0..100] $ \t -> do
1152+ forM_ [0..2] $ \t -> do
1153+ forM_ [0..100] $ \t -> do
1154+ let i_offset = translate (t `mod` fst bounds)
1155+ (t `div` 2 `mod` snd bounds)
1157+ let pic = picForLayers $ i_offset : background
1158+ outputPicture d pic
1160+ forM_ [0..100] $ \t -> do
1154− let i_offset = translate (t `mod` region_width bounds)
1161+ let i_offset = translate (t * (-1) `mod` fst bounds)
1155− (t `div` 2 `mod` region_height bounds)
1162+ (t * (-1) `div` 2 `mod` snd bounds)
1157− let pic = pic_for_layers $ i_offset : background
1164+ let pic = picForLayers $ i_offset : background
1158− output_picture d pic
1165+ outputPicture d pic
1159 threadDelay 50000
1166 threadDelay 50000
1160− release_display t
1167+ releaseDisplay t
1161− release_terminal t
1168+ releaseTerminal t
1162 return ()
1169 return ()
1164−lorum_ipsum :: [String]
1171+lorumIpsum :: [String]
1165−lorum_ipsum = lines [s|
1172+lorumIpsum = lines [s|
1166Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium,
1173Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium,
1167totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae
1174totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae
1168dicta sunt explicabo. Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit,
1175dicta sunt explicabo. Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit,
@@ -1174,8 +1181,8 @@ commodi consequatur? Quis autem vel eum iure reprehenderit qui in ea voluptate v
1174molestiae consequatur, vel illum qui dolorem eum fugiat quo voluptas nulla pariatur?
1181molestiae consequatur, vel illum qui dolorem eum fugiat quo voluptas nulla pariatur?
1177−lorum_ipsum_chinese :: [String]
1184+lorumIpsumChinese :: [String]
1178−lorum_ipsum_chinese = lines [s|
1185+lorumIpsumChinese = lines [s|
1179輐銛 螷蟞覮 裌覅詵 暕 鴅噮 槶 惝掭掝 婸媥媕 耏胠臿, 汫汭沎 忕汌卣 蚡袀 僣 蒮 瀁瀎瀊 渮湸湤 緌翢,
1186輐銛 螷蟞覮 裌覅詵 暕 鴅噮 槶 惝掭掝 婸媥媕 耏胠臿, 汫汭沎 忕汌卣 蚡袀 僣 蒮 瀁瀎瀊 渮湸湤 緌翢,
1180腠腶舝 糲蘥蠩 樏殣氀 蒮 蹢鎒 滍 鸄齴 櫧櫋瀩 鬄鵊鵙 莃荶衒, 毸溠 橀 簎艜薤 莃荶衒 翣聜蒢
1187腠腶舝 糲蘥蠩 樏殣氀 蒮 蹢鎒 滍 鸄齴 櫧櫋瀩 鬄鵊鵙 莃荶衒, 毸溠 橀 簎艜薤 莃荶衒 翣聜蒢
1181斔櫅檷 晛桼桾 拻敁柧 犿玒 膣, 墐 笓粊紒 bacon 鼀齕, 蔝蓶蓨 顊顃餭 姴怤 骱 暕 蹢鎒鎛 藒襓謥 鄻鎟霣
1188斔櫅檷 晛桼桾 拻敁柧 犿玒 膣, 墐 笓粊紒 bacon 鼀齕, 蔝蓶蓨 顊顃餭 姴怤 骱 暕 蹢鎒鎛 藒襓謥 鄻鎟霣