Built the canonicalisation stage into the ADL processor

Unit tests do not all pass.
This commit is contained in:
Simon Brooke 2018-07-20 00:00:47 +01:00
parent 09a788dbd8
commit 1d5525ceaa
5 changed files with 63 additions and 38 deletions

View file

@ -2,7 +2,7 @@
(:require [clojure.string :as s]
[clojure.test :refer :all]
[adl.to-hugsql-queries :refer :all]
[adl.utils :refer :all]))
[adl-support.utils :refer :all]))
(defn string-equal-ignore-whitespace?
"I don't want unit tests to fail just because emitted whitespace changes."

View file

@ -1,10 +0,0 @@
(ns adl.utils-test
(:require [clojure.string :as s]
[clojure.test :refer :all]
[adl.utils :refer :all]))
(deftest singularise-tests
(testing "Singularise"
(is (= "address" (singularise "addresses")))
(is (= "address" (singularise "address")))
(is (= "expertise" (singularise "expertise")))))