general {
    funcon-term: 
      initialise-giving
      initialise-binding
      sequential(
        check-true is-equal(
          match(false,pattern-unite(pattern-bind"a",pattern-bind"b")), {"a"|->false,"b"|->false}),
        check-true is-equal(
          match(false,pattern-unite(pattern-type booleans,pattern-bind"b")), {"b"|->false}),
        else(
          effect match(false,pattern-unite(pattern-bind"a",pattern-bind"a")),
        print"OK"))
        ;
}

tests {
    result-term: null-value;
    standard-out: ["OK"];
}