1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!/usr/bin/perl -w
#
# Make sure the VT102 module can handle ANSI colour, underline, bold, etc.
#
# Copyright (C) Andrew Wood
# NO WARRANTY - see COPYING.
#
require Term::VT102;
require 't/testbase';
run_tests ([(
# (F,B,b,f,s,u,F,r)
[ 7, 4, "\e[m0\e[1m1\e[2m2\e[4m3\e[5m4\e[7m5\e[m6\r\n",
"0123456", [ [7,0,0,0,0,0,0,0],
[7,0,1,0,0,0,0,0],
[7,0,0,1,0,0,0,0],
[7,0,0,1,0,1,0,0],
[7,0,0,1,0,1,1,0],
[7,0,0,1,0,1,1,1],
[7,0,0,0,0,0,0,0] ],
],
[ 7, 4, "\e[41;35m0\e[1m1\e[2m2\e[4m3\e[5m4\e[7m5\e[m6\r\n",
"0123456", [ [5,1,0,0,0,0,0,0],
[5,1,1,0,0,0,0,0],
[5,1,0,1,0,0,0,0],
[5,1,0,1,0,1,0,0],
[5,1,0,1,0,1,1,0],
[5,1,0,1,0,1,1,1],
[7,0,0,0,0,0,0,0] ],
],
[ 8, 4, "\e[33;42m0\e[1m1\e[21m2\e[2m3\e[22m4\e[38m5\e[39m6\e[49m7\r\n",
"01234567",[ [3,2,0,0,0,0,0,0],
[3,2,1,0,0,0,0,0],
[3,2,0,0,0,0,0,0],
[3,2,0,1,0,0,0,0],
[3,2,0,0,0,0,0,0],
[7,2,0,0,0,1,0,0],
[7,2,0,0,0,0,0,0],
[7,0,0,0,0,0,0,0] ],
],
)]);
# EOF
|
