usr/src/contrib/isode/pepsy/pep.output

before encoding INTEGER 7
before encoding OCTET STRING "The quick"
before encoding BIT STRING: 0011000
After Bitstring encoding:'0011000'B
After Sequence encoding:
{
   7,
   "The quick",
   '0011000'B
}
before encoding INTEGER 6
before encoding OCTET STRING "brown"
before encoding BIT STRING: 001100
After Bitstring encoding:'001100'B
After Sequence encoding:
{
   6,
   "brown",
   '001100'B
}
encoding SET OF Rep-action
before encoding INTEGER 10
before encoding OCTET STRING "The quick"
before encoding BIT STRING: 0011000100
After Bitstring encoding:'0011000100'B
After Sequence encoding:
{
   10,
   "The quick",
   '0011000100'B
}
encoding SET OF Rep-action
before encoding INTEGER 9
before encoding OCTET STRING "brown"
before encoding BIT STRING: 001100010
After Bitstring encoding:'001100010'B
After Sequence encoding:
{
   9,
   "brown",
   '001100010'B
}
encoding SET OF Rep-action
before encoding INTEGER 8
before encoding OCTET STRING "fox jumps over"
before encoding BIT STRING: 00110001
After Bitstring encoding:'00110001'B
After Sequence encoding:
{
   8,
   "fox jumps over",
   '00110001'B
}
encoding SET OF Rep-action
before encoding INTEGER 7
before encoding OCTET STRING "The Lazy"
before encoding BIT STRING: 0011000
After Bitstring encoding:'0011000'B
After Sequence encoding:
{
   7,
   "The Lazy",
   '0011000'B
}
encoding SET OF Rep-action
before encoding INTEGER 6
before encoding OCTET STRING "dog"
before encoding BIT STRING: 001100
After Bitstring encoding:'001100'B
After Sequence encoding:
{
   6,
   "dog",
   '001100'B
}
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 7
r_ostring "The quick"
r_bstring: 0011000
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 6
r_ostring "brown"
r_bstring: 001100
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 10
r_ostring "The quick"
r_bstring: 0011000100
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 9
r_ostring "brown"
r_bstring: 001100010
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 8
r_ostring "fox jumps over"
r_bstring: 00110001
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 7
r_ostring "The Lazy"
r_bstring: 0011000
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 6
r_ostring "dog"
r_bstring: 001100
After Decoding CHOICE: chosen 1
After Decoding UAction

"Action Statements" t_test = 3
{
   a {
      6,
      3
   },
   b {
      {
         a 7,
         b "The quick",
         c '0011000'B
      },
      {
         a 6,
         b "brown",
         c '001100'B
      }
   },
   c {
      6,
      3
   },
   d {
      {
         a 10,
         b "The quick",
         c '0011000100'B
      },
      {
         a 9,
         b "brown",
         c '001100010'B
      },
      {
         a 8,
         b "fox jumps over",
         c '00110001'B
      },
      {
         a 7,
         b "The Lazy",
         c '0011000'B
      },
      {
         a 6,
         b "dog",
         c '001100'B
      }
   },
   e {
      -1
   }
}
before encoding INTEGER 5
before encoding OCTET STRING "The quick"
before encoding BIT STRING: 00110
After Bitstring encoding:'00110'B
After Sequence encoding:
{
   5,
   "The quick",
   '00110'B
}
encoding SET OF Rep-action
before encoding INTEGER 7
before encoding OCTET STRING "The quick"
before encoding BIT STRING: 0011000
After Bitstring encoding:'0011000'B
After Sequence encoding:
{
   7,
   "The quick",
   '0011000'B
}
encoding SET OF Rep-action
before encoding INTEGER 6
before encoding OCTET STRING "brown"
before encoding BIT STRING: 001100
After Bitstring encoding:'001100'B
After Sequence encoding:
{
   6,
   "brown",
   '001100'B
}
encoding SET OF Rep-action
before encoding INTEGER 5
before encoding OCTET STRING "fox jumps over"
before encoding BIT STRING: 00110
After Bitstring encoding:'00110'B
After Sequence encoding:
{
   5,
   "fox jumps over",
   '00110'B
}
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 5
r_ostring "The quick"
r_bstring: 00110
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 7
r_ostring "The quick"
r_bstring: 0011000
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 6
r_ostring "brown"
r_bstring: 001100
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 5
r_ostring "fox jumps over"
r_bstring: 00110
After Decoding CHOICE: chosen 3
After Decoding UAction

"Action Statements" t_test = 2
{
   a {
      3
   },
   b {
      {
         a 5,
         b "The quick",
         c '00110'B
      }
   },
   c {
      3
   },
   d {
      {
         a 7,
         b "The quick",
         c '0011000'B
      },
      {
         a 6,
         b "brown",
         c '001100'B
      },
      {
         a 5,
         b "fox jumps over",
         c '00110'B
      }
   },
   e {
      "lets go home"
   }
}
encoding SET OF Rep-action
before encoding INTEGER 4
before encoding OCTET STRING "The quick"
before encoding BIT STRING: 0011
After Bitstring encoding:'0011'B
After Sequence encoding:
{
   4,
   "The quick",
   '0011'B
}
encoding Boolean 0
Before Decoding Rep-action
After Decoding Rep-action:
rp_int 4
r_ostring "The quick"
r_bstring: 0011
Decoding Boolean
After Decoding CHOICE: chosen 2
After Decoding UAction

"Action Statements" t_test = 1
{
   a {},
   b {},
   c {},
   d {
      {
         a 4,
         b "The quick",
         c '0011'B
      }
   },
   e {
      FALSE
   }
}

"All Simple Types" t_test = 3
{
   a {
      a 'ff'H,
      b "\b",
      d "\n",
      "hello there, world\n"
   },
   b 5,
   c 5,
   d 5,
   e "hello there, world\n",
   f "hello world\n",
   g "hello world\n",
   h 1.17,
   i 1.17,
   j 1.17,
   k 'ff'H,
   l '000100100011000100011010001101110'B,
   m 9.42479,
   n TRUE
}

"All Simple Types" t_test = 2
{
   a {
      a 'ff'H,
      c 'ff'H,
      e 0
   },
   b 3,
   c 3,
   d 3,
   e "hello world\n",
   f "hello world\n",
   g "hello world\n",
   h 1.17.45.49,
   i 1.17.45.49,
   j 1.17.45.49,
   k '00'H,
   l '00010010001100010001101000110111'B,
   m 6.28319,
   n FALSE
}

"All Simple Types" t_test = 1
{
   a {
      b '00'H,
      d '00'H,
      e -1,
      "hello there, world\n"
   },
   b 1,
   c 1,
   d 1,
   e "hello there, world\n",
   f "hello world\n",
   g "hello world\n",
   h 1.17,
   i 1.17,
   j 1.17,
   k 'ff'H,
   l '0001001000110001000110100011011'B,
   m 3.1416,
   n TRUE
}

"function calling code" t_test = 3
{
   a 'ff'H,
   b '00'H,
   c "\b",
   d "\n",
   e 2,
   f "hello there, world\n",
   left {
      a 'ff'H,
      b '00'H,
      d "\n",
      e 2,
      "hello there, world\n"
   },
   right {
      a 'ff'H,
      b "\b",
      d "\n",
      "hello there, world\n"
   }
}

"function calling code" t_test = 2
{
   a '00'H,
   b 'ff'H,
   c 'ff'H,
   d "\t",
   f "hello world\n",
   left {
      a '00'H,
      c 'ff'H
   },
   right {
      a 'ff'H,
      c 'ff'H,
      e 0
   }
}

"function calling code" t_test = 1
{
   a 'ff'H,
   b '00'H,
   c '00'H,
   d "\b",
   e 0,
   f "hello there, world\n",
   left {
      b '00'H,
      d "\b",
      e 0,
      "hello there, world\n"
   },
   right {
      b '00'H,
      d '00'H,
      e -1,
      "hello there, world\n"
   }
}

"Value Passing Defined types" t_test = 3
{
   "hello there, world\n",
   b "Some one is out there!",
   '00313233343536'H,
   '0000000000110001001100100011'B,
   [PRIVATE 577] '18'H,
   '000100100011000100011010001101110010'B,
   9357,
   1.73205,
   1.17.42,
   TRUE,
   4
}

"Value Passing Defined types" t_test = 2
{
   "hello there, world\n",
   b "Some one is out there!",
   '003132333435'H,
   '00000000001100010011'B,
   [PRIVATE 16] {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H,
      [PRIVATE 26] 'ff'H,
      [PRIVATE 37] '00'H,
      [PRIVATE 50] 'ff'H,
      [PRIVATE 65] "\b",
      [PRIVATE 82] "\t",
      [PRIVATE 101] "\n",
      [PRIVATE 122] '0b'H,
      [PRIVATE 145] "mkpelist:testdata",
      [PRIVATE 170] "mkpelist:testdata",
      [PRIVATE 197] '0010'H,
      [PRIVATE 226] '0010'H,
      [PRIVATE 15] {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b",
         [PRIVATE 82] "\t",
         [PRIVATE 101] "\n",
         [PRIVATE 122] '0b'H,
         [PRIVATE 145] "mkpelist:testdata",
         [PRIVATE 170] "mkpelist:testdata",
         [PRIVATE 197] '0010'H,
         [PRIVATE 226] '0010'H
      }
   },
   '00010010001100010001101000110111001'B,
   9356,
   1.41421,
   1.17,
   FALSE,
   3
}

"Value Passing Defined types" t_test = 1
{
   "hello there, world\n",
   b "Some one is out there!",
   '0031323334'H,
   '000000000011'B,
   [PRIVATE 101] "\n",
   '0001001000110001000110100011011100'B,
   9355,
   1,
   1.17,
   TRUE,
   2
}

"Repeating pepy elements" t_test = 3
{
   a {
      6,
      3
   },
   b {
      {
         a 7,
         b "The quick",
         c '0011000'B
      },
      {
         a 6,
         b "brown",
         c '001100'B
      }
   },
   c {
      6,
      3
   },
   d {
      {
         a 10,
         b "The quick",
         c '0011000100'B
      },
      {
         a 9,
         b "brown",
         c '001100010'B
      },
      {
         a 8,
         b "fox jumps over",
         c '00110001'B
      },
      {
         a 7,
         b "The Lazy",
         c '0011000'B
      },
      {
         a 6,
         b "dog",
         c '001100'B
      }
   },
   e {
      -1
   }
}

"Repeating pepy elements" t_test = 2
{
   a {
      3
   },
   b {
      {
         a 5,
         b "The quick",
         c '00110'B
      }
   },
   c {
      3
   },
   d {
      {
         a 7,
         b "The quick",
         c '0011000'B
      },
      {
         a 6,
         b "brown",
         c '001100'B
      },
      {
         a 5,
         b "fox jumps over",
         c '00110'B
      }
   },
   e {
      "lets go home"
   }
}

"Repeating pepy elements" t_test = 1
{
   a {},
   b {},
   c {},
   d {
      {
         a 4,
         b "The quick",
         c '0011'B
      }
   },
   e {
      FALSE
   }
}

"Compound S-types" t_test = 3
{
   a {},
   b {
      [2] 12357
   },
   c {},
   d {
      [4] 4
   }
}

"Compound S-types" t_test = 2
{
   a {
      12356
   },
   b {},
   c {
      3
   },
   d {}
}

"Compound S-types" t_test = 1
{
   a {},
   b {
      [2] 12355
   },
   c {},
   d {
      [4] 2
   }
}

"Pepy Stuff" t_test = 3
{
   12357,
   4,
   "Some is out there!",
   "hello, world\n",
   '00313233343536'H,
   '00010010001100010001101000110111001010100'B,
   '0000000000110001001100100011'B,
   TRUE,
   1.17.42,
   3.06998,
   [PRIVATE 730] '0010'H,
   {
      [1] 12357,
      12357,
      4,
      [4] 4,
      "hello, world\n",
      [8] "hello, world\n",
      '00313233343536'H,
      [10] '00313233343536'H,
      1.17.42,
      [18] 1.17.42,
      3.06998,
      [20] 3.06998,
      [21] '0010'H
   },
   [13] {
      [2] 12357,
      [4] 4,
      "Some is out there!",
      [6] "Some is out there!",
      "hello, world\n",
      [8] "hello, world\n",
      '00313233343536'H,
      [10] '00313233343536'H,
      '00010010001100010001101000110111001010101'B,
      [12] '00010010001100010001101000110111001010101'B,
      '00000000001100010011001000110011'B,
      [16] TRUE,
      1.17.42,
      3.06998,
      [PRIVATE 730] '0010'H
   }
}

"Pepy Stuff" t_test = 2
{
   12356,
   3,
   "Some is out there!",
   "hello, world\n",
   '003132333435'H,
   '00010010001100010001101000110111001010100'B,
   '00000000001100010011'B,
   FALSE,
   1.17,
   2.50663,
   [PRIVATE 362] 'ff'H,
   {
      [1] 12356,
      12356,
      "hello, world\n",
      [8] "hello, world\n",
      '003132333435'H,
      [10] '003132333435'H,
      '000000000011000100110010'B,
      FALSE,
      [16] FALSE,
      1.17,
      [18] 1.17,
      2.50663,
      [20] 2.50663,
      [21] 'ff'H
   },
   [13] {
      12356,
      3,
      "Some is out there!",
      [6] "Some is out there!",
      "hello, world\n",
      [8] "hello, world\n",
      '003132333435'H,
      [10] '003132333435'H,
      '00010010001100010001101000110111001010101'B,
      [12] '00010010001100010001101000110111001010101'B,
      '000000000011000100110010'B,
      FALSE,
      1.17,
      [19] 2.50663,
      [PRIVATE 362] 'ff'H
   }
}

"Pepy Stuff" t_test = 1
{
   12355,
   2,
   "Some is out there!",
   "hello, world\n",
   '0031323334'H,
   '00010010001100010001101000110111001010100'B,
   '000000000011'B,
   TRUE,
   1.17,
   1.77245,
   [PRIVATE 122] '0b'H,
   {
      [1] 12355,
      12355,
      2,
      [4] 2,
      "hello, world\n",
      [8] "hello, world\n",
      '0031323334'H,
      [10] '0031323334'H,
      '0000000000110001'B,
      1.17,
      [18] 1.17,
      1.77245,
      [20] 1.77245,
      [21] '0b'H
   },
   [13] {
      [2] 12355,
      [4] 2,
      "Some is out there!",
      [6] "Some is out there!",
      "hello, world\n",
      [8] "hello, world\n",
      '0031323334'H,
      [10] '0031323334'H,
      '00010010001100010001101000110111001010101'B,
      [12] '00010010001100010001101000110111001010101'B,
      '0000000000110001'B,
      [16] TRUE,
      1.17,
      1.77245,
      [PRIVATE 122] '0b'H
   }
}

"Tests of Real type" t_test = 4
{
   r1 927640,
   r2 0,
   r3 -2.28789,
   r4 927640
}

"Tests of Real type" t_test = 3
{
   r1 -2.28789,
   r2 927640,
   r3 0,
   r4 3.1416,
   r5 927640
}

"Tests of Real type" t_test = 2
{
   r1 0,
   r2 -2.28789,
   r3 927640,
   r4 0,
   r5 -2.28789
}

"Tests of Real type" t_test = 1
{
   r1 927640,
   r2 0,
   r3 -2.28789,
   r4 3.1416
}

"Real" t_test = 3
-2.28789

"Real" t_test = 2
0

"Real" t_test = 1
927640

"Tests of Enumerated type" t_test = 4
{
   ae1 0,
   ae2 1,
   ae3 3,
   ae4 -1,
   ae5 -1
}

"Tests of Enumerated type" t_test = 3
{
   ae1 -1,
   ae2 0,
   ae3 1,
   ae4 3
}

"Tests of Enumerated type" t_test = 2
{
   ae1 3,
   ae2 -1,
   ae3 0,
   ae4 3,
   ae5 1
}

"Tests of Enumerated type" t_test = 1
{
   ae1 1,
   ae2 3,
   ae3 -1,
   ae4 0
}

"Enumerated Type" t_test = 4
0

"Enumerated Type" t_test = 3
-1

"Enumerated Type" t_test = 2
3

"Enumerated Type" t_test = 1
1

"Single Objects" t_test = 4
{
   st2 "xxxxxxx, world"
}

"Single Objects" t_test = 3
{}

"Single Objects" t_test = 2
{
   st2 "xxxxxxx, world"
}

"Single Objects" t_test = 1
{
   st2 "xxxxxxx, world"
}

"Explicit Tagged Objects" t_test = 3
{
   bE 40986
}

"Explicit Tagged Objects" t_test = 2
{
   aE 10283
}

"Explicit Tagged Objects" t_test = 1
{
   bE 40986
}

"Single EXTERNAL" t_test = 1
{
   direct-reference 1.17.222,
   indirect-reference 16,
   data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
   encoding {
      octet-aligned '536f6d652074657374206461746100'H
   }
}

"EXTERNAL" t_test = 6
{
   ext {
      direct-reference 1.17.474,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type '00'H
      }
   },
   a-ny 'ff'H,
   ext-impl {
      direct-reference 1.17.366,
      indirect-reference 40,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type '00'H
      }
   },
   any-impl 'ff'H,
   ext-expl {
      direct-reference 1.17.258,
      indirect-reference 12,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type '00'H
      }
   },
   any-expl '0010'H
}

"EXTERNAL" t_test = 5
{
   ext {
      direct-reference 1.17.402,
      indirect-reference 12,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   a-ny "mkpelist:testdata",
   ext-impl {
      direct-reference 1.17.312,
      indirect-reference 16,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type 'ff'H
      }
   },
   any-impl {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H,
      [PRIVATE 26] 'ff'H,
      [PRIVATE 37] '00'H,
      [PRIVATE 50] 'ff'H,
      [PRIVATE 65] "\b",
      [PRIVATE 82] "\t",
      [PRIVATE 101] "\n",
      [PRIVATE 122] '0b'H,
      [PRIVATE 145] "mkpelist:testdata",
      [PRIVATE 170] "mkpelist:testdata",
      [PRIVATE 197] '0010'H,
      [PRIVATE 226] '0010'H,
      [PRIVATE 15] {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b",
         [PRIVATE 82] "\t",
         [PRIVATE 101] "\n",
         [PRIVATE 122] '0b'H,
         [PRIVATE 145] "mkpelist:testdata",
         [PRIVATE 170] "mkpelist:testdata",
         [PRIVATE 197] '0010'H,
         [PRIVATE 226] '0010'H
      },
      [PRIVATE 16] {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b",
         [PRIVATE 82] "\t",
         [PRIVATE 101] "\n",
         [PRIVATE 122] '0b'H,
         [PRIVATE 145] "mkpelist:testdata",
         [PRIVATE 170] "mkpelist:testdata",
         [PRIVATE 197] '0010'H,
         [PRIVATE 226] '0010'H,
         [PRIVATE 15] {
            [PRIVATE 2] 'ff'H,
            [PRIVATE 5] '00'H,
            [PRIVATE 10] 'ff'H,
            [PRIVATE 17] '00'H,
            [PRIVATE 26] 'ff'H,
            [PRIVATE 37] '00'H,
            [PRIVATE 50] 'ff'H,
            [PRIVATE 65] "\b",
            [PRIVATE 82] "\t",
            [PRIVATE 101] "\n",
            [PRIVATE 122] '0b'H,
            [PRIVATE 145] "mkpelist:testdata",
            [PRIVATE 170] "mkpelist:testdata",
            [PRIVATE 197] '0010'H,
            [PRIVATE 226] '0010'H
         }
      },
      [PRIVATE 325] '00'H,
      [PRIVATE 362] 'ff'H,
      [PRIVATE 401] '14'H,
      [PRIVATE 442] '15'H,
      [PRIVATE 485] "mkpelist:testdata",
      [PRIVATE 530] 'ff'H,
      [PRIVATE 577] '18'H,
      [PRIVATE 626] '19'H,
      [PRIVATE 677] "mkpelist:testdata",
      [PRIVATE 730] '0010'H,
      [PRIVATE 27] {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b",
         [PRIVATE 82] "\t",
         [PRIVATE 101] "\n",
         [PRIVATE 122] '0b'H,
         [PRIVATE 145] "mkpelist:testdata",
         [PRIVATE 170] "mkpelist:testdata",
         [PRIVATE 197] '0010'H,
         [PRIVATE 226] '0010'H,
         [PRIVATE 15] {
            [PRIVATE 2] 'ff'H,
            [PRIVATE 5] '00'H,
            [PRIVATE 10] 'ff'H,
            [PRIVATE 17] '00'H,
            [PRIVATE 26] 'ff'H,
            [PRIVATE 37] '00'H,
            [PRIVATE 50] 'ff'H,
            [PRIVATE 65] "\b",
            [PRIVATE 82] "\t",
            [PRIVATE 101] "\n",
            [PRIVATE 122] '0b'H,
            [PRIVATE 145] "mkpelist:testdata",
            [PRIVATE 170] "mkpelist:testdata",
            [PRIVATE 197] '0010'H,
            [PRIVATE 226] '0010'H
         },
         [PRIVATE 16] {
            [PRIVATE 2] 'ff'H,
            [PRIVATE 5] '00'H,
            [PRIVATE 10] 'ff'H,
            [PRIVATE 17] '00'H,
            [PRIVATE 26] 'ff'H,
            [PRIVATE 37] '00'H,
            [PRIVATE 50] 'ff'H,
            [PRIVATE 65] "\b",
            [PRIVATE 82] "\t",
            [PRIVATE 101] "\n",
            [PRIVATE 122] '0b'H,
            [PRIVATE 145] "mkpelist:testdata",
            [PRIVATE 170] "mkpelist:testdata",
            [PRIVATE 197] '0010'H,
            [PRIVATE 226] '0010'H,
            [PRIVATE 15] {
               [PRIVATE 2] 'ff'H,
               [PRIVATE 5] '00'H,
               [PRIVATE 10] 'ff'H,
               [PRIVATE 17] '00'H,
               [PRIVATE 26] 'ff'H,
               [PRIVATE 37] '00'H,
               [PRIVATE 50] 'ff'H,
               [PRIVATE 65] "\b",
               [PRIVATE 82] "\t",
               [PRIVATE 101] "\n",
               [PRIVATE 122] '0b'H,
               [PRIVATE 145] "mkpelist:testdata",
               [PRIVATE 170] "mkpelist:testdata",
               [PRIVATE 197] '0010'H,
               [PRIVATE 226] '0010'H
            }
         },
         [PRIVATE 325] '00'H,
         [PRIVATE 362] 'ff'H,
         [PRIVATE 401] '14'H,
         [PRIVATE 442] '15'H,
         [PRIVATE 485] "mkpelist:testdata",
         [PRIVATE 530] 'ff'H,
         [PRIVATE 577] '18'H,
         [PRIVATE 626] '19'H,
         [PRIVATE 677] "mkpelist:testdata",
         [PRIVATE 730] '0010'H
      },
      [PRIVATE 842] 'ff'H,
      [PRIVATE 901] '1e'H,
      [PRIVATE 962] "mkpelist:testdata",
      [PRIVATE 1025] '00'H,
      [PRIVATE 1090] "!",
      [PRIVATE 1157] "mkpelist:testdata",
      [PRIVATE 1226] '0010'H,
      [PRIVATE 35] {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b",
         [PRIVATE 82] "\t",
         [PRIVATE 101] "\n",
         [PRIVATE 122] '0b'H,
         [PRIVATE 145] "mkpelist:testdata",
         [PRIVATE 170] "mkpelist:testdata",
         [PRIVATE 197] '0010'H,
         [PRIVATE 226] '0010'H,
         [PRIVATE 15] {
            [PRIVATE 2] 'ff'H,
            [PRIVATE 5] '00'H,
            [PRIVATE 10] 'ff'H,
            [PRIVATE 17] '00'H,
            [PRIVATE 26] 'ff'H,
            [PRIVATE 37] '00'H,
            [PRIVATE 50] 'ff'H,
            [PRIVATE 65] "\b",
            [PRIVATE 82] "\t",
            [PRIVATE 101] "\n",
            [PRIVATE 122] '0b'H,
            [PRIVATE 145] "mkpelist:testdata",
            [PRIVATE 170] "mkpelist:testdata",
            [PRIVATE 197] '0010'H,
            [PRIVATE 226] '0010'H
         },
         [PRIVATE 16] {
            [PRIVATE 2] 'ff'H,
            [PRIVATE 5] '00'H,
            [PRIVATE 10] 'ff'H,
            [PRIVATE 17] '00'H,
            [PRIVATE 26] 'ff'H,
            [PRIVATE 37] '00'H,
            [PRIVATE 50] 'ff'H,
            [PRIVATE 65] "\b",
            [PRIVATE 82] "\t",
            [PRIVATE 101] "\n",
            [PRIVATE 122] '0b'H,
            [PRIVATE 145] "mkpelist:testdata",
            [PRIVATE 170] "mkpelist:testdata",
            [PRIVATE 197] '0010'H,
            [PRIVATE 226] '0010'H,
            [PRIVATE 15] {
               [PRIVATE 2] 'ff'H,
               [PRIVATE 5] '00'H,
               [PRIVATE 10] 'ff'H,
               [PRIVATE 17] '00'H,
               [PRIVATE 26] 'ff'H,
               [PRIVATE 37] '00'H,
               [PRIVATE 50] 'ff'H,
               [PRIVATE 65] "\b",
               [PRIVATE 82] "\t",
               [PRIVATE 101] "\n",
               [PRIVATE 122] '0b'H,
               [PRIVATE 145] "mkpelist:testdata",
               [PRIVATE 170] "mkpelist:testdata",
               [PRIVATE 197] '0010'H,
               [PRIVATE 226] '0010'H
            }
         },
         [PRIVATE 325] '00'H,
         [PRIVATE 362] 'ff'H,
         [PRIVATE 401] '14'H,
         [PRIVATE 442] '15'H,
         [PRIVATE 485] "mkpelist:testdata",
         [PRIVATE 530] 'ff'H,
         [PRIVATE 577] '18'H,
         [PRIVATE 626] '19'H,
         [PRIVATE 677] "mkpelist:testdata",
         [PRIVATE 730] '0010'H,
         [PRIVATE 27] {
            [PRIVATE 2] 'ff'H,
            [PRIVATE 5] '00'H,
            [PRIVATE 10] 'ff'H,
            [PRIVATE 17] '00'H,
            [PRIVATE 26] 'ff'H,
            [PRIVATE 37] '00'H,
            [PRIVATE 50] 'ff'H,
            [PRIVATE 65] "\b",
            [PRIVATE 82] "\t",
            [PRIVATE 101] "\n",
            [PRIVATE 122] '0b'H,
            [PRIVATE 145] "mkpelist:testdata",
            [PRIVATE 170] "mkpelist:testdata",
            [PRIVATE 197] '0010'H,
            [PRIVATE 226] '0010'H,
            [PRIVATE 15] {
               [PRIVATE 2] 'ff'H,
               [PRIVATE 5] '00'H,
               [PRIVATE 10] 'ff'H,
               [PRIVATE 17] '00'H,
               [PRIVATE 26] 'ff'H,
               [PRIVATE 37] '00'H,
               [PRIVATE 50] 'ff'H,
               [PRIVATE 65] "\b",
               [PRIVATE 82] "\t",
               [PRIVATE 101] "\n",
               [PRIVATE 122] '0b'H,
               [PRIVATE 145] "mkpelist:testdata",
               [PRIVATE 170] "mkpelist:testdata",
               [PRIVATE 197] '0010'H,
               [PRIVATE 226] '0010'H
            },
            [PRIVATE 16] {
               [PRIVATE 2] 'ff'H,
               [PRIVATE 5] '00'H,
               [PRIVATE 10] 'ff'H,
               [PRIVATE 17] '00'H,
               [PRIVATE 26] 'ff'H,
               [PRIVATE 37] '00'H,
               [PRIVATE 50] 'ff'H,
               [PRIVATE 65] "\b",
               [PRIVATE 82] "\t",
               [PRIVATE 101] "\n",
               [PRIVATE 122] '0b'H,
               [PRIVATE 145] "mkpelist:testdata",
               [PRIVATE 170] "mkpelist:testdata",
               [PRIVATE 197] '0010'H,
               [PRIVATE 226] '0010'H,
               [PRIVATE 15] {
                  [PRIVATE 2] 'ff'H,
                  [PRIVATE 5] '00'H,
                  [PRIVATE 10] 'ff'H,
                  [PRIVATE 17] '00'H,
                  [PRIVATE 26] 'ff'H,
                  [PRIVATE 37] '00'H,
                  [PRIVATE 50] 'ff'H,
                  [PRIVATE 65] "\b",
                  [PRIVATE 82] "\t",
                  [PRIVATE 101] "\n",
                  [PRIVATE 122] '0b'H,
                  [PRIVATE 145] "mkpelist:testdata",
                  [PRIVATE 170] "mkpelist:testdata",
                  [PRIVATE 197] '0010'H,
                  [PRIVATE 226] '0010'H
               }
            },
            [PRIVATE 325] '00'H,
            [PRIVATE 362] 'ff'H,
            [PRIVATE 401] '14'H,
            [PRIVATE 442] '15'H,
            [PRIVATE 485] "mkpelist:testdata",
            [PRIVATE 530] 'ff'H,
            [PRIVATE 577] '18'H,
            [PRIVATE 626] '19'H,
            [PRIVATE 677] "mkpelist:testdata",
            [PRIVATE 730] '0010'H
         },
         [PRIVATE 842] 'ff'H,
         [PRIVATE 901] '1e'H,
         [PRIVATE 962] "mkpelist:testdata",
         [PRIVATE 1025] '00'H,
         [PRIVATE 1090] "!",
         [PRIVATE 1157] "mkpelist:testdata",
         [PRIVATE 1226] '0010'H
      },
      [PRIVATE 1370] 'ff'H,
      [PRIVATE 1445] "&",
      [PRIVATE 1522] "mkpelist:testdata",
      [PRIVATE 1601] "(",
      [PRIVATE 1682] "mkpelist:testdata",
      [PRIVATE 1765] '0010'H
   },
   ext-expl {
      direct-reference 1.17.222,
      indirect-reference 16,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   any-expl "mkpelist:testdata"
}

"EXTERNAL" t_test = 4
{
   ext {
      direct-reference 1.17.330,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   a-ny "!",
   ext-impl {
      direct-reference 1.17.258,
      indirect-reference 12,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type '00'H
      }
   },
   any-impl '0010'H,
   ext-expl {
      direct-reference 1.17.186,
      indirect-reference 4,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   any-expl 'ff'H
}

"EXTERNAL" t_test = 3
{
   ext {
      direct-reference 1.17.258,
      indirect-reference 12,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type '00'H
      }
   },
   a-ny '19'H,
   ext-impl {
      direct-reference 1.17.204,
      indirect-reference 32,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type 'ff'H
      }
   },
   any-impl '0010'H,
   ext-expl {
      direct-reference 1.17.150,
      indirect-reference 20,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type 'ff'H
      }
   },
   any-expl 'ff'H
}

"EXTERNAL" t_test = 2
{
   ext {
      direct-reference 1.17.186,
      indirect-reference 4,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   a-ny {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H,
      [PRIVATE 26] 'ff'H,
      [PRIVATE 37] '00'H,
      [PRIVATE 50] 'ff'H,
      [PRIVATE 65] "\b",
      [PRIVATE 82] "\t",
      [PRIVATE 101] "\n",
      [PRIVATE 122] '0b'H,
      [PRIVATE 145] "mkpelist:testdata",
      [PRIVATE 170] "mkpelist:testdata",
      [PRIVATE 197] '0010'H,
      [PRIVATE 226] '0010'H,
      [PRIVATE 15] {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b",
         [PRIVATE 82] "\t",
         [PRIVATE 101] "\n",
         [PRIVATE 122] '0b'H,
         [PRIVATE 145] "mkpelist:testdata",
         [PRIVATE 170] "mkpelist:testdata",
         [PRIVATE 197] '0010'H,
         [PRIVATE 226] '0010'H
      }
   },
   ext-impl {
      direct-reference 1.17.150,
      indirect-reference 20,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type 'ff'H
      }
   },
   any-impl 'ff'H,
   ext-expl {
      direct-reference 1.17.114,
      indirect-reference 16,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   any-expl '15'H
}

"EXTERNAL" t_test = 1
{
   ext {
      direct-reference 1.17.114,
      indirect-reference 16,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   a-ny "\t",
   ext-impl {
      direct-reference 1.17.96,
      indirect-reference 28,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         single-ASN1-type '00'H
      }
   },
   any-impl '0b'H,
   ext-expl {
      direct-reference 1.17.78,
      indirect-reference 48,
      data-value-descriptor '4120766572792077696c642074797065206f66206461746100'H,
      encoding {
         octet-aligned '536f6d652074657374206461746100'H
      }
   },
   any-expl "mkpelist:testdata"
}

"Optimised" t_test = 8
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H,
      [PRIVATE 26] 'ff'H,
      [PRIVATE 37] '00'H,
      [PRIVATE 50] 'ff'H,
      [PRIVATE 65] "\b"
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b"
      },
      o6 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H,
         [PRIVATE 65] "\b"
      },
      o7 1.17
   }
}

"Optimised" t_test = 7
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H,
      [PRIVATE 26] 'ff'H,
      [PRIVATE 37] '00'H,
      [PRIVATE 50] 'ff'H
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H
      },
      o6 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H,
         [PRIVATE 50] 'ff'H
      },
      o7 1.17
   }
}

"Optimised" t_test = 6
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H,
      [PRIVATE 26] 'ff'H,
      [PRIVATE 37] '00'H
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H
      },
      o6 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H,
         [PRIVATE 37] '00'H
      },
      o7 1.17
   }
}

"Optimised" t_test = 5
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H,
      [PRIVATE 26] 'ff'H
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H
      },
      o6 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H,
         [PRIVATE 26] 'ff'H
      },
      o7 1.17.48.53.58
   }
}

"Optimised" t_test = 4
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H,
      [PRIVATE 17] '00'H
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H
      },
      o6 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H,
         [PRIVATE 17] '00'H
      },
      o7 1.17.45.49
   }
}

"Optimised" t_test = 3
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H,
      [PRIVATE 10] 'ff'H
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H
      },
      o6 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H,
         [PRIVATE 10] 'ff'H
      },
      o7 1.17.42
   }
}

"Optimised" t_test = 2
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H,
      [PRIVATE 5] '00'H
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H
      },
      o6 {
         [PRIVATE 2] 'ff'H,
         [PRIVATE 5] '00'H
      },
      o7 1.17
   }
}

"Optimised" t_test = 1
{
   o1 '0001010000110001000100100011011100011010'B,
   o2 "Peckling Worsley!!!!",
   o3 {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   o4 {
      [PRIVATE 2] 'ff'H
   },
   {
      o5 {
         [PRIVATE 2] 'ff'H
      },
      o6 {
         [PRIVATE 2] 'ff'H
      },
      o7 1.17
   }
}

"External References" t_test = 6
{
   a-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   b-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   c-ref {
      c1 {
         o-c1 '416e6472657720576f72736c657921212100'H
      },
      c2 {
         b-c2 '0000001000000001000000010000011100111111'B
      },
      c3 {
         seq-c3 {
            seq-c3-in {
               i-expl 35051,
               o-expl "explicit tagged octet string",
               b-expl '00111000001110000011100000111111'B,
               f-expl TRUE,
               obj-expl {
                  atest 2001,
                  btest "Good bye",
                  ctest '000000110000100010101010'B,
                  big-test {
                     ostring '3132fe00ff6136'H,
                     bstring '10111000000011110000100000010000001000000100000000'B,
                     nstring "123456",
                     pstring "hello, world",
                     tstring "teletex",
                     t61string "T.61",
                     vstring "visible",
                     vis-string "visible again",
                     i646string "who knows what this is",
                     ia5string "This is ASCII\n\r",
                     graphstring "This is a graphic string",
                     genstring "This is a general string"
                  },
                  emb-test {
                     em-int -101,
                     em-oct "Embedded octet string",
                     em-bit '1111111110101010010101011111100000000001'B
                  }
               },
               i-exp-test {
                  i-ex-int -9,
                  i-ex-oct '4578706c6963697420456d62656464656400'H,
                  i-ex-bit '0000001100000011000000110000001110111111'B
               }
            },
            seq-c3-i 40938,
            seq-c3-o '4a616d657320576f72736c65792121212100'H
         }
      },
      c4 {
         c4-choice {
            sc-b-i 13151
         }
      }
   }
}

"External References" t_test = 5
{
   a-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   b-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   c-ref {
      c1 {
         i-c1 10101
      },
      c2 {
         o-c2 '5269636861726420576f72736c6579212100'H
      },
      c3 {
         i-c3 689364
      },
      c4 {
         c4-choice {
            sc-a-i 16891
         }
      }
   },
   e-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   }
}

"External References" t_test = 4
{
   a-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   b-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   c-ref {
      c1 {
         obj-c1 {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         }
      },
      c2 {
         i-c2 1212
      },
      c3 {
         set-c3 {
            set-c3-in {
               i-expl 35051,
               o-expl "explicit tagged octet string",
               b-expl '00111000001110000011100000111111'B,
               f-expl TRUE,
               obj-expl {
                  atest 2001,
                  btest "Good bye",
                  ctest '000000110000100010101010'B,
                  big-test {
                     ostring '3132fe00ff6136'H,
                     bstring '10111000000011110000100000010000001000000100000000'B,
                     nstring "123456",
                     pstring "hello, world",
                     tstring "teletex",
                     t61string "T.61",
                     vstring "visible",
                     vis-string "visible again",
                     i646string "who knows what this is",
                     ia5string "This is ASCII\n\r",
                     graphstring "This is a graphic string",
                     genstring "This is a general string"
                  },
                  emb-test {
                     em-int -101,
                     em-oct "Embedded octet string",
                     em-bit '1111111110101010010101011111100000000001'B
                  }
               },
               i-exp-test {
                  i-ex-int -9,
                  i-ex-oct '4578706c6963697420456d62656464656400'H,
                  i-ex-bit '0000001100000011000000110000001110111111'B
               }
            },
            set-c3-i 264504,
            set-c3-o '5061747269636b20576f72736c6579212100'H
         }
      },
      c4 {
         c4-choice {
            c4-obj {
               i-expl 35051,
               o-expl "explicit tagged octet string",
               b-expl '00111000001110000011100000111111'B,
               f-expl TRUE,
               obj-expl {
                  atest 2001,
                  btest "Good bye",
                  ctest '000000110000100010101010'B,
                  big-test {
                     ostring '3132fe00ff6136'H,
                     bstring '10111000000011110000100000010000001000000100000000'B,
                     nstring "123456",
                     pstring "hello, world",
                     tstring "teletex",
                     t61string "T.61",
                     vstring "visible",
                     vis-string "visible again",
                     i646string "who knows what this is",
                     ia5string "This is ASCII\n\r",
                     graphstring "This is a graphic string",
                     genstring "This is a general string"
                  },
                  emb-test {
                     em-int -101,
                     em-oct "Embedded octet string",
                     em-bit '1111111110101010010101011111100000000001'B
                  }
               },
               i-exp-test {
                  i-ex-int -9,
                  i-ex-oct '4578706c6963697420456d62656464656400'H,
                  i-ex-bit '0000001100000011000000110000001110111111'B
               }
            }
         }
      }
   }
}

"External References" t_test = 3
{
   a-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   b-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   c-ref {
      c1 {
         f-c1 TRUE
      },
      c2 {
         obj-c2 {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         }
      },
      c3 {
         seq-c3 {
            seq-c3-in {
               i-expl 35051,
               o-expl "explicit tagged octet string",
               b-expl '00111000001110000011100000111111'B,
               f-expl TRUE,
               obj-expl {
                  atest 2001,
                  btest "Good bye",
                  ctest '000000110000100010101010'B,
                  big-test {
                     ostring '3132fe00ff6136'H,
                     bstring '10111000000011110000100000010000001000000100000000'B,
                     nstring "123456",
                     pstring "hello, world",
                     tstring "teletex",
                     t61string "T.61",
                     vstring "visible",
                     vis-string "visible again",
                     i646string "who knows what this is",
                     ia5string "This is ASCII\n\r",
                     graphstring "This is a graphic string",
                     genstring "This is a general string"
                  },
                  emb-test {
                     em-int -101,
                     em-oct "Embedded octet string",
                     em-bit '1111111110101010010101011111100000000001'B
                  }
               },
               i-exp-test {
                  i-ex-int -9,
                  i-ex-oct '4578706c6963697420456d62656464656400'H,
                  i-ex-bit '0000001100000011000000110000001110111111'B
               }
            },
            seq-c3-i 40938,
            seq-c3-o '4a616d657320576f72736c65792121212100'H
         }
      },
      c4 {
         c4-choice {
            c4-i 10938
         }
      }
   },
   e-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   }
}

"External References" t_test = 2
{
   a-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   b-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   c-ref {
      c1 {
         b-c1 '0000001000000010000000100000011100111111'B
      },
      c2 {
         f-c2 TRUE
      },
      c3 {
         i-c3 689364
      },
      c4 {
         c4-choice {
            sc-b-i 13151
         }
      }
   }
}

"External References" t_test = 1
{
   a-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   b-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   },
   c-ref {
      c1 {
         o-c1 '416e6472657720576f72736c657921212100'H
      },
      c2 {
         b-c2 '0000001000000001000000010000011100111111'B
      },
      c3 {
         set-c3 {
            set-c3-in {
               i-expl 35051,
               o-expl "explicit tagged octet string",
               b-expl '00111000001110000011100000111111'B,
               f-expl TRUE,
               obj-expl {
                  atest 2001,
                  btest "Good bye",
                  ctest '000000110000100010101010'B,
                  big-test {
                     ostring '3132fe00ff6136'H,
                     bstring '10111000000011110000100000010000001000000100000000'B,
                     nstring "123456",
                     pstring "hello, world",
                     tstring "teletex",
                     t61string "T.61",
                     vstring "visible",
                     vis-string "visible again",
                     i646string "who knows what this is",
                     ia5string "This is ASCII\n\r",
                     graphstring "This is a graphic string",
                     genstring "This is a general string"
                  },
                  emb-test {
                     em-int -101,
                     em-oct "Embedded octet string",
                     em-bit '1111111110101010010101011111100000000001'B
                  }
               },
               i-exp-test {
                  i-ex-int -9,
                  i-ex-oct '4578706c6963697420456d62656464656400'H,
                  i-ex-bit '0000001100000011000000110000001110111111'B
               }
            },
            set-c3-i 264504,
            set-c3-o '5061747269636b20576f72736c6579212100'H
         }
      },
      c4 {
         c4-choice {
            sc-a-i 16891
         }
      }
   },
   e-ref {
      a1 101910,
      a2 -304985,
      a3 13,
      a4 {
         a-seq {
            fred 998877
         }
      }
   }
}

"Default test" t_test = 12
{
   a-def 1,
   okay FALSE,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-def {
      colour 1,
      version { basic }
   },
   st-def {
      beer 2,
      spirit 0
   }
}

"Default test" t_test = 11
{
   a-def 1,
   c-def '100000000'B,
   okay FALSE,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   }
}

"Default test" t_test = 10
{
   a-def 1,
   b-def '537573616e20536962656c202121212100'H,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-def {
      colour 1,
      oem-oct '4a756c696120447a75696b6173202121212100'H,
      version { basic }
   }
}

"Default test" t_test = 9
{
   a-def 1,
   okay FALSE,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   st-def {}
}

"Default test" t_test = 8
{
   a-def 1,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-def {
      colour 1,
      version { basic }
   },
   st-def {
      beer 2,
      spirit 0
   }
}

"Default test" t_test = 7
{
   a-def 1,
   okay FALSE,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   st-def {
      wine 2,
      beer 2
   }
}

"Default test" t_test = 6
{
   a-def 1,
   b-def '537573616e20536962656c202121212100'H,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   st-def {}
}

"Default test" t_test = 5
{
   a-def 1,
   c-def '100000000'B,
   okay FALSE,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   }
}

"Default test" t_test = 4
{
   a-def 1,
   okay FALSE,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-def {
      colour 1,
      version { basic }
   },
   st-def {
      beer 2,
      spirit 0
   }
}

"Default test" t_test = 3
{
   a-def 1,
   c-def '100000000'B,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   st-def {}
}

"Default test" t_test = 2
{
   a-def 1,
   b-def '537573616e20536962656c202121212100'H,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-def {
      colour 1,
      version { basic }
   },
   st-def {
      spirit 0
   }
}

"Default test" t_test = 1
{
   a-def 1,
   big-def {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-def {
      version { basic }
   },
   st-def {
      beer 2,
      spirit 0
   }
}

"Optional test" t_test = 8
{
   b-opt '537573616e2048616e6e616820536962656c00'H,
   etag-opt 2983461
}

"Optional test" t_test = 7
{
   a-opt 192837,
   b-opt '537573616e2048616e6e616820536962656c00'H,
   d-opt TRUE,
   e-opt NULL,
   big-opt {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-opt {
      oem-int 197336,
      oem-oct '4c696e6720576f72736c657900'H
   },
   st-opt {
      st-int0 85659,
      st-int2 967768
   },
   obj-opt {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   ch-opt {
      ch-2 28828
   }
}

"Optional test" t_test = 6
{
   b-opt '537573616e2048616e6e616820536962656c00'H,
   c-opt '0000101000001111000000100000011100111111'B,
   d-opt TRUE,
   e-opt NULL
}

"Optional test" t_test = 5
{
   a-opt 192837,
   b-opt '537573616e2048616e6e616820536962656c00'H,
   c-opt '0000101000001111000000100000011100111111'B,
   e-opt NULL,
   big-opt {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-opt {
      oem-int 197336,
      oem-oct '4c696e6720576f72736c657900'H
   },
   st-opt {
      st-int0 85659,
      st-int2 967768
   },
   obj-opt {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   ch-opt {
      ch-2 28828
   }
}

"Optional test" t_test = 4
{
   b-opt '537573616e2048616e6e616820536962656c00'H,
   e-opt NULL
}

"Optional test" t_test = 3
{
   a-opt 192837,
   b-opt '537573616e2048616e6e616820536962656c00'H,
   d-opt TRUE,
   big-opt {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-opt {
      oem-int 197336,
      oem-oct '4c696e6720576f72736c657900'H
   },
   st-opt {
      st-int0 85659,
      st-int2 967768
   },
   obj-opt {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   ch-opt {
      ch-2 28828
   }
}

"Optional test" t_test = 2
{
   b-opt '537573616e2048616e6e616820536962656c00'H,
   c-opt '0000101000001111000000100000011100111111'B,
   d-opt TRUE
}

"Optional test" t_test = 1
{
   a-opt 192837,
   b-opt '537573616e2048616e6e616820536962656c00'H,
   c-opt '0000101000001111000000100000011100111111'B,
   big-opt {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-opt {
      oem-int 197336,
      oem-oct '4c696e6720576f72736c657900'H
   },
   st-opt {
      st-int0 85659,
      st-int2 967768
   },
   obj-opt {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   ch-opt {
      ch-2 28828
   }
}

"Choice" t_test = 7
{
   c1 {
      b-c1 '0000001000000010000000100000011100111111'B
   },
   c2 {
      f-c2 TRUE
   },
   c3 {
      set-c3 {
         set-c3-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         set-c3-i 264504,
         set-c3-o '5061747269636b20576f72736c6579212100'H
      }
   },
   c4 {
      c4-choice {
         c4-i 10938
      }
   }
}

"Choice" t_test = 6
{
   c1 {
      o-c1 '416e6472657720576f72736c657921212100'H
   },
   c2 {
      b-c2 '0000001000000001000000010000011100111111'B
   },
   c3 {
      seq-c3 {
         seq-c3-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         seq-c3-i 40938,
         seq-c3-o '4a616d657320576f72736c65792121212100'H
      }
   },
   c4 {
      c4-choice {
         sc-b-i 13151
      }
   }
}

"Choice" t_test = 5
{
   c1 {
      i-c1 10101
   },
   c2 {
      o-c2 '5269636861726420576f72736c6579212100'H
   },
   c3 {
      i-c3 689364
   },
   c4 {
      c4-choice {
         sc-a-i 16891
      }
   }
}

"Choice" t_test = 4
{
   c1 {
      obj-c1 {
         atest 2001,
         btest "Good bye",
         ctest '000000110000100010101010'B,
         big-test {
            ostring '3132fe00ff6136'H,
            bstring '10111000000011110000100000010000001000000100000000'B,
            nstring "123456",
            pstring "hello, world",
            tstring "teletex",
            t61string "T.61",
            vstring "visible",
            vis-string "visible again",
            i646string "who knows what this is",
            ia5string "This is ASCII\n\r",
            graphstring "This is a graphic string",
            genstring "This is a general string"
         },
         emb-test {
            em-int -101,
            em-oct "Embedded octet string",
            em-bit '1111111110101010010101011111100000000001'B
         }
      }
   },
   c2 {
      i-c2 1212
   },
   c3 {
      set-c3 {
         set-c3-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         set-c3-i 264504,
         set-c3-o '5061747269636b20576f72736c6579212100'H
      }
   },
   c4 {
      c4-choice {
         c4-obj {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         }
      }
   }
}

"Choice" t_test = 3
{
   c1 {
      f-c1 TRUE
   },
   c2 {
      obj-c2 {
         atest 2001,
         btest "Good bye",
         ctest '000000110000100010101010'B,
         big-test {
            ostring '3132fe00ff6136'H,
            bstring '10111000000011110000100000010000001000000100000000'B,
            nstring "123456",
            pstring "hello, world",
            tstring "teletex",
            t61string "T.61",
            vstring "visible",
            vis-string "visible again",
            i646string "who knows what this is",
            ia5string "This is ASCII\n\r",
            graphstring "This is a graphic string",
            genstring "This is a general string"
         },
         emb-test {
            em-int -101,
            em-oct "Embedded octet string",
            em-bit '1111111110101010010101011111100000000001'B
         }
      }
   },
   c3 {
      seq-c3 {
         seq-c3-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         seq-c3-i 40938,
         seq-c3-o '4a616d657320576f72736c65792121212100'H
      }
   },
   c4 {
      c4-choice {
         c4-i 10938
      }
   }
}

"Choice" t_test = 2
{
   c1 {
      b-c1 '0000001000000010000000100000011100111111'B
   },
   c2 {
      f-c2 TRUE
   },
   c3 {
      i-c3 689364
   },
   c4 {
      c4-choice {
         sc-b-i 13151
      }
   }
}

"Choice" t_test = 1
{
   c1 {
      o-c1 '416e6472657720576f72736c657921212100'H
   },
   c2 {
      b-c2 '0000001000000001000000010000011100111111'B
   },
   c3 {
      set-c3 {
         set-c3-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         set-c3-i 264504,
         set-c3-o '5061747269636b20576f72736c6579212100'H
      }
   },
   c4 {
      c4-choice {
         sc-a-i 16891
      }
   }
}

"SEQ OF and SET OF" t_test = 10
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 9
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 8
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 7
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 6
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 5
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 4
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 3
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 2
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"SEQ OF and SET OF" t_test = 1
{
   sqof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   stof-test1 {
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      },
      {
         i-expl 35051,
         o-expl "explicit tagged octet string",
         b-expl '00111000001110000011100000111111'B,
         f-expl TRUE,
         obj-expl {
            atest 2001,
            btest "Good bye",
            ctest '000000110000100010101010'B,
            big-test {
               ostring '3132fe00ff6136'H,
               bstring '10111000000011110000100000010000001000000100000000'B,
               nstring "123456",
               pstring "hello, world",
               tstring "teletex",
               t61string "T.61",
               vstring "visible",
               vis-string "visible again",
               i646string "who knows what this is",
               ia5string "This is ASCII\n\r",
               graphstring "This is a graphic string",
               genstring "This is a general string"
            },
            emb-test {
               em-int -101,
               em-oct "Embedded octet string",
               em-bit '1111111110101010010101011111100000000001'B
            }
         },
         i-exp-test {
            i-ex-int -9,
            i-ex-oct '4578706c6963697420456d62656464656400'H,
            i-ex-bit '0000001100000011000000110000001110111111'B
         }
      }
   },
   i-test1 33,
   sqof-test2 {
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      },
      {
         sqof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         sqof-i 212121,
         sqof-o '456c656d656e743820456d62656464656400'H
      }
   },
   stof-test2 {
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      },
      {
         stof-in {
            i-expl 35051,
            o-expl "explicit tagged octet string",
            b-expl '00111000001110000011100000111111'B,
            f-expl TRUE,
            obj-expl {
               atest 2001,
               btest "Good bye",
               ctest '000000110000100010101010'B,
               big-test {
                  ostring '3132fe00ff6136'H,
                  bstring '10111000000011110000100000010000001000000100000000'B,
                  nstring "123456",
                  pstring "hello, world",
                  tstring "teletex",
                  t61string "T.61",
                  vstring "visible",
                  vis-string "visible again",
                  i646string "who knows what this is",
                  ia5string "This is ASCII\n\r",
                  graphstring "This is a graphic string",
                  genstring "This is a general string"
               },
               emb-test {
                  em-int -101,
                  em-oct "Embedded octet string",
                  em-bit '1111111110101010010101011111100000000001'B
               }
            },
            i-exp-test {
               i-ex-int -9,
               i-ex-oct '4578706c6963697420456d62656464656400'H,
               i-ex-bit '0000001100000011000000110000001110111111'B
            }
         },
         stof-i -12345,
         stof-o '58595a616263646520456d62656464656400'H
      }
   },
   i-test2 99
}

"Explicit tags" t_test = 1
{
   i-expl 35051,
   o-expl "explicit tagged octet string",
   b-expl '00111000001110000011100000111111'B,
   f-expl TRUE,
   obj-expl {
      atest 2001,
      btest "Good bye",
      ctest '000000110000100010101010'B,
      big-test {
         ostring '3132fe00ff6136'H,
         bstring '10111000000011110000100000010000001000000100000000'B,
         nstring "123456",
         pstring "hello, world",
         tstring "teletex",
         t61string "T.61",
         vstring "visible",
         vis-string "visible again",
         i646string "who knows what this is",
         ia5string "This is ASCII\n\r",
         graphstring "This is a graphic string",
         genstring "This is a general string"
      },
      emb-test {
         em-int -101,
         em-oct "Embedded octet string",
         em-bit '1111111110101010010101011111100000000001'B
      }
   },
   i-exp-test {
      i-ex-int -9,
      i-ex-oct '4578706c6963697420456d62656464656400'H,
      i-ex-bit '0000001100000011000000110000001110111111'B
   }
}

"Implicit tags" t_test = 1
{
   i-impl -1,
   o-impl '49276d20616e20696d706c6963697420746167676564206f6374657420737472696e6700'H,
   b-impl '0000000000000000000000011001100000000001'B,
   f-impl TRUE,
   obj-impl {
      atest 2001,
      btest "Good bye",
      ctest '000000110000100010101010'B,
      big-test {
         ostring '3132fe00ff6136'H,
         bstring '10111000000011110000100000010000001000000100000000'B,
         nstring "123456",
         pstring "hello, world",
         tstring "teletex",
         t61string "T.61",
         vstring "visible",
         vis-string "visible again",
         i646string "who knows what this is",
         ia5string "This is ASCII\n\r",
         graphstring "This is a graphic string",
         genstring "This is a general string"
      },
      emb-test {
         em-int -101,
         em-oct "Embedded octet string",
         em-bit '1111111110101010010101011111100000000001'B
      }
   },
   i-emb-test {
      i-em-int -101,
      i-em-oct '496d706c6963697420456d62656464656400'H,
      i-em-bit '10000000100000001000000010000000'B
   }
}

"Embedded Strings" t_test = 1
{
   atest 2001,
   btest "Good bye",
   ctest '000000110000100010101010'B,
   big-test {
      ostring '3132fe00ff6136'H,
      bstring '10111000000011110000100000010000001000000100000000'B,
      nstring "123456",
      pstring "hello, world",
      tstring "teletex",
      t61string "T.61",
      vstring "visible",
      vis-string "visible again",
      i646string "who knows what this is",
      ia5string "This is ASCII\n\r",
      graphstring "This is a graphic string",
      genstring "This is a general string"
   },
   emb-test {
      em-int -101,
      em-oct "Embedded octet string",
      em-bit '1111111110101010010101011111100000000001'B
   }
}

"Strings" t_test = 1
{
   ostring '3132fe00ff6136'H,
   bstring '10111000000011110000100000010000001000000100000000'B,
   nstring "123456",
   pstring "hello, world",
   tstring "teletex",
   t61string "T.61",
   vstring "visible",
   vis-string "visible again",
   i646string "who knows what this is",
   ia5string "This is ASCII\n\r",
   graphstring "This is a graphic string",
   genstring "This is a general string"
}

"Embedded" t_test = 1
{
   anMPDU {
      a-seq {
         fred 10,
         george TRUE
      }
   },
   ei 6966
}

"MPDU" t_test = 1
{
   a-seq {
      fred 10,
      george TRUE
   }
}
Total 107  = 107 successes 0 failures