Eskil

Check-in [1125c540c5]
Login

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

Overview
Comment:Tidying tests
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1125c540c53be7eb5483e8ebc0e0dc8f003d0c4a
User & Date: peter 2016-07-29 10:38:41.887
Context
2016-07-29
10:56
Corrected right side numbering when parsing patch. [288be8f321] check-in: ee752fcf8e user: peter tags: trunk
10:38
Tidying tests check-in: 1125c540c5 user: peter tags: trunk
2016-07-06
22:20
Typos check-in: fd55f7fe68 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/blocks.test. 
1
2
3
4
5
6
7
8
9
10

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

test blocks-1.1 {
    Change-block parsing
} -body {
    set b1 [list "Apa 1" "Bepa 1" "Cepa 1"]
    set b2 [list "Apa 2" "Bepa 2" "Cepa 2"]

<
|
|









1
2
3
4
5
6
7
8
9


#------------------------------------------------------------*- tcl -*-
# Tests for comparing blocks.
#----------------------------------------------------------------------

test blocks-1.1 {
    Change-block parsing
} -body {
    set b1 [list "Apa 1" "Bepa 1" "Cepa 1"]
    set b2 [list "Apa 2" "Bepa 2" "Cepa 2"]
︙︙
Changes to tests/dir.test. 
1
2
3

4
5
6
7
8
9
10

# 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}} {

<
|
<
>









1

2
3
4
5
6
7
8
9


#------------------------------------------------------------*- tcl -*-

# Tests for comparing directories.
#----------------------------------------------------------------------

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

proc testCompareFiles {text1 text2 {sametime 0}} {
︙︙
Changes to tests/gui.test. 
1
2
3
4
5
6
7
8
9
10
11

#------------------------------------------------------------*- tcl -*-
# Tests for GUI
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

lappend ::auto_path /home/peter/src/TkTest
package require TkTest
wm withdraw .

proc XauthSecure {} {



<
<








1
2


3
4
5
6
7
8
9

#------------------------------------------------------------*- tcl -*-
# Tests for GUI


#----------------------------------------------------------------------

lappend ::auto_path /home/peter/src/TkTest
package require TkTest
wm withdraw .

proc XauthSecure {} {
︙︙
Changes to tests/patch.test. 
1
2
3

4
5
6
7
8
9
10

# Tests for patch file parsingunctions                      -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$

#----------------------------------------------------------------------

# Overload exec during these tests
set ::eskil(gurka,patchFile) ""
set ::eskil(gurka,patchData) ""
stub update args {}
stub getFullPatch {top} {

<
|
<
>









1

2
3
4
5
6
7
8
9


#------------------------------------------------------------*- tcl -*-

# Tests for patch file parsing functions
#----------------------------------------------------------------------

# Overload exec during these tests
set ::eskil(gurka,patchFile) ""
set ::eskil(gurka,patchData) ""
stub update args {}
stub getFullPatch {top} {
︙︙
Changes to tests/print.test. 
1
2
3
4
5
6
7
8
9
10

# Tests for printing.                                       -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

test print-1.1 {Tab expansion} {FixTextBlock "a\fp\fa" 1.0} {apa}
test print-1.2 {Tab expansion} {FixTextBlock "\tapa"   1.0} {        apa}
test print-1.3 {Tab expansion} {FixTextBlock "\tapa"   1.1} {       apa}
test print-1.4 {Tab expansion} {FixTextBlock "\tapa"   1.7} { apa}
test print-1.5 {Tab expansion} {FixTextBlock "\tapa"   1.8} {        apa}

<
|
|









1
2
3
4
5
6
7
8
9


#------------------------------------------------------------*- tcl -*-
# Tests for printing.
#----------------------------------------------------------------------

test print-1.1 {Tab expansion} {FixTextBlock "a\fp\fa" 1.0} {apa}
test print-1.2 {Tab expansion} {FixTextBlock "\tapa"   1.0} {        apa}
test print-1.3 {Tab expansion} {FixTextBlock "\tapa"   1.1} {       apa}
test print-1.4 {Tab expansion} {FixTextBlock "\tapa"   1.7} { apa}
test print-1.5 {Tab expansion} {FixTextBlock "\tapa"   1.8} {        apa}
︙︙
Changes to tests/procs.test. 
1
2
3

4
5
6
7
8
9
10

# Tests for comparing misc procedures.                      -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$

#----------------------------------------------------------------------

test procs-1.1 {
    Linit
} -body {
    # Make sure argument ordering is same as lindex
    lindex [Linit x 3 4 5] 2 3 4

<
|
<
>









1

2
3
4
5
6
7
8
9


#------------------------------------------------------------*- tcl -*-

# Tests for comparing misc procedures.
#----------------------------------------------------------------------

test procs-1.1 {
    Linit
} -body {
    # Make sure argument ordering is same as lindex
    lindex [Linit x 3 4 5] 2 3 4
︙︙
Changes to tests/rev.test. 
1
2
3
4
5
6
7
8
9
10

# Tests for revision control functions                      -*- tcl -*-
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------

# Overload exec during these tests
stub exec {args} {
    set cmd [lindex $args 0]
    switch -- $cmd {
        cleartool {

<
|
|









1
2
3
4
5
6
7
8
9


#------------------------------------------------------------*- tcl -*-
# Tests for revision control functions
#----------------------------------------------------------------------

# Overload exec during these tests
stub exec {args} {
    set cmd [lindex $args 0]
    switch -- $cmd {
        cleartool {
︙︙