tests/modules/pass_nocase.aug

   1 module Pass_nocase =
   2
   3 let lns1 =
   4   let re = /[a-z]+/i - "Key" in
   5   [ label "1" . store re ] | [ label "2" . store "Key" ]
   6
   7 test lns1 get "Key" = { "2" = "Key" }
   8 test lns1 get "key" = { "1" = "key" }
   9 test lns1 get "KEY" = { "1" = "KEY" }
  10 test lns1 get "KeY" = { "1" = "KeY" }
  11
  12 let lns2 =
  13   let re = /[A-Za-z]+/ - /Key/i in
  14   [ label "1" . store re ] | [ label "2" . store /Key/i ]
  15
  16 test lns2 get "Key" = { "2" = "Key" }
  17 test lns2 get "key" = { "2" = "key" }
  18 test lns2 get "KEY" = { "2" = "KEY" }
  19 test lns2 get "KeY" = { "2" = "KeY" }
  20
  21 let lns3 =
  22   let rx = /type/i|/flags/i in
  23   [ key rx . del "=" "=" . store /[0-9]+/ ]
  24
  25 test lns3 get "FLAGS=1" = { "FLAGS" = "1" }