17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
+
+
+
+
-
+
|
test print-2.1 {Pdf, line numbers} -setup {
# Create big files with differences at five-digit line numbers
set f1 [tcltest::makeFile {} _test1]
set f2 [tcltest::makeFile {} _test2]
set f3 [tcltest::makeFile {} _test3]
set ch1 [open $f1 w]
set ch2 [open $f2 w]
set dlines {}
for {set t 1} {$t <= 12345} {incr t} {
lappend dlines "xx$t"
}
set data [string repeat xx\n 12345]
set data [join $dlines \n]
puts $ch1 "Diffline0.1"
puts $ch2 "Diffline0.2"
puts $ch1 $data
puts $ch2 $data
puts $ch1 "Diffline1.1"
puts $ch2 "Diffline1.2"
puts $ch1 $data
|