basis/openssl/libcrypto/libcrypto-tests.factor

   1 USING:
   2     byte-arrays
   3     kernel
   4     openssl.libcrypto
   5     sequences
   6     splitting
   7     strings
   8     tools.test ;
   9 IN: openssl.libcrypto.tests
  10
  11 [ t ] [ "factorcode.org:80" BIO_new_connect bio_st? ] unit-test
  12
  13 [ 1 1 ] [
  14     "factorcode.org:80" BIO_new_connect [
  15         BIO_C_DO_STATE_MACHINE 0 f BIO_ctrl
  16     ] keep BIO_free
  17 ] unit-test
  18
  19 [ "HTTP/1.1 200 Document follows" 1 ] [
  20     "factorcode.org:80" BIO_new_connect [
  21         [ BIO_C_DO_STATE_MACHINE 0 f BIO_ctrl drop ]
  22         [
  23             [ "GET / HTTP/1.1\r\nHost: factorcode.org\r\n\r\n" BIO_puts drop ]
  24             [ 1024 <byte-array> dup swapd 1023 BIO_read drop ] bi
  25         ] bi >string "\r\n" split first
  26     ] keep BIO_free
  27 ] unit-test