Eskil

Check-in [b86ab111b4]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Adapted test to compressed pdf
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b86ab111b4cff0c118e33ac9d5e734692c4b74c5
User & Date: peter 2015-11-21 02:13:47.604
Context
2015-11-21
02:52
Rebuilt command line option handling check-in: d432ba22e3 user: peter tags: trunk
02:13
Adapted test to compressed pdf check-in: b86ab111b4 user: peter tags: trunk
2015-11-20
23:49
Added binary plugin check-in: de8aecb181 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/print.test.
︙︙
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}
︙︙