<commit_before>(* This is free and unencumbered software released into the public domain. *)

open Consensus.Geometry<commit_msg>Added some initial tests for the Geometry module.<commit_after>(* This is free and unencumbered software released into the public domain. *)

open Consensus.Geometry

let create () =
  Alcotest.(check int) "same int" 0 (int_of_float (Vector.x (Vector.zero ())))

let equals () =
  Alcotest.(check (bool)) "same bool" true ((Vector.zero ()) = (Vector.zero ()))

let () =
  Alcotest.run "My first test" [
    "test_set", [
      "Creation", `Quick, create;
      "Equality", `Quick, equals;
    ];
  ]
{'fraction_non_alphanumeric': 0.13694267515923567, 'fraction_numerical': 0.0015923566878980893, 'mean_word_length': 3.992063492063492, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6502740', 'n_tokens_mistral': 200, 'n_tokens_neox': 192, 'n_words': 65}