45
46
47
48
49
50
51
|
# Check that line numbers take up 7 chars
string match "*( 3: )*(24690: )*" $data
} -cleanup {
tcltest::removeFile {} _test1
tcltest::removeFile {} _test2
tcltest::removeFile {} _test3
} -result {1}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
# Check that line numbers take up 7 chars
string match "*( 3: )*(24690: )*" $data
} -cleanup {
tcltest::removeFile {} _test1
tcltest::removeFile {} _test2
tcltest::removeFile {} _test3
} -result {1}
test print-3.1 {Pdf, cmd line} -body {
set res [exec ./eskil.kit -printHeaderSize x]
} -result {Argument -printHeaderSize must be a positive number}
test print-3.2 {Pdf, cmd line} -body {
set res [exec ./eskil.kit -printCharsPerLine -5]
} -result {Argument -printCharsPerLine must be a positive number}
test print-3.3 {Pdf, cmd line} -body {
set res [exec ./eskil.kit -printPaper qx]
} -match glob -result {Argument -printPaper must be a valid paper size*}
test print-3.4 {Pdf, cmd line} -body {
set res [exec ./eskil.kit -printColorChange x]
} -result {Argument -printColorChange must be a list of RBG values from 0.0 to 1.0}
test print-3.5 {Pdf, cmd line} -body {
set res [exec ./eskil.kit -printColorOld "0 1 2"]
} -result {Argument -printColorOld must be a list of RBG values from 0.0 to 1.0}
test print-3.6 {Pdf, cmd line} -body {
set res [exec ./eskil.kit -printColorNew "0 -1 0.5"]
} -result {Argument -printColorNew must be a list of RBG values from 0.0 to 1.0}
|