Tcl Library Source Code

Check-in [766586de00]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Fix access of amazon-s3 tests to their local config file. Still something to do about AWS key setup.
Timelines: family | ancestors | descendants | both | s3-test-work | overcome-by-other-work
Files: files | file ages | folders
SHA3-256: 766586de00df2e70df0ca24425f384d18efa15fd9ecd29be313a1d6a7d6b507d
User & Date: andreask 2019-06-20 19:20:11
Context
2019-06-20
19:26
Fix bogus `errorCode NONE`. Closed-Leaf check-in: 6a51e0b0db user: andreask tags: s3-test-work, overcome-by-other-work
19:20
Fix access of amazon-s3 tests to their local config file. Still something to do about AWS key setup. check-in: 766586de00 user: andreask tags: s3-test-work, overcome-by-other-work
2019-06-19
23:21
mime - Fixed two typos in code comments. No functional change. check-in: 0a01095aa0 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/amazon-s3/S3.test.

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
...
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
# package. Sourcing this file into Tcl runs the tests and generates
# output for errors.  No output means no errors were found.

# Copyright (c) 2006,2008 Darren New. All Rights Reserved.
# Copyright (c) 2008 Andreas Kupries <[email protected]>
#               (Boilerplate stuff (header, footer))
# All rights reserved.
#
# RCS: @(#) $Id: S3.test,v 1.3 2008/09/04 02:11:12 andreas_kupries Exp $

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

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

testsNeedTcl     8.5
testsNeedTcltest 2.0

if {[catch {package require xml}]} {
    puts "    Aborting the tests found in \"[file tail [info script]]\""
    puts "    Requiring xml package, not found."
    return
}

support {
    # Requires xml (TclXML)
    useLocal xsxp.tcl xsxp
}
testing {
    useLocal S3.tcl S3
}

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

................................................................................
}

proc bgerror {args} {set ::S3::afterResult [list "BGERROR" $args $::errorInfo]}

# Allow easy incorporation of user's AccessID and SecretKey

proc S3loadKeys {} {
    source test-S3.config
}

namespace import ::tcltest::test

proc CleanUpBuckets {{buckets 0}} {
    S3loadKeys
    set bucket [S3::SuggestBucket TclTestS3b]






<
<










|
<
<
<
|
<

<
|







 







|







5
6
7
8
9
10
11


12
13
14
15
16
17
18
19
20
21
22



23

24

25
26
27
28
29
30
31
32
...
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
# package. Sourcing this file into Tcl runs the tests and generates
# output for errors.  No output means no errors were found.

# Copyright (c) 2006,2008 Darren New. All Rights Reserved.
# Copyright (c) 2008 Andreas Kupries <[email protected]>
#               (Boilerplate stuff (header, footer))
# All rights reserved.



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

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

testsNeedTcl     8.5
testsNeedTcltest 2.0

testsNeed xml ;# TclXML, Steve Ball, Zveno





support {

    useLocal xsxp.tcl xsxp ;# This needs xml, s.a.
}
testing {
    useLocal S3.tcl S3
}

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

................................................................................
}

proc bgerror {args} {set ::S3::afterResult [list "BGERROR" $args $::errorInfo]}

# Allow easy incorporation of user's AccessID and SecretKey

proc S3loadKeys {} {
    source [localPath test-S3.config]
}

namespace import ::tcltest::test

proc CleanUpBuckets {{buckets 0}} {
    S3loadKeys
    set bucket [S3::SuggestBucket TclTestS3b]