extra/asn1/asn1-tests.factor

   1 USING: asn1 asn1.ldap io io.streams.string tools.test ;
   2
   3 [ 6 ] [
   4     "\u000002\u000001\u000006" <string-reader> [ asn-syntax read-ber ] with-input-stream
   5 ] unit-test
   6
   7 [ "testing" ] [
   8     "\u000004\u000007testing" <string-reader> [ asn-syntax read-ber ] with-input-stream
   9 ] unit-test
  10
  11 [ { 1 { 3 "Administrator" "ad_is_bogus" } } ] [
  12     "0$\u000002\u000001\u000001`\u00001f\u000002\u000001\u000003\u000004\rAdministrator\u000080\u00000bad_is_bogus"
  13     <string-reader> [ asn-syntax read-ber ] with-input-stream
  14 ] unit-test
  15
  16 [
  17     ! triggers fixnum
  18     [ B{ 2 3 131 134 80 } ] [ 50000 >ber ] unit-test
  19
  20     [ B{ 10 3 131 134 80 } ] [ 50000 >ber-enumerated ] unit-test
  21
  22     ! triggers bignum
  23     [ B{ 2 5 146 208 151 228 0 } ] [ 5000000000 >ber ] unit-test
  24
  25     ! triggers string
  26     [ B{ 4 6 97 98 99 100 101 102 } ] [ "abcdef" >ber ] unit-test
  27
  28     [ B{ 69 6 97 98 99 100 101 102 } ] [
  29         5 "abcdef" >ber-application-string
  30     ] unit-test
  31
  32     [ B{ 133 6 97 98 99 100 101 102 } ] [
  33         5 "abcdef" >ber-contextspecific-string
  34     ] unit-test
  35
  36     ! triggers array
  37     [ B{ 48 4 49 50 51 52 } ] [ { 1 2 3 4 } >ber ] unit-test
  38
  39     [ B{ 49 4 49 50 51 52 } ] [ { 1 2 3 4 } >ber-set ] unit-test
  40
  41     [ B{ 48 4 49 50 51 52 } ] [ { 1 2 3 4 } >ber-sequence ] unit-test
  42
  43     [ B{ 96 4 49 50 51 52 } ] [
  44         { 1 2 3 4 } >ber-appsequence
  45     ] unit-test
  46
  47     [ B{ 160 4 49 50 51 52 } ] [
  48         { 1 2 3 4 } >ber-contextspecific-array
  49     ] unit-test
  50
  51 ] with-ber