21 lines
356 B
Plaintext
21 lines
356 B
Plaintext
(* -*- tuareg -*- *)
|
|
|
|
#warnings "-40";;
|
|
|
|
open Jbuilder;;
|
|
open Import;;
|
|
|
|
(* Check that [of_alist_multi] groups elements in the right order *)
|
|
String_map.of_alist_multi
|
|
[ "a", 1
|
|
; "b", 1
|
|
; "a", 2
|
|
; "a", 3
|
|
; "b", 2
|
|
]
|
|
|> String_map.bindings;;
|
|
[%%expect{|
|
|
- : (Jbuilder.Import.String_map.key * int list) list =
|
|
[("a", [1; 2; 3]); ("b", [1; 2])]
|
|
|}]
|