Tcl Library Source Code
Check-in [f6b9768775]
Not logged in
Core Home Blog DocsDownloads Tickets Timeline Branches Wiki Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com or submit via the online form
by Aug 20.

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

Overview
Comment:Cleaning up after Aaron. Fixed test in fileutil testsuite after it was broken by extension/fix of jpeg recognition.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f6b976877591f35adb2bd83d53981cd1b5913a84
User & Date: andreas_kupries 2004-05-24 04:14:46
Context
2004-05-25
17:30
Bug fixes and addition of new introspection commands. check-in: 2a7636f811 user: mic42 tags: trunk
2004-05-24
04:14
Cleaning up after Aaron. Fixed test in fileutil testsuite after it was broken by extension/fix of jpeg recognition. check-in: f6b9768775 user: andreas_kupries tags: trunk
03:26
Import ftpd bugfixes by Gerald Lester. Updated version in main branch, distinguish from the 1.6 line. Updated smtp version to 1.4. check-in: 0c3e4884a3 user: andreas_kupries tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/fileutil/ChangeLog. 








1
2
3
4
5
6
7









2004-05-11  Aaron Faupell <afaupell@users.sourceforge.net>

	* fileutil.tcl: updated the jpeg test to recognize exif format

2004-02-15  Andreas Kupries  <andreas_kupries@users.sourceforge.net>

	*

>
>
>
>
>
>
>
>








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

2004-05-23  Andreas Kupries  <andreas_kupries@users.sourceforge.net>

	* fileutil.test: Cleaning up after Aaron. Updated the test
	  filetype-1.12 to look for the extended return value of fileType
	  when applied to jpeg images. The last checkin changed this, but
	  the test was not updated as well, most likely not even
	  run. Found and corrected during release preparation and testing.

2004-05-11  Aaron Faupell <afaupell@users.sourceforge.net>

	* fileutil.tcl: updated the jpeg test to recognize exif format

2004-02-15  Andreas Kupries  <andreas_kupries@users.sourceforge.net>

	*
︙︙
Changes to modules/fileutil/fileutil.test. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

# -*- tcl -*-
# Tests for the find function.
#
# Sourcing this file into Tcl runs the tests and generates output for errors.
# No output means no errors were found.
#
# Copyright (c) 1998-2000 by Ajuba Solutions.
# Copyright (c) 2001 by ActiveState Tool Corp.
# All rights reserved.
#
# RCS: @(#) $Id: fileutil.test,v 1.22 2004/02/14 05:59:20 andreas_kupries Exp $

# -------------------------------------------------------------------------
# Initialise the test package
#
if {[lsearch [namespace children] ::tcltest] == -1} {
    set auto_path [linsert $auto_path 0 .]
    package require tcltest











|








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

# -*- tcl -*-
# Tests for the find function.
#
# Sourcing this file into Tcl runs the tests and generates output for errors.
# No output means no errors were found.
#
# Copyright (c) 1998-2000 by Ajuba Solutions.
# Copyright (c) 2001 by ActiveState Tool Corp.
# All rights reserved.
#
# RCS: @(#) $Id: fileutil.test,v 1.23 2004/05/24 04:14:46 andreas_kupries Exp $

# -------------------------------------------------------------------------
# Initialise the test package
#
if {[lsearch [namespace children] ::tcltest] == -1} {
    set auto_path [linsert $auto_path 0 .]
    package require tcltest
︙︙
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479

    set res [catch {fileutil::fileType $f} msg]
    list $res $msg
} [list 0 [list text message pgp]]
test fileType-1.12 {test binary graphic jpeg} {
    set f [file join $dir fileTypeTest jpegFile]
    set res [catch {fileutil::fileType $f} msg]
    list $res $msg
} [list 0 [list binary graphic jpeg]]
test fileType-1.13 {test binary graphic gif} {
    set f [file join $dir fileTypeTest gifFile]
    set res [catch {fileutil::fileType $f} msg]
    list $res $msg
} [list 0 [list binary graphic gif]]
test fileType-1.14 {test binary graphic png} {
    set f [file join $dir fileTypeTest pngFile]








|








465
466
467
468
469
470
471
472
473
474
475
476
477
478
479

    set res [catch {fileutil::fileType $f} msg]
    list $res $msg
} [list 0 [list text message pgp]]
test fileType-1.12 {test binary graphic jpeg} {
    set f [file join $dir fileTypeTest jpegFile]
    set res [catch {fileutil::fileType $f} msg]
    list $res $msg
} [list 0 [list binary graphic jpeg jfif]]
test fileType-1.13 {test binary graphic gif} {
    set f [file join $dir fileTypeTest gifFile]
    set res [catch {fileutil::fileType $f} msg]
    list $res $msg
} [list 0 [list binary graphic gif]]
test fileType-1.14 {test binary graphic png} {
    set f [file join $dir fileTypeTest pngFile]
︙︙