Check-in [b46031d19e]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment: * tests/ciphers.test: improved ability to change constraint setting for whether user compiled against RSA or OpenSSL libs.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b46031d19e84cdc64a9b7a411efbdd3d342ad1b6
User & Date: hobbs on 2000-08-16 18:00:25
Other Links: manifest | tags
Context
2000-08-18
19:17
* tlsInt.h: added err.h include check-in: 32a23903b7 user: hobbs tags: trunk
2000-08-16
18:00
* tests/ciphers.test: improved ability to change constraint setting for whether user compiled against RSA or OpenSSL libs. check-in: b46031d19e user: hobbs tags: trunk
17:44
* tls.c (Tls_Init): corrected interpretation of version number (patchlevel and release/serial were swapped). check-in: 090741a97a user: hobbs tags: trunk
Changes

Modified ChangeLog from [da6f71ec7e] to [47ac658e02].

     1      1   2000-08-16  Jeff Hobbs  <[email protected]>
     2      2   
            3  +	* tests/ciphers.test: improved ability to change constraint
            4  +	setting for whether user compiled against RSA or OpenSSL libs.
            5  +
     3      6   	* tls.c (Tls_Init): corrected interpretation of version number
     4      7   	(patchlevel and release/serial were swapped).
     5      8   
     6      9   2000-08-15  Jeff Hobbs  <[email protected]>
     7     10   
     8     11   	* README.txt: added notes about need to use 8.2.0+.
     9     12   

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

    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         -# 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.
           21  +# One of these should == 1, depending on what type of ssl library
           22  +# tls was compiled against. (RSA BSAFE SSL-C or OpenSSL).
           23  +#
           24  +set ::tcltest::testConstraints(rsabsafe) 1
           25  +set ::tcltest::testConstraints(openssl) 0
    23     26   
    24         -test ciphers-1.1 {Tls::ciphers for ssl3.} {} {
           27  +test ciphers-1.1 {Tls::ciphers for ssl3} {rsabsafe} {
           28  +    # This will fail if you compiled against OpenSSL.
           29  +    # Change the constraint setting above.
    25     30       set result [join [eval tls::ciphers ssl3] \n ]
    26     31   } {EDH-DSS-RC4-SHA
    27     32   EDH-RSA-DES-CBC3-SHA
    28     33   EDH-DSS-DES-CBC3-SHA
    29     34   DES-CBC3-SHA
    30     35   RC4-SHA
    31     36   RC4-MD5
................................................................................
    38     43   EXP-RC4-56-SHA
    39     44   EXP-EDH-RSA-DES-CBC-SHA
    40     45   EXP-EDH-DSS-DES-CBC-SHA
    41     46   EXP-DES-CBC-SHA
    42     47   EXP-RC2-CBC-MD5
    43     48   EXP-RC4-MD5}
    44     49   
    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.} {
           50  +test ciphers-1.2 {Tls::ciphers for tls1} {rsabsafe} {
           51  +    # This will fail if you compiled against OpenSSL.
           52  +    # Change the constraint setting above.
    49     53       set result [join [eval tls::ciphers tls1] \n ]
    50     54   } {EDH-DSS-RC4-SHA
    51     55   EDH-RSA-DES-CBC3-SHA
    52     56   EDH-DSS-DES-CBC3-SHA
    53     57   DES-CBC3-SHA
    54     58   RC4-SHA
    55     59   RC4-MD5
................................................................................
    62     66   EXP-RC4-56-SHA
    63     67   EXP-EDH-RSA-DES-CBC-SHA
    64     68   EXP-EDH-DSS-DES-CBC-SHA
    65     69   EXP-DES-CBC-SHA
    66     70   EXP-RC2-CBC-MD5
    67     71   EXP-RC4-MD5}
    68     72   
    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} {
           73  +test ciphers-1.3 {Tls::ciphers for ssl3} {openssl} {
           74  +    # This will fail if you compiled against RSA bsafe.
           75  +    # Change the constraint setting above.
    73     76       set result [join [eval tls::ciphers ssl3] \n ]
    74     77   } {EDH-RSA-DES-CBC3-SHA
    75     78   EDH-DSS-DES-CBC3-SHA
    76     79   DES-CBC3-SHA
    77     80   RC4-SHA
    78     81   RC4-MD5
    79     82   EDH-RSA-DES-CBC-SHA
................................................................................
    84     87   EXP-DES-CBC-SHA
    85     88   EXP-RC2-CBC-MD5
    86     89   EXP-RC4-MD5}
    87     90   
    88     91   # This version of the test is correct for OpenSSL only.
    89     92   # An equivalent test for the RSA BSAFE SSL-C is earlier in this file.
    90     93   
    91         -test ciphers-1.4 {Tls::ciphers for tls1.} {OpenSSL} {
           94  +test ciphers-1.4 {Tls::ciphers for tls1} {openssl} {
           95  +    # This will fail if you compiled against RSA bsafe.
           96  +    # Change the constraint setting in all.tcl
    92     97       set result [join [eval tls::ciphers tls1] \n ]
    93     98   } {EDH-RSA-DES-CBC3-SHA
    94     99   EDH-DSS-DES-CBC3-SHA
    95    100   DES-CBC3-SHA
    96    101   RC4-SHA
    97    102   RC4-MD5
    98    103   EDH-RSA-DES-CBC-SHA