(ert-deftest count-white-spaces/test ()
  (should (eq (count-white-spaces "a") 0))
  (should (eq (count-white-spaces " a") 1))
  (should (eq (count-white-spaces " a ") 1))
  (should (eq (count-white-spaces "  a") 2)))

(ert-deftest get-yaml-key/test ()
  (should (s-equals? (get-yaml-key "  abc:") "abc"))
  (should (s-equals? (get-yaml-key "hello_world:") "hello_world"))
  (should (s-equals? (get-yaml-key "  hello1: abc") "hello1")))

(ert-deftest yaml-tomato--get-yaml-key/test ()
  (should (s-equals? (yaml-tomato--get-yaml-key "  abc:") "abc"))
  (should (s-equals? (yaml-tomato--get-yaml-key "hello_world:") "hello_world"))
  (should (s-equals? (yaml-tomato--get-yaml-key "  hello1: abc") "hello1")))

Use preffered community standard way of naming
Use preffered community standard way of naming

RadekMolenda/yaml-tomato