   (testing "required"
     (deftest should-succeed-when-provided
       (cli '("--server" "localhost")
-           (required ["--server"])))
-    (deftest should-fail-when-not-provided
-      (try
-        (binding [print-and-fail (fn [x] (throw (Exception. "success!")))]
-          (is (thrown-with-msg? Exception #"success!"
-                (cli '() (required ["--server"]))))))))
+           (required ["--server"]))))
 
   (testing "grouped parameters"
     (deftest should-support-groups

      (is (= {:server "localhost"}
             (cli '("-s" "localhost")
                  (optional ["-s" "--server"])))))
    (deftest should-use-last-alias-provided-as-name-in-map
      (is (= {:sizzle "localhost"}
             (cli '("-s" "localhost")

                  (group "--server"
                         (optional ["--name"])
                         (optional ["--port"] #(Integer. %)))))))

    (deftest should-support-nested-groups
      (is (= {:servers {:client {:host {:name "localhost" :port 1234}}}}
             (cli '("--servers--client--host--name" "localhost")
