|
697 | 697 | (session/message {:op "eval"
|
698 | 698 | :inspect "true"
|
699 | 699 | :code "(repeat 5 {:a (repeat 5 {:b 2}) :c (repeat 5 {:d 2})})"})
|
700 |
| - (is+ ["--- Contents:" [:newline] |
701 |
| - " 0. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
702 |
| - "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 1] |
703 |
| - [:newline] |
704 |
| - " 1. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
705 |
| - "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 2] |
706 |
| - [:newline] |
707 |
| - " 2. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
708 |
| - "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 3] |
709 |
| - [:newline] |
710 |
| - " 3. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
711 |
| - "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 4] |
712 |
| - [:newline] |
713 |
| - " 4. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
714 |
| - "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 5] |
715 |
| - [:newline]] |
716 |
| - (value-skip-header (session/message {:op "inspect-refresh" |
717 |
| - :pretty-print "true"}))))) |
| 700 | + (testing "toggle pretty printing and turn it on" |
| 701 | + (is+ ["--- Contents:" [:newline] |
| 702 | + " 0. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 703 | + "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 1] |
| 704 | + [:newline] |
| 705 | + " 1. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 706 | + "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 2] |
| 707 | + [:newline] |
| 708 | + " 2. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 709 | + "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 3] |
| 710 | + [:newline] |
| 711 | + " 3. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 712 | + "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 4] |
| 713 | + [:newline] |
| 714 | + " 4. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 715 | + "\n :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 5] |
| 716 | + [:newline]] |
| 717 | + (value-skip-header (session/message {:op "inspect-toggle-pretty-print"})))) |
| 718 | + (testing "toggle pretty printing and turn it off" |
| 719 | + (is+ ["--- Contents:" [:newline] |
| 720 | + " 0. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 721 | + " :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 1] |
| 722 | + [:newline] |
| 723 | + " 1. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 724 | + " :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 2] |
| 725 | + [:newline] |
| 726 | + " 2. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 727 | + " :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 3] |
| 728 | + [:newline] |
| 729 | + " 3. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 730 | + " :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 4] |
| 731 | + [:newline] |
| 732 | + " 4. " [:value (str "{:a ({:b 2} {:b 2} {:b 2} {:b 2} {:b 2})," |
| 733 | + " :c ({:d 2} {:d 2} {:d 2} {:d 2} {:d 2})}") 5] |
| 734 | + [:newline]] |
| 735 | + (value-skip-header (session/message {:op "inspect-toggle-pretty-print"})))))) |
718 | 736 |
|
719 | 737 | (deftest print-length-independence-test
|
720 | 738 | (testing "*print-length* doesn't break rendering of long collections"
|
|
0 commit comments