factor/basis/openssl/libcrypto/libcrypto-tests.factor

USING:
    byte-arrays
    kernel
    openssl.libcrypto
    sequences
    splitting
    strings
    tools.test ;
IN: openssl.libcrypto.tests

{ t } [ "factorcode.org:80" BIO_new_connect bio_st? ] 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 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