Skip to content

Instantly share code, notes, and snippets.

@TimoKramer
Last active February 18, 2021 08:41
Show Gist options
  • Select an option

  • Save TimoKramer/c61a457a0bca15273fb777bc3c781552 to your computer and use it in GitHub Desktop.

Select an option

Save TimoKramer/c61a457a0bca15273fb777bc3c781552 to your computer and use it in GitHub Desktop.
cljs-ajax issue 257 reproduce
(ns redirect_gist.core
(:require [reitit.ring :as ring]
[reitit.coercion.spec]
[reitit.core :as r]
[ring.adapter.jetty :as jetty]
[ajax.core :refer [GET]]))
(def app
(ring/ring-handler
(ring/router
[["/tempredirect" {:get {:responses {307 {:headers {:location string?}}}
:parameters {:headers {:x-test string?}}
:handler (fn [{:keys [headers uri]}]
(println "Server response on noacceptheader: " headers " " uri)
{:status 307
:headers {"Location" "http://localhost:3000/noacceptheader"}})}}]
["/noacceptheader" {:get {:responses {200 {:body {:foo "bar"}}}
:handler (fn [{:keys [headers uri]}]
(println "Server response on noacceptheader: " headers " " uri)
(if (get headers "x-test")
{:status 500}
{:status 200}))}}]])))
(defn start []
(jetty/run-jetty #'app {:port 3000, :join? false}))
(defn handler [response]
(println "Client response: " (str response)))
(defn redirect-behaviour []
(GET "http://localhost:3000/tempredirect"
{:headers {"x-test" "foo"}}))
(comment
(def server (start))
(redirect-behaviour)
(.stop server))
{:deps {org.clojure/clojure {:mvn/version "1.10.2"}
metosin/reitit {:mvn/version "0.5.12"}
ring/ring-jetty-adapter {:mvn/version "1.7.1"}
cljs-ajax {:mvn/version "0.8.1"}}}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment