tests/modules/pass_union_select_star.aug

   1 module Pass_union_select_star =
   2
   3   (* Check that in unions the right branch is selected, even if the *)
   4   (* first branch matches nothing.                                  *)
   5   let a = [ key /a/ ]
   6   let b = [ key /b/ ]
   7
   8   let lns = (a* | b+)
   9
  10   (* The 'rm "x"' is a noop; the grammar won't let us do a put test *)
  11   (* without any commands                                           *)
  12   test lns put "b" after rm "x" = "b"
  13
  14 (* Local Variables: *)
  15 (* mode: caml       *)
  16 (* End:             *)