swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
unikernel/duniverse/ocaml-re/lib_test/expect/test_alternation.ml Normal file
View file

@ -0,0 +1,28 @@
open Import
module Ast = Re_private.Ast
let test f string =
match f string with
| Ok res -> print_dyn (Ast.to_dyn res)
| Error _ -> assert false
;;
let%expect_test "pcre" =
test Re.Pcre.re_result "(a|b|c)";
[%expect {| (Group (Set (Cast (Alternative (Cset 97) (Cset 98) (Cset 99))))) |}]
;;
let%expect_test "emacs" =
test Re.Emacs.re_result {|\(a\|b\|c\)|};
[%expect {| (Group (Set (Cast (Alternative (Cset 97) (Cset 98) (Cset 99))))) |}]
;;
let%expect_test "perl" =
test Re.Perl.re_result "(a|b|c)";
[%expect {| (Group (Set (Cast (Alternative (Cset 97) (Cset 98) (Cset 99))))) |}]
;;
let%expect_test "posix" =
test Re.Posix.re_result "(a|b|c)";
[%expect {| (Group (Set (Cast (Alternative (Cset 97) (Cset 98) (Cset 99))))) |}]
;;