Tcl Library Source Code

Check-in [532028a320]
Login

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

Overview
Comment: * multiop.test: Canonicalized sorting of two test results. * multi.test:
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 532028a320ccdc47717648435d6d21493ce8c570
User & Date: andreas_kupries 2008-10-11 05:42:37
Context
2008-10-11
23:23
* graph.man: Extended graphs with the ability to define arc * graph.tcl: weights. Added methods to query and manipulate weight * graph_tcl.tcl: information. Extended the serialization format to * pkgIndex.tcl: handle graphs with and without arc weights. * graph/arc.c: Implemented in both Tcl and C. The Tcl code is * graph/ds.h: derived from Alejandro Paz's ( <[email protected]>) * graph/methods.c: work during GSoC 2008. Extended testsuite and * graph/methods.h: documentation. The package now requires Tcl 8.4 * graph/objcmd.c: for operation. Bumped the package version to 2.3. * graph/tests/Xcontrol: * graph/tests/arc/getunweighted.test: * graph/tests/arc/getweight.test: * graph/tests/arc/hasweight.test: * graph/tests/arc/setunweighted.test: * graph/tests/arc/setweight.test: * graph/tests/arc/unsetweight.test: * graph/tests/arc/weights.test: * graph/tests/command.test: * graph/tests/deserialize.test: * graph/tests/serialize.test: * graph/tests/Xsupport: check-in: 9f264897ce user: andreas_kupries tags: trunk
05:42
* multiop.test: Canonicalized sorting of two test results. * multi.test: check-in: 532028a320 user: andreas_kupries tags: trunk
2008-10-10
19:13
* string.man: Renamed to textutil_string.man. Avoid clash with core. * split.man: Renamed to textutil_split.man. Avoid clash with core. Fix [Bug 2124508]. check-in: 8ea9a70a4d user: andreas_kupries tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/fileutil/ChangeLog.





1
2
3
4
5
6
7
8





2008-09-03  Andreas Kupries  <akupries@shaw.ca>

	* multiop.tcl: Sync'd to S2008 Sep 3 change in wip-core, using
	* multiop.man: the new name of the wip processor component.
	* pkgIndex.tcl: Bumped version to 0.5.2.

2008-06-20  Andreas Kupries  <[email protected]>

>
>
>
>
>
|







1
2
3
4
5
6
7
8
9
10
11
12
13
2008-10-10  Andreas Kupries  <[email protected]>

	* multiop.test: Canonicalized sorting of two test results.
	* multi.test: 

2008-09-03  Andreas Kupries  <andreas_kupries@users.sourceforge.net>

	* multiop.tcl: Sync'd to S2008 Sep 3 change in wip-core, using
	* multiop.man: the new name of the wip processor component.
	* pkgIndex.tcl: Bumped version to 0.5.2.

2008-06-20  Andreas Kupries  <[email protected]>

Changes to modules/fileutil/multi.test.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# -*- tcl -*-
# Tests for the multi-op system.
#
# Sourcing this file into Tcl runs the tests and generates output for errors.
# No output means no errors were found.
#
# Copyright (c) 2007 by Andreas Kupries <[email protected]>
# All rights reserved.
#
# RCS: @(#) $Id: multi.test,v 1.4 2007/08/16 04:11:49 andreas_kupries Exp $

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

source [file join \
	[file dirname [file dirname [file join [pwd] [info script]]]] \
	devtools testutilities.tcl]










|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# -*- tcl -*-
# Tests for the multi-op system.
#
# Sourcing this file into Tcl runs the tests and generates output for errors.
# No output means no errors were found.
#
# Copyright (c) 2007 by Andreas Kupries <[email protected]>
# All rights reserved.
#
# RCS: @(#) $Id: multi.test,v 1.5 2008/10/11 05:42:37 andreas_kupries Exp $

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

source [file join \
	[file dirname [file dirname [file join [pwd] [info script]]]] \
	devtools testutilities.tcl]

79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
    mo_cleanup
} -result {egon {anneliese bertram connie detlev egon egon/bettina egon/suse}}

test multi-1.4 {multi-file operation, expand and save} -setup {
    mo_setup
} -body {
    fileutil::multi reset expand the *a* in $src -> v
    set v
} -cleanup {
    mo_cleanup ; unset v
} -result {anneliese bertram}

test multi-1.5 {multi-file operation, expand and save} -setup {
    mo_setup
} -body {







|







79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
    mo_cleanup
} -result {egon {anneliese bertram connie detlev egon egon/bettina egon/suse}}

test multi-1.4 {multi-file operation, expand and save} -setup {
    mo_setup
} -body {
    fileutil::multi reset expand the *a* in $src -> v
    lsort $v
} -cleanup {
    mo_cleanup ; unset v
} -result {anneliese bertram}

test multi-1.5 {multi-file operation, expand and save} -setup {
    mo_setup
} -body {
Changes to modules/fileutil/multiop.test.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# -*- tcl -*-
# Tests for the multi-op system.
#
# Sourcing this file into Tcl runs the tests and generates output for errors.
# No output means no errors were found.
#
# Copyright (c) 2007 by Andreas Kupries <[email protected]>
# All rights reserved.
#
# RCS: @(#) $Id: multiop.test,v 1.6 2007/08/16 04:11:49 andreas_kupries Exp $

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

source [file join \
	[file dirname [file dirname [file join [pwd] [info script]]]] \
	devtools testutilities.tcl]










|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# -*- tcl -*-
# Tests for the multi-op system.
#
# Sourcing this file into Tcl runs the tests and generates output for errors.
# No output means no errors were found.
#
# Copyright (c) 2007 by Andreas Kupries <[email protected]>
# All rights reserved.
#
# RCS: @(#) $Id: multiop.test,v 1.7 2008/10/11 05:42:37 andreas_kupries Exp $

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

source [file join \
	[file dirname [file dirname [file join [pwd] [info script]]]] \
	devtools testutilities.tcl]

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
} -result {egon {anneliese bertram connie detlev egon egon/bettina egon/suse}}

test multiop-1.4 {multi-file operation, expand and save} -setup {
    mo_setup
    fileutil::multi::op X
} -body {
    X do expand the *a* in $src -> v
    set v
} -cleanup {
    mo_cleanup ; unset v
    X destroy
} -result {anneliese bertram}

test multiop-1.5 {multi-file operation, expand and save} -setup {
    mo_setup







|







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
} -result {egon {anneliese bertram connie detlev egon egon/bettina egon/suse}}

test multiop-1.4 {multi-file operation, expand and save} -setup {
    mo_setup
    fileutil::multi::op X
} -body {
    X do expand the *a* in $src -> v
    lsort $v
} -cleanup {
    mo_cleanup ; unset v
    X destroy
} -result {anneliese bertram}

test multiop-1.5 {multi-file operation, expand and save} -setup {
    mo_setup