Overview
Comment: | initial checkin of test cases for tls::ciphers |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk | scriptics-sc-2-0-b1 | scriptics-sc-2-0-b2 | scriptics-sc-2-0-b5 |
Files: | files | file ages | folders |
SHA1: |
f222d012c0f81d41b7de8009c5b3bb4e |
User & Date: | aborr on 2000-02-17 03:30:07 |
Other Links: | manifest | tags |
Context
2000-04-13
| ||
17:29 | removed IDEA cipher from expected output check-in: de5380433c user: aborr tags: trunk | |
2000-02-17
| ||
03:30 | initial checkin of test cases for tls::ciphers check-in: f222d012c0 user: aborr tags: trunk, scriptics-sc-2-0-b1, scriptics-sc-2-0-b2, scriptics-sc-2-0-b5 | |
2000-02-09
| ||
21:19 | Added configure switch for enabling use of patented encryption code (--with-patents) check-in: 5ea4704c46 user: wart tags: trunk | |
Changes
Added tests/ciphers.test version [da044e61d2].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | # Commands covered: tls::ciphers # # This file contains a collection of tests for one or more of the Tcl # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # # Copyright (c) 2000 by Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import ::tcltest::* } package require tls test ciphers-1.1 {Tls::ciphers for ssl3.} { set result [join [eval tls::ciphers ssl3] \n ] } {EDH-RSA-DES-CBC3-SHA EDH-DSS-DES-CBC3-SHA DES-CBC3-SHA IDEA-CBC-SHA RC4-SHA RC4-MD5 EDH-RSA-DES-CBC-SHA EDH-DSS-DES-CBC-SHA DES-CBC-SHA EXP-EDH-RSA-DES-CBC-SHA EXP-EDH-DSS-DES-CBC-SHA EXP-DES-CBC-SHA EXP-RC2-CBC-MD5 EXP-RC4-MD5} test ciphers-1.2 {Tls::ciphers for tls1.} { set result [join [eval tls::ciphers tls1] \n ] } {EDH-RSA-DES-CBC3-SHA EDH-DSS-DES-CBC3-SHA DES-CBC3-SHA IDEA-CBC-SHA RC4-SHA RC4-MD5 EDH-RSA-DES-CBC-SHA EDH-DSS-DES-CBC-SHA DES-CBC-SHA EXP-EDH-RSA-DES-CBC-SHA EXP-EDH-DSS-DES-CBC-SHA EXP-DES-CBC-SHA EXP-RC2-CBC-MD5 EXP-RC4-MD5} # cleanup ::tcltest::cleanupTests return |