(ns sorting-phones.core-test
  (:require
    [midje.sweet :refer :all]
    [sorting-phones.core :refer :all]
    [clojure.java.io :as io]))

(let [expected-output "007334436\n053836111\n076352013\n106093560\n169322377\n172048816\n175914591\n183858586\n365661922\n532648843\n611756075\n631462297\n631988892\n897081845\n898364867\n928002342"
      output-file "resources/sorted_phones.txt"]

  (facts
    "about removing duplicates and sorting the phones in a file and writing them into another file"

    (doseq [sorter [{:description "that uses distinct and sort functions"
                     :implementation (->SorterUsingDistinctAndSort)}
                    {:description "that uses a home-made sort function to avoid using distinct function"
                     :implementation (->HomemadeSorterThatAvoidsUsingDistinct)}
                    {:description "that uses a sorted-set function"
                     :implementation (->SorterUsingSortedSet)}]]

      (let [sorter-implementation (:implementation sorter)
            description (str "with a sorter " (:description sorter))]

        (facts {:midje/description description}
          (against-background
            [(after :facts (io/delete-file output-file))]

            (fact
              "when there are no duplicated phones"

              (sort! sorter-implementation "resources/phones.txt" output-file)

              (slurp output-file) => expected-output)

            (fact
              "when there are duplicated phones"

              (sort! sorter-implementation "resources/duplicated-phones.txt" output-file)

              (slurp output-file) => expected-output)))))))