From 1366f4e7b2dd05c1f14f7188eace6ad9921ef7b9 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Sun, 24 Jun 2018 15:01:39 +0300 Subject: Fix a broken test --- test/cider-find-tests.el | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 test/cider-find-tests.el (limited to 'test/cider-find-tests.el') diff --git a/test/cider-find-tests.el b/test/cider-find-tests.el new file mode 100644 index 00000000..3fcb3cb0 --- /dev/null +++ b/test/cider-find-tests.el @@ -0,0 +1,37 @@ +;;; cider-find-tests.el + +;; Copyright © 2012-2018 Bozhidar Batsov + +;; Author: Bozhidar Batsov + +;; This file is NOT part of GNU Emacs. + +;; This program is free software: you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation, either version 3 of the +;; License, or (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see `http://www.gnu.org/licenses/'. + +;;; Commentary: + +;; This file is part of CIDER + +;;; Code: + +(require 'buttercup) +(require 'cider-find) + +(describe "cider-find-ns" + (it "raises a user error if cider is not connected" + (spy-on 'cider-connected-p :and-return-value nil) + (expect (cider-find-ns) :to-throw 'user-error)) + (it "raises a user error if the op is not supported" + (spy-on 'cider-nrepl-op-supported-p :and-return-value nil) + (expect (cider-find-ns) :to-throw 'user-error))) -- cgit v1.2.3