39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
puts $ch1 $data
puts $ch2 $data
close $ch1
close $ch2
} -body {
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}
|
|
>
>
>
>
|
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
puts $ch1 $data
puts $ch2 $data
close $ch1
close $ch2
} -body {
set res [ExecEskil -context 5 -printpdf $f3 $f1 $f2]
puts $res
set ch [open $f3 rb]
set data [read $ch]
close $ch
# Find first stream, which is the page obj
regexp {stream\n(.*?)endstream} $data -> pageStream
catch {package require zlib}
set data [zlib decompress $pageStream]
# 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}
|