26 lines
707 B
Factor
26 lines
707 B
Factor
USING: byte-arrays kernel openssl.libcrypto sequences splitting
|
|
strings tools.test ;
|
|
IN: openssl.libcrypto.tests
|
|
|
|
{ t 1 } [
|
|
"factorcode.org:80" BIO_new_connect [
|
|
bio_st?
|
|
] keep BIO_free
|
|
] unit-test
|
|
|
|
{ 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 301 Moved Permanently" 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
|