|
331 | 331 | {:nested (in|c x)})" |
332 | 332 | (clojure-toggle-ignore-defun))) |
333 | 333 |
|
| 334 | +(describe"clojure-find-def" |
| 335 | + (it"should recognize def and defn" |
| 336 | + (with-clojure-buffer-point |
| 337 | +"(def foo 1)| |
| 338 | + (defn bar [x y z] z)" |
| 339 | + (expect (clojure-find-def):to-equal '("def""foo"))) |
| 340 | + (with-clojure-buffer-point |
| 341 | +"(def foo 1) |
| 342 | + (defn bar |[x y z] z)" |
| 343 | + (expect (clojure-find-def):to-equal '("defn""bar"))) |
| 344 | + (with-clojure-buffer-point |
| 345 | +"(def foo 1) |
| 346 | + (defn ^:private bar |[x y z] z)" |
| 347 | + (expect (clojure-find-def):to-equal '("defn""bar"))) |
| 348 | + (with-clojure-buffer-point |
| 349 | +"(defn |^{:doc\"A function\"} foo [] 1) |
| 350 | + (defn ^:private bar 2)" |
| 351 | + (expect (clojure-find-def):to-equal '("defn""foo")))) |
| 352 | + (it"should recognize deftest, with or without metadata added to the var" |
| 353 | + (with-clojure-buffer-point |
| 354 | +"|(deftest ^{:a 1} simple-metadata) |
| 355 | + (deftest ^{:a {}} complex-metadata) |
| 356 | + (deftest no-metadata)" |
| 357 | + (expect (clojure-find-def):to-equal '("deftest""simple-metadata"))) |
| 358 | + (with-clojure-buffer-point |
| 359 | +"(deftest ^{:a 1} |simple-metadata) |
| 360 | + (deftest ^{:a {}} complex-metadata) |
| 361 | + (deftest no-metadata)" |
| 362 | + (expect (clojure-find-def):to-equal '("deftest""simple-metadata"))) |
| 363 | + (with-clojure-buffer-point |
| 364 | +"(deftest ^{:a 1} simple-metadata) |
| 365 | + (deftest ^{:a {}} |complex-metadata) |
| 366 | + (deftest no-metadata)" |
| 367 | + (expect (clojure-find-def):to-equal '("deftest""complex-metadata"))) |
| 368 | + (with-clojure-buffer-point |
| 369 | +"(deftest ^{:a 1} simple-metadata) |
| 370 | + (deftest ^{:|a {}} complex-metadata) |
| 371 | + (deftest no-metadata)" |
| 372 | + (expect (clojure-find-def):to-equal '("deftest""complex-metadata"))) |
| 373 | + (with-clojure-buffer-point |
| 374 | +"(deftest ^{:a 1} simple-metadata) |
| 375 | + (deftest ^{:a {}} complex-metadata) |
| 376 | + (deftest |no-metadata)" |
| 377 | + (expect (clojure-find-def):to-equal '("deftest""no-metadata"))))) |
| 378 | + |
334 | 379 | (provide'clojure-mode-util-test) |
335 | 380 |
|
336 | 381 | ;;; clojure-mode-util-test.el ends here |