asn1: use with-string-reader in the tests.

diff --git a/extra/asn1/asn1-tests.factor b/extra/asn1/asn1-tests.factor
index 3d46e06b686476fee5fff46818571d04e0a060ff..ac65e839ac8b28930c948282958d6a0f42473a68 100644 (file)
--- a/extra/asn1/asn1-tests.factor
+++ b/extra/asn1/asn1-tests.factor
@@ -1,16 +1,16 @@
 USING: asn1 asn1.ldap io io.streams.string tools.test ;
 
 [ 6 ] [
-    "\u000002\u000001\u000006" <string-reader> [ asn-syntax read-ber ] with-input-stream
+    "\u000002\u000001\u000006" [ asn-syntax read-ber ] with-string-reader
 ] unit-test
 
 [ "testing" ] [
-    "\u000004\u000007testing" <string-reader> [ asn-syntax read-ber ] with-input-stream
+    "\u000004\u000007testing" [ asn-syntax read-ber ] with-string-reader
 ] unit-test
 
 [ { 1 { 3 "Administrator" "ad_is_bogus" } } ] [
     "0$\u000002\u000001\u000001`\u00001f\u000002\u000001\u000003\u000004\rAdministrator\u000080\u00000bad_is_bogus"
-    <string-reader> [ asn-syntax read-ber ] with-input-stream
+    [ asn-syntax read-ber ] with-string-reader
 ] unit-test
 
 [