anil.recoil.org / unpac-unpac
The unpac monorepo manager self-hosting as a monorepo using unpac
fork atom

make test_components deterministic

fixes #120

Jean-Christophe Filliatre bd6c8ce2 34d835cc

+8 -7
unified split
+7 -7
tests/test_components.expected
··· 1 7 components 2 0 -> 0 3 1 -> 1 4 - 2 -> 1 5 - 3 -> 2 6 - 4 -> 3 7 - 5 -> 3 8 6 -> 4 9 - 7 -> 5 10 - 8 -> 6 11 - 9 -> 0
··· 1 7 components 2 0 -> 0 3 1 -> 1 4 + 2 -> 2 5 + 3 -> 3 6 + 4 -> 1 7 + 5 -> 1 8 6 -> 4 9 + 7 -> 1 10 + 8 -> 5 11 + 9 -> 6
+1
tests/test_components.ml
··· 23 open Pack.Graph 24 25 let () = 26 let g = Rand.graph ~v:10 ~e:3 () in 27 let n, f = C.components g in 28 printf "%d components@." n;
··· 23 open Pack.Graph 24 25 let () = 26 + Random.init 42; 27 let g = Rand.graph ~v:10 ~e:3 () in 28 let n, f = C.components g in 29 printf "%d components@." n;