steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2014-05-20 16:20:13 -07:00
parent 3ac497c60e
commit bec6c99e29
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/asn1/asn1-tests.factor
View File

@ -1,16 +1,16 @@
USING: asn1 asn1.ldap io io.streams.string tools.test ; USING: asn1 asn1.ldap io io.streams.string tools.test ;
[ 6 ] [ [ 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 ] unit-test
[ "testing" ] [ [ "testing" ] [
"\u000004\u000007testing" <string-reader> [ asn-syntax read-ber ] with-input-stream "\u000004\u000007testing" [ asn-syntax read-ber ] with-string-reader
] unit-test ] unit-test
[ { 1 { 3 "Administrator" "ad_is_bogus" } } ] [ [ { 1 { 3 "Administrator" "ad_is_bogus" } } ] [
"0$\u000002\u000001\u000001`\u00001f\u000002\u000001\u000003\u000004\rAdministrator\u000080\u00000bad_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 ] unit-test
[ [