Eskil

Check-in [2add1c9b29]
Login

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

Overview
Comment:Adapt test to code change
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2add1c9b292b2977da2e0316de6d19fbbe0eab07
User & Date: peter 2014-11-17 20:17:30.387
Context
2014-11-17
20:30
Made a small splash screen for vcs dirdiff startup check-in: 2948da46ff user: peter tags: trunk
20:17
Adapt test to code change check-in: 2add1c9b29 user: peter tags: trunk
17:01
Read all from a pipe before closing. check-in: 84e4b8cf0e user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/dir.test. 
1
2
3
4
5
6
7

8
9
10
11
12
13
14

# Tests for comparing directories.                          -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

set ::Pref(dir,ignorekey) 0
set ::Pref(dir,comparelevel) 1


proc testCompareFiles {text1 text2 {sametime 0}} {
    set ch [open _f1_ w]
    puts -nonewline $ch $text1
    close $ch

    set ch [open _f2_ w]








>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# Tests for comparing directories.                          -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

set ::Pref(dir,ignorekey) 0
set ::Pref(dir,comparelevel) 1
set ::eskil(.dirdiff,plugin) ""

proc testCompareFiles {text1 text2 {sametime 0}} {
    set ch [open _f1_ w]
    puts -nonewline $ch $text1
    close $ch

    set ch [open _f2_ w]
︙︙