Eskil

Check-in [43ff6468af]
Login

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

Overview
Comment:Make things run clean
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 43ff6468af19c1eb7d087a006fef20ae71c259d9
User & Date: peter 2017-01-31 20:36:18.019
Context
2017-01-31
20:36
Made --query work again; lost in option reorganisation. check-in: 3f2d2abd87 user: peter tags: trunk
20:36
Make things run clean check-in: 43ff6468af user: peter tags: trunk
2017-01-24
23:32
Restuctured some table code check-in: cad398ea05 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Makefile.
︙︙
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150

# Testing
#----------------------------------------------------------------

spell:
	@cat doc/*.txt | ispell -d british -l | sort -u

CHKFILES = $(SRCFILES) $(wildcard plugins/*.tcl)
NAGELFARFLAGS = -s syntaxdb86.tcl -pkgpicky -filter "*Non constant definition*" -quiet

# Create a common "header" file for all source files.
eskil_h.syntax: $(SRCFILES) src/eskil.syntax
	@echo Creating syntax header file...
	@$(NAGELFAR) $(NAGELFARFLAGS) -header eskil_h.syntax $(SRCFILES)

check: eskil_h.syntax








|








136
137
138
139
140
141
142
143
144
145
146
147
148
149
150

# Testing
#----------------------------------------------------------------

spell:
	@cat doc/*.txt | ispell -d british -l | sort -u

CHKFILES = $(SRCFILES) $(wildcard plugins/*.tcl)
NAGELFARFLAGS = -s syntaxdb.tcl -pkgpicky -filter "*Non constant definition*" -quiet

# Create a common "header" file for all source files.
eskil_h.syntax: $(SRCFILES) src/eskil.syntax
	@echo Creating syntax header file...
	@$(NAGELFAR) $(NAGELFARFLAGS) -header eskil_h.syntax $(SRCFILES)

check: eskil_h.syntax
︙︙
Changes to tests/all.tcl.
︙︙
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

set testScript [file normalize [file join [pwd] [info script]]]
set testDir    [file dirname $testScript]

lappend auto_path eskil.vfs/lib

package require tcltest 2.2
namespace import tcltest::*
tcltest::configure -verbose "body error"
#testConstraint knownbug 1
#tcltest::configure -match print-*

if {$argc > 0} {
    eval tcltest::configure $argv
}









|








8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

set testScript [file normalize [file join [pwd] [info script]]]
set testDir    [file dirname $testScript]

lappend auto_path eskil.vfs/lib

package require tcltest 2.2
namespace import tcltest::*
tcltest::configure -verbose "body error" -singleproc 1
#testConstraint knownbug 1
#tcltest::configure -match print-*

if {$argc > 0} {
    eval tcltest::configure $argv
}
︙︙
51
52
53
54
55
56
57
58
59
60
61
62
63

64
65
66

    set ::stubs {}
}

proc ExecEskil {args} {
    return [exec ./eskil.kit {*}$args]
}

puts "Running Tests"

foreach test [glob -nocomplain $testDir/*.test] {
    source $test
    clearstub
}

tcltest::cleanupTests 1

exit








<
|
<
|
<
|
>




51
52
53
54
55
56
57

58

59

60
61
62
63
64

    set ::stubs {}
}

proc ExecEskil {args} {
    return [exec ./eskil.kit {*}$args]
}


tcltest::testsDirectory $testDir

tcltest::runAllTests


cleanupTestFile
tcltest::cleanupTests 1

exit