33
34
35
36
37
38
39
40
41
42
43
44
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
|
33
34
35
36
37
38
39
40
41
42
43
44
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
|
-
+
-
+
-
+
-
+
-
+
-
+
-
+
|
puts $ch1 "Diffline2.1"
puts $ch2 "Diffline2.2"
puts $ch1 $data
puts $ch2 $data
close $ch1
close $ch2
} -body {
set res [exec ./eskil.kit -context 5 -printpdf $f3 $f1 $f2]
set res [ExecEskil -context 5 -printpdf $f3 $f1 $f2]
puts $res
set ch [open $f3 r]
set data [read $ch]
close $ch
# 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]
set res [ExecEskil -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]
set res [ExecEskil -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]
set res [ExecEskil -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]
set res [ExecEskil -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"]
set res [ExecEskil -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"]
set res [ExecEskil -printColorNew "0 -1 0.5"]
} -result {Argument -printColorNew must be a list of RBG values from 0.0 to 1.0}
|