Simple web server that responds after given delay. Used for testing.

core.clj

(ns clojuweb.core
  (:use compojure.core)
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))

(defroutes main-routes  
  (GET "/delay/:t" [t]
       (try 
         (Thread/sleep (Long/parseLong t))
         "something"
         (catch InterruptedException _ "interrupted")))
  ; (GET "/" [] "<pre>Hello World Wide Web!</pre>")  
  ; (route/resources "/home/petr/tmp")    
  (route/not-found "Page not found"))

(def app
  (handler/site main-routes))

project.clj

(defproject clojuweb "1.0.0-SNAPSHOT"
  :description "Delay test web server"
  :dependencies [[org.clojure/clojure "1.2.0"]
                 [org.clojure/clojure-contrib "1.2.0"]
                 [compojure "0.6.2"]
                 [ring/ring-jetty-adapter "0.2.3"]]
  :dev-dependencies [[lein-eclipse "1.0.0"]
                     [lein-ring "0.4.0"]]
  
  :ring {:handler clojuweb.core/app})

setup.txt

# http://github.com/technomancy/leiningen/blob/master/README.md
# lein self-install
# lein new project-name
lein deps
lein ring server

# simulating Network outages
# sudo iptables -A OUTPUT -p tcp -s 0/0 --sport 3000 -j DROP
# sudo iptables -D OUTPUT 1