An example to create keyword-like arguments for a Clojure function

keyword_like_function_test.clj

(ns keyword-like-function-test
  (:require [clojure.test :refer :all]))

(defn find-values
      [& {:keys [p1 p2] :or {p1 [0 0] p2 [1 1]}}]
  [p1 p2])

(deftest keyword-arguments-test
  (testing "when both of the arguments were passed"
    (is (= [4 15] (first (find-values :p1 [4 15] :p2 [3 21]))))
    (is (= [3 21] (last (find-values :p1 [4 15] :p2 [3 21])))))
  (testing "when only the first arugment was passed"
    (is (= [4 15] (first (find-values :p1 [4 15]))))
    (is (= [1 1] (last (find-values :p1 [4 15])))))
  (testing "when no argument was passed"
    (is (= [0 0] (first (find-values))))
    (is (= [1 1] (last (find-values))))))