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. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | overcome-by-other-work | s3-test-work |
| Files: | files | file ages | folders |
| SHA3-256: |
766586de00df2e70df0ca24425f384d1 |
| User & Date: | andreask 2019-06-20 19:20:11.972 |
Context
|
2019-06-20
| ||
| 19:26 | Fix bogus `errorCode NONE`. Closed-Leaf check-in: 6a51e0b0db user: andreask tags: overcome-by-other-work, s3-test-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: overcome-by-other-work, s3-test-work | |
|
2019-06-19
| ||
| 23:21 | mime - Fixed two typos in code comments. No functional change. check-in: 0a01095aa0 user: andreask tags: trunk | |
Changes
Changes to modules/amazon-s3/S3.test.
1 2 3 4 5 6 7 8 9 10 11 | # -*- tcl -*- # S3.test: tests for the S3 access package. # This file contains a collection of tests for the S3 # 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. | < < < < | < | < < | | 1 2 3 4 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 | # -*- tcl -*- # S3.test: tests for the S3 access package. # This file contains a collection of tests for the S3 # 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 } # ------------------------------------------------------------------------- |
| ︙ | ︙ | |||
121 122 123 124 125 126 127 |
}
proc bgerror {args} {set ::S3::afterResult [list "BGERROR" $args $::errorInfo]}
# Allow easy incorporation of user's AccessID and SecretKey
proc S3loadKeys {} {
| | | 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 |
}
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]
|
| ︙ | ︙ |