From bec6c99e29e5d1faea141c61205ff442bcb074df Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 20 May 2014 16:20:13 -0700 Subject: [PATCH] asn1: use with-string-reader in the tests. --- extra/asn1/asn1-tests.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/asn1/asn1-tests.factor b/extra/asn1/asn1-tests.factor index 3d46e06b68..ac65e839ac 100644 --- 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" [ asn-syntax read-ber ] with-input-stream + "\u000002\u000001\u000006" [ asn-syntax read-ber ] with-string-reader ] unit-test [ "testing" ] [ - "\u000004\u000007testing" [ 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" - [ asn-syntax read-ber ] with-input-stream + [ asn-syntax read-ber ] with-string-reader ] unit-test [