openssl.libcrypto: nginx factorcode.org server upgrades to https by default.

Change the unit test to expect a 301. We should probably make all tests work with networking disabled instead of hitting remote servers.

diff --git a/basis/openssl/libcrypto/libcrypto-tests.factor b/basis/openssl/libcrypto/libcrypto-tests.factor
index dfc1ec5b3dc90c05ca593b1ce52ecfe789c9f3eb..1a4ea4b820fbff863c2bc4e34744bb01bb5eb88d 100644 (file)
--- a/basis/openssl/libcrypto/libcrypto-tests.factor
+++ b/basis/openssl/libcrypto/libcrypto-tests.factor
@@ -1,11 +1,5 @@
-USING:
-    byte-arrays
-    kernel
-    openssl.libcrypto
-    sequences
-    splitting
-    strings
-    tools.test ;
+USING: byte-arrays kernel openssl.libcrypto sequences splitting
+strings tools.test ;
 IN: openssl.libcrypto.tests
 
 { t 1 } [
@@ -20,7 +14,7 @@ IN: openssl.libcrypto.tests
     ] keep BIO_free
 ] unit-test
 
-{ "HTTP/1.1 200 Document follows" 1 } [
+{ "HTTP/1.1 301 Moved Permanently" 1 } [
     "factorcode.org:80" BIO_new_connect [
         [ BIO_C_DO_STATE_MACHINE 0 f BIO_ctrl drop ]
         [