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