Tailwind classes in OCaml
anil.recoil.org
1open Tailwind
2
3let test_basic_functionality () =
4 (* Test basic CSS creation *)
5 let css1 = Css.make "p-4" in
6 let css2 = Css.make "m-2" in
7 let combined = Css.combine css1 css2 in
8 Alcotest.(check string) "basic combination" "p-4 m-2" (Css.to_string combined);
9
10 (* Test tw function *)
11 let classes = tw [css1; css2] in
12 Alcotest.(check string) "tw function" "p-4 m-2" (Css.to_string classes);
13
14 (* Test patterns *)
15 let center = Patterns.flex_center in
16 let result = Css.to_string center in
17 Alcotest.(check bool) "patterns work" (String.length result > 0) true;
18
19 (* Test effects *)
20 let shadow = Effects.shadow_md in
21 Alcotest.(check string) "shadow effect" "shadow-md" (Css.to_string shadow)
22
23let suite = [
24 "basic_functionality", `Quick, test_basic_functionality;
25]