Check-in [1cdb251f75]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment:this file now has both OpenSSL and BSAFE versions of each test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1cdb251f75ccd64b757a8b1d240efabdccec4f3d
User & Date: aborr on 2000-06-07 17:44:28
Other Links: manifest | tags
Context
2000-06-08
00:06
skip some tests - knownBug check-in: 3066a21e7c user: aborr tags: trunk
2000-06-07
17:44
this file now has both OpenSSL and BSAFE versions of each test check-in: 1cdb251f75 user: aborr tags: trunk
02:31
disabled failing remote server div-by-zero test check-in: d971efad80 user: aborr tags: trunk
Changes

Modified tests/ciphers.test from [2b7ce8274c] to [820e5e601e].

     1      1   # Commands covered:  tls::ciphers
     2      2   #
     3      3   # This file contains a collection of tests for one or more of the Tcl
     4      4   # built-in commands.  Sourcing this file into Tcl runs the tests and
     5      5   # generates output for errors.  No output means no errors were found.
     6      6   #
     7         -# Copyright (c) 2000 by Ajuba Solutions.
            7  +
     8      8   # All rights reserved.
     9      9   #
    10     10   # See the file "license.terms" for information on usage and redistribution
    11     11   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    12     12   #
    13     13   
    14     14   if {[lsearch [namespace children] ::tcltest] == -1} {
    15     15       package require tcltest
    16     16       namespace import ::tcltest::*
    17     17   }
    18     18   
    19     19   package require tls
    20     20   
    21         -test ciphers-1.1 {Tls::ciphers for ssl3.} {
           21  +# This version of the test is correct for RSA BSAFE SSL-C only.
           22  +# An equivalent test for the OpenSSL version is later in this file.
           23  +
           24  +test ciphers-1.1 {Tls::ciphers for ssl3.} {} {
           25  +    set result [join [eval tls::ciphers ssl3] \n ]
           26  +} {EDH-DSS-RC4-SHA
           27  +EDH-RSA-DES-CBC3-SHA
           28  +EDH-DSS-DES-CBC3-SHA
           29  +DES-CBC3-SHA
           30  +RC4-SHA
           31  +RC4-MD5
           32  +EDH-RSA-DES-CBC-SHA
           33  +EDH-DSS-DES-CBC-SHA
           34  +DES-CBC-SHA
           35  +EXP-EDH-DSS-DES-56-SHA
           36  +EXP-EDH-DSS-RC4-56-SHA
           37  +EXP-DES-56-SHA
           38  +EXP-RC4-56-SHA
           39  +EXP-EDH-RSA-DES-CBC-SHA
           40  +EXP-EDH-DSS-DES-CBC-SHA
           41  +EXP-DES-CBC-SHA
           42  +EXP-RC2-CBC-MD5
           43  +EXP-RC4-MD5}
           44  +
           45  +# This version of the test is correct for RSA BSAFE SSL-C only.
           46  +# An equivalent test for the OpenSSL version is later in this file.
           47  +
           48  +test ciphers-1.2 {Tls::ciphers for tls1.} {
           49  +    set result [join [eval tls::ciphers tls1] \n ]
           50  +} {EDH-DSS-RC4-SHA
           51  +EDH-RSA-DES-CBC3-SHA
           52  +EDH-DSS-DES-CBC3-SHA
           53  +DES-CBC3-SHA
           54  +RC4-SHA
           55  +RC4-MD5
           56  +EDH-RSA-DES-CBC-SHA
           57  +EDH-DSS-DES-CBC-SHA
           58  +DES-CBC-SHA
           59  +EXP-EDH-DSS-DES-56-SHA
           60  +EXP-EDH-DSS-RC4-56-SHA
           61  +EXP-DES-56-SHA
           62  +EXP-RC4-56-SHA
           63  +EXP-EDH-RSA-DES-CBC-SHA
           64  +EXP-EDH-DSS-DES-CBC-SHA
           65  +EXP-DES-CBC-SHA
           66  +EXP-RC2-CBC-MD5
           67  +EXP-RC4-MD5}
           68  +
           69  +# This version of the test is correct for OpenSSL only.
           70  +# An equivalent test for the RSA BSAFE SSL-C is earlier in this file.
           71  +
           72  +test ciphers-1.3 {Tls::ciphers for ssl3.} {OpenSSL} {
    22     73       set result [join [eval tls::ciphers ssl3] \n ]
    23     74   } {EDH-RSA-DES-CBC3-SHA
    24     75   EDH-DSS-DES-CBC3-SHA
    25     76   DES-CBC3-SHA
    26     77   RC4-SHA
    27     78   RC4-MD5
    28     79   EDH-RSA-DES-CBC-SHA
................................................................................
    30     81   DES-CBC-SHA
    31     82   EXP-EDH-RSA-DES-CBC-SHA
    32     83   EXP-EDH-DSS-DES-CBC-SHA
    33     84   EXP-DES-CBC-SHA
    34     85   EXP-RC2-CBC-MD5
    35     86   EXP-RC4-MD5}
    36     87   
    37         -test ciphers-1.2 {Tls::ciphers for tls1.} {
           88  +# This version of the test is correct for OpenSSL only.
           89  +# An equivalent test for the RSA BSAFE SSL-C is earlier in this file.
           90  +
           91  +test ciphers-1.4 {Tls::ciphers for tls1.} {OpenSSL} {
    38     92       set result [join [eval tls::ciphers tls1] \n ]
    39     93   } {EDH-RSA-DES-CBC3-SHA
    40     94   EDH-DSS-DES-CBC3-SHA
    41     95   DES-CBC3-SHA
    42     96   RC4-SHA
    43     97   RC4-MD5
    44     98   EDH-RSA-DES-CBC-SHA
................................................................................
    45     99   EDH-DSS-DES-CBC-SHA
    46    100   DES-CBC-SHA
    47    101   EXP-EDH-RSA-DES-CBC-SHA
    48    102   EXP-EDH-DSS-DES-CBC-SHA
    49    103   EXP-DES-CBC-SHA
    50    104   EXP-RC2-CBC-MD5
    51    105   EXP-RC4-MD5}
          106  +
    52    107   
    53    108   
    54    109   # cleanup
    55    110   ::tcltest::cleanupTests
    56    111   return