module Test_caseinsensitive =

let key_val (kw:regexp) = [ key kw . Util.del_str "=" . store "return" ]

let working =
  let kw = /unavail/i
    in key_val kw

let not_working =
  let kw = /success/i | /unavail/i
    in key_val kw

test working get "UNAVAIL=return" = ?
test not_working get "UNAVAIL=return" = ?