# Converted from capitalization.c
 
table: |
  include tables/spaces.uti
  uplow Aa 1
  uplow Bb 2
  uplow Cc 3
  uplow Xx 4
  uplow Yy 5
  uplow Zz 6
  sign - 23
  seqdelimiter -
  sign + 12
  sign [ 13
  sign ] 14
  sign < 15
  sign > 16
  capsletter 12
  begcapsword 13
  endcapsword 14
  lencapsphrase 3
  begcaps 15
  endcaps 16

flags: {testmode: bothDirections}
tests:
  - [Abc, '+abc']
  - [ABC, '[abc']
  - [AbcXyz, '+abc+xyz']
  - [ABcXYz, '[ab]c[xy]z']
  - [ABC-XYZ, '[abc-[xyz']
  - [ABC XYZ ABC, '<abc xyz abc>']
  - [ABC-XYZ-ABC, '[abc-[xyz-[abc']
  - [ABC XYZ-ABC, '[abc [xyz-[abc']
  - ['ABC XYZ ABC   ', '<abc xyz abc>   ']
  - [ABC XYZ ABC XYZ, '<abc xyz abc xyz>']
  - [ABC-XYZ-ABC-XYZ, '[abc-[xyz-[abc-[xyz']
  - [ABC XYZ-ABC-XYZ, '[abc [xyz-[abc-[xyz']
  - [ABC XYZ ABC-XYZ, '<abc xyz abc-xyz>']
  - [A B C, '<a b c>']
  - ['A B C ', '<a b c> ']
  - [A-B-C, '+a-+b-+c']
  - [AB-X-BC, '[ab-+x-[bc']