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
|
#!/usr/bin/perl -w
#
# Make sure the VT102 module can process basic text OK.
#
# Copyright (C) Andrew Wood
# NO WARRANTY - see COPYING.
#
require Term::VT102;
require 't/testbase';
run_tests ([(
[ 10, 5, "line 1\r\n line 2\r\n line 3\r\nline 4",
"line 1" . ("\0" x 4),
" line 2" . ("\0" x 2),
" line 3" . ("\0" x 2),
"line 4" . ("\0" x 4),
],
[ 80, 25, " line 1 \n line 2\n line 3\n line 4 ",
" line 1 " . ("\0" x 72),
("\0" x 8) . " line 2" . ("\0" x 62),
("\0" x 18) . " line 3" . ("\0" x 52),
("\0" x 28) . " line 4 " . ("\0" x 44),
],
[ 40, 5, "line 1\ttab 1\r\n line 2\ttab 2\ttab 3\r\n line 3\r\nline 4",
"line 1\0\0tab 1" . ("\0" x 27),
" line 2\0\0\0\0\0\0\0\0tab 2\0\0\0tab 3" . ("\0" x 11),
" line 3" . ("\0" x 32),
"line 4" . ("\0" x 34),
],
)]);
# EOF
|
