->HTTP-Header-Case (clj)

(ns camel-snake-kebab.core-test
  (:require [camel-snake-kebab.core :as csk]
            #?(:clj [clojure.test :refer :all]
               :cljs [cljs.test :refer-macros [deftest testing is are]]))
  #?(:clj (:import (clojure.lang ExceptionInfo))))

(deftest format-case-test
  (testing "examples"
    (are [x y] (= x y)
      'fluxCapacitor  (csk/->camelCase 'flux-capacitor)
      "I_AM_CONSTANT" (csk/->SCREAMING_SNAKE_CASE "I am constant")
      :object-id      (csk/->kebab-case :object_id)
      "X-SSL-Cipher"  (csk/->HTTP-Header-Case "x-ssl-cipher")
      :object-id      (csk/->kebab-case-keyword "object_id"))
      :s3_key         (csk/->snake_case :s3-key :separator \-))

(deftest http-header-case-test
  (are [x y] (= x (csk/->HTTP-Header-Case y))
    "User-Agent"       "user-agent"
    "DNT"              "dnt"
    "Remote-IP"        "remote-ip"
    "TE"               "te"
    "UA-CPU"           "ua-cpu"
    "X-SSL-Cipher"     "x-ssl-cipher"
    "X-WAP-Profile"    "x-wap-profile"
    "X-XSS-Protection" "x-xss-protection"))