steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

openssl.libcrypto.tests: BIO_free should be called to release connections

db4
Björn Lindqvist 2014-09-24 00:45:46 +02:00 committed by John Benediktsson
parent 43dc1ba259
commit 8b01a47358
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/openssl/libcrypto/libcrypto-tests.factor
View File

@ -10,15 +10,18 @@ IN: openssl.libcrypto.tests
[ t ] [ "factorcode.org:80" BIO_new_connect bio_st? ] unit-test
[ 1 ] [
"factorcode.org:80" BIO_new_connect BIO_C_DO_STATE_MACHINE 0 f BIO_ctrl
[ 1 1 ] [
"factorcode.org:80" BIO_new_connect [
BIO_C_DO_STATE_MACHINE 0 f BIO_ctrl
] keep BIO_free
] unit-test
[ "HTTP/1.1 200 Document follows" ] [
"factorcode.org:80" BIO_new_connect
[ BIO_C_DO_STATE_MACHINE 0 f BIO_ctrl drop ]
[
[ "GET / HTTP/1.1\r\nHost: factorcode.org\r\n\r\n" BIO_puts drop ]
[ 1024 <byte-array> dup swapd 1023 BIO_read drop ] bi
] bi >string "\r\n" split first
[ "HTTP/1.1 200 Document follows" 1 ] [
"factorcode.org:80" BIO_new_connect [
[ BIO_C_DO_STATE_MACHINE 0 f BIO_ctrl drop ]
[
[ "GET / HTTP/1.1\r\nHost: factorcode.org\r\n\r\n" BIO_puts drop ]
[ 1024 <byte-array> dup swapd 1023 BIO_read drop ] bi
] bi >string "\r\n" split first
] keep BIO_free
] unit-test