|
580 | 580 | :to-equal (shell-quote-argument "/bin/command"))))
|
581 | 581 |
|
582 | 582 | (describe "cider-connect-sibling-cljs"
|
583 |
| - :var (-cider-cljs-repl-types bu-cider-shadow-default-options) |
| 583 | + ;; restore: |
| 584 | + ;; - `cider-cljs-repl-types` changed by `cider-register-cljs-repl-type`. |
| 585 | + :var (-cider-cljs-repl-types) |
584 | 586 | (before-all
|
585 |
| - (setq -cider-cljs-repl-types cider-cljs-repl-types |
586 |
| - -cider-shadow-default-options cider-shadow-default-options)) |
| 587 | + (setq -cider-cljs-repl-types cider-cljs-repl-types)) |
587 | 588 | (after-each
|
588 |
| - (setq cider-cljs-repl-types -cider-cljs-repl-types |
589 |
| - cider-shadow-default-options -cider-shadow-default-options)) |
| 589 | + (setq cider-cljs-repl-types -cider-cljs-repl-types)) |
590 | 590 |
|
591 | 591 | (describe "sets nrepl client local vars correctly"
|
592 | 592 | (it "for nbb project"
|
593 | 593 | (let* ((server-process (nrepl-start-mock-server-process))
|
594 | 594 | (server-buffer (process-buffer server-process))
|
595 |
| - (client-buffer (cider-connect-sibling-cljs '(:cljs-repl-type nbb) server-buffer))) |
596 |
| - (expect (buffer-local-value 'cider-repl-type client-buffer) :to-equal 'cljs) |
597 |
| - (expect (buffer-local-value 'cider-repl-init-function client-buffer) :to-be nil) |
| 595 | + (client-buffer (cider-connect-sibling-cljs |
| 596 | + '(:cljs-repl-type nbb) server-buffer))) |
| 597 | + ;; native cljs REPL |
| 598 | + (expect (buffer-local-value 'cider-repl-type client-buffer) |
| 599 | + :to-equal 'cljs) |
| 600 | + (expect (buffer-local-value 'cider-repl-init-function client-buffer) |
| 601 | + :to-be nil) |
598 | 602 | (delete-process (get-buffer-process client-buffer))))
|
599 | 603 | (it "for shadow project"
|
600 |
| - (setq cider-shadow-default-options "a-shadow-alias") |
601 |
| - (let* ((server-process (nrepl-start-mock-server-process)) |
| 604 | + (let* ((cider-shadow-default-options "a-shadow-alias") |
| 605 | + (server-process (nrepl-start-mock-server-process)) |
602 | 606 | (server-buffer (process-buffer server-process))
|
603 |
| - (client-buffer (cider-connect-sibling-cljs '(:cljs-repl-type shadow) server-buffer))) |
604 |
| - (expect (buffer-local-value 'cider-repl-type client-buffer) :to-equal 'pending-cljs) |
605 |
| - (expect (buffer-local-value 'cider-repl-init-function client-buffer) :not :to-be nil) |
| 607 | + (client-buffer (cider-connect-sibling-cljs |
| 608 | + '(:cljs-repl-type shadow) server-buffer))) |
| 609 | + ;; starts as clj REPL and requires a form to switch over to cljs |
| 610 | + (expect (buffer-local-value 'cider-repl-type client-buffer) |
| 611 | + :to-equal 'pending-cljs) |
| 612 | + (expect (buffer-local-value 'cider-repl-init-function client-buffer) |
| 613 | + :not :to-be nil) |
606 | 614 | (delete-process (get-buffer-process client-buffer))))
|
607 | 615 | (it "for a custom cljs REPL type project"
|
608 | 616 | (cider-register-cljs-repl-type 'native-cljs)
|
609 | 617 | (let* ((server-process (nrepl-start-mock-server-process))
|
610 | 618 | (server-buffer (process-buffer server-process))
|
611 |
| - (client-buffer (cider-connect-sibling-cljs '(:cljs-repl-type native-cljs) |
612 |
| - server-buffer))) |
613 |
| - (expect (buffer-local-value 'cider-repl-type client-buffer) :to-equal 'cljs) |
| 619 | + (client-buffer (cider-connect-sibling-cljs |
| 620 | + '(:cljs-repl-type native-cljs) |
| 621 | + server-buffer))) |
| 622 | + (expect (buffer-local-value 'cider-repl-type client-buffer) |
| 623 | + :to-equal 'cljs) |
614 | 624 | (delete-process (get-buffer-process client-buffer))))
|
615 | 625 | (it "for a custom REPL type project that needs to switch to cljs"
|
616 |
| - (cider-register-cljs-repl-type 'not-cljs-initially "(form-to-switch-to-cljs-repl)") |
| 626 | + (cider-register-cljs-repl-type |
| 627 | + 'not-cljs-initially "(form-to-switch-to-cljs-repl)") |
617 | 628 | (let* ((server-process (nrepl-start-mock-server-process))
|
618 | 629 | (server-buffer (process-buffer server-process))
|
619 |
| - (client-buffer (cider-connect-sibling-cljs '(:cljs-repl-type not-cljs-initially) |
620 |
| - server-buffer))) |
621 |
| - (expect (buffer-local-value 'cider-repl-type client-buffer) :to-equal 'pending-cljs) |
622 |
| - (expect (buffer-local-value 'cider-repl-init-function client-buffer) :not :to-be nil) |
| 630 | + (client-buffer (cider-connect-sibling-cljs |
| 631 | + '(:cljs-repl-type not-cljs-initially) |
| 632 | + server-buffer))) |
| 633 | + (expect (buffer-local-value 'cider-repl-type client-buffer) |
| 634 | + :to-equal 'pending-cljs) |
| 635 | + (expect (buffer-local-value 'cider-repl-init-function client-buffer) |
| 636 | + :not :to-be nil) |
623 | 637 | (delete-process (get-buffer-process client-buffer))))))
|
624 | 638 |
|
625 | 639 | (provide 'cider-tests)
|
|
0 commit comments