docutils/tools/editors/emacs/tests/adjust-uc.el

   1 ;; Tests for rst-adjust  -*- lexical-binding: t -*-
   2 ;;
   3 ;; These tests are for all use cases not only "filling" an existing adornment
   4
   5 (add-to-list 'load-path ".")
   6 (load "init" nil t)
   7 (init-rst-ert t)
   8
   9 (ert-deftest adjust-uc-asserts ()
  10   "Check some assertions."
  11   (should (equal ert-Buf-point-char "\^@"))
  12   (should (equal ert-Buf-mark-char "\^?"))
  13   )
  14
  15 ;; Each test tests a line in the use case chart. The conditions fixed by the
  16 ;; chart entry are noted before the test. The varying conditions are noted for
  17 ;; the individual test. A condition marked with "<" follows from another
  18 ;; condition setting.
  19
  20 (defun rst-ert-adjust-section (toggle-style reverse)
  21   "Call `rst-adjust-section' turning error messages into t."
  22   (and (rst-adjust-section toggle-style reverse) t))
  23
  24 ;; :Prf: No preferences
  25 ;; :Sel: No adornment around point
  26 ;; :Prv: < No previous header
  27 ;; :Hie: < No hierarchy beyond current header
  28 ;; :Cur: < Does not apply
  29 (ert-deftest rst-adjust-section-prf-N-sel-N-prv-N-hie-N-cur-!-dir-? ()
  30   (let ((rst-new-adornment-down nil)
  31         (rst-default-indent 3)
  32         (rst-preferred-adornments nil))
  33     ;; :Dir: Up
  34     (should (ert-equal-buffer-return
  35              '(rst-ert-adjust-section nil nil)
  36              "
  37 Document Title\^@
  38 "
  39              t
  40              t))
  41     ;; :Dir: Down
  42     (should (ert-equal-buffer-return
  43              '(rst-ert-adjust-section nil t)
  44              "
  45 Document Title\^@
  46 "
  47              t
  48              t))
  49     ))
  50
  51 ;; :Prf: No preferences
  52 ;; :Sel: No adornment around point
  53 ;; :Prv: < No previous header
  54 ;; :Hie: < Existing
  55 ;; :Cur: < Does not apply
  56 (ert-deftest rst-adjust-section-prf-N-sel-N-prv-N-hie-!-cur-!-dir-? ()
  57   (let ((rst-new-adornment-down nil)
  58         (rst-default-indent 3)
  59         (rst-preferred-adornments nil))
  60     ;; :Dir: Up
  61     (should (ert-equal-buffer-return
  62              '(rst-ert-adjust-section nil nil)
  63              "
  64 Document Title\^@
  65
  66 Hie 1
  67 =====
  68
  69 Hie 1.1
  70 -------
  71 "
  72              "
  73 Document Title
  74 ==============
  75
  76 Hie 1
  77 =====
  78
  79 Hie 1.1
  80 -------
  81 "
  82              nil))
  83     ;; :Dir: Down
  84     (should (ert-equal-buffer-return
  85              '(rst-ert-adjust-section nil t)
  86              "
  87 Document Title\^@
  88
  89 Hie 1
  90 =====
  91
  92 Hie 1.1
  93 -------
  94 "
  95              "
  96 Document Title
  97 ==============
  98
  99 Hie 1
 100 =====
 101
 102 Hie 1.1
 103 -------
 104 "
 105              nil))
 106     ))
 107
 108 ;; :Prf: No preferences
 109 ;; :Sel: No adornment around point
 110 ;; :Prv: < Disadvised
 111 ;; :Hie: < Existing
 112 ;; :Cur: < Does not apply
 113 (ert-deftest rst-adjust-section-prf-N-sel-N-prv-D-hie-!-cur-!-dir-? ()
 114   (let ((rst-new-adornment-down nil)
 115         (rst-default-indent 3)
 116         (rst-preferred-adornments nil))
 117     ;; :Dir: Up
 118     (should (ert-equal-buffer-return
 119              '(rst-ert-adjust-section nil nil)
 120              "
 121 Document Title
 122 ==============
 123
 124 Hie 1\^@
 125
 126 Hie 1.1
 127 -------
 128 "
 129              "
 130 Document Title
 131 ==============
 132
 133 Hie 1
 134 =====
 135
 136 Hie 1.1
 137 -------
 138 "
 139              nil))
 140     ;; :Dir: Down
 141     (should (ert-equal-buffer-return
 142              '(rst-ert-adjust-section nil t)
 143              "
 144 Document Title
 145 ==============
 146
 147 Hie 1\^@
 148
 149 Hie 1.1
 150 -------
 151 "
 152              "
 153 Document Title
 154 ==============
 155
 156 Hie 1
 157 -----
 158
 159 Hie 1.1
 160 -------
 161 "
 162              nil))
 163     ))
 164
 165 ;; :Prf: No preferences
 166 ;; :Sel: Existing header around point
 167 ;; :Prv: < No previous header
 168 ;; :Hie: < No hierarchy beyond current header
 169 ;; :Cur: < Disadvised
 170 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-N-hie-N-cur-D-dir-? ()
 171   (let ((rst-new-adornment-down nil)
 172         (rst-default-indent 3)
 173         (rst-preferred-adornments nil))
 174     ;; :Dir: Up
 175     (should (ert-equal-buffer-return
 176              '(rst-ert-adjust-section nil nil)
 177              "
 178 Document Title\^@
 179 ==============
 180 "
 181              t
 182              t))
 183     ;; :Dir: Down
 184     (should (ert-equal-buffer-return
 185              '(rst-ert-adjust-section nil t)
 186              "
 187 Document Title\^@
 188 ==============
 189 "
 190              t
 191              t))
 192     ))
 193
 194 ;; :Prf: No preferences
 195 ;; :Sel: Existing header around point
 196 ;; :Prv: < No previous header
 197 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
 198 ;; :Cur: < Disadvised
 199 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-N-hie-M-cur-D-dir-? ()
 200   (let ((rst-new-adornment-down nil)
 201         (rst-default-indent 3)
 202         (rst-preferred-adornments nil))
 203     ;; :Dir: Up
 204     (should (ert-equal-buffer-return
 205              '(rst-ert-adjust-section nil nil)
 206              "
 207 Hie 1\^@
 208 -----
 209
 210 Hie 2
 211 =====
 212
 213 Hie 2.1
 214 -------
 215
 216 Hie 2.1.1
 217 ~~~~~~~~~
 218 "
 219              "
 220 Hie 1
 221 ~~~~~
 222
 223 Hie 2
 224 =====
 225
 226 Hie 2.1
 227 -------
 228
 229 Hie 2.1.1
 230 ~~~~~~~~~
 231 "
 232              nil))
 233     ;; :Dir: Down
 234     (should (ert-equal-buffer-return
 235              '(rst-ert-adjust-section nil t)
 236              "
 237 Hie 1\^@
 238 -----
 239
 240 Hie 2
 241 =====
 242
 243 Hie 2.1
 244 -------
 245
 246 Hie 2.1.1
 247 ~~~~~~~~~
 248 "
 249              "
 250 Hie 1
 251 =====
 252
 253 Hie 2
 254 =====
 255
 256 Hie 2.1
 257 -------
 258
 259 Hie 2.1.1
 260 ~~~~~~~~~
 261 "
 262              nil))
 263     ))
 264
 265 ;; :Prf: No preferences
 266 ;; :Sel: Existing header around point
 267 ;; :Prv: < No previous header
 268 ;; :Hie: < Last in existing hierarchy
 269 ;; :Cur: < Disadvised
 270 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-N-hie-L-cur-D-dir-? ()
 271   (let ((rst-new-adornment-down nil)
 272         (rst-default-indent 3)
 273         (rst-preferred-adornments nil))
 274     ;; :Dir: Up
 275     (should (ert-equal-buffer-return
 276              '(rst-ert-adjust-section nil nil)
 277              "
 278 Hie 1\^@
 279 =====
 280
 281 Hie 2
 282 =====
 283
 284 Hie 2.1
 285 -------
 286
 287 Hie 2.1.1
 288 ~~~~~~~~~
 289 "
 290              "
 291 Hie 1
 292 ~~~~~
 293
 294 Hie 2
 295 =====
 296
 297 Hie 2.1
 298 -------
 299
 300 Hie 2.1.1
 301 ~~~~~~~~~
 302 "
 303              nil))
 304     ;; :Dir: Down
 305     (should (ert-equal-buffer-return
 306              '(rst-ert-adjust-section nil t)
 307              "
 308 Hie 1\^@
 309 ~~~~~
 310
 311 Hie 2
 312 =====
 313
 314 Hie 2.1
 315 -------
 316
 317 Hie 2.1.1
 318 ~~~~~~~~~
 319 "
 320              "
 321 Hie 1
 322 =====
 323
 324 Hie 2
 325 =====
 326
 327 Hie 2.1
 328 -------
 329
 330 Hie 2.1.1
 331 ~~~~~~~~~
 332 "
 333              nil))
 334     ))
 335
 336 ;; :Prf: No preferences
 337 ;; :Sel: Existing header around point
 338 ;; :Prv: < No previous header
 339 ;; :Hie: < Once in existing hierarchy
 340 ;; :Cur: < Disadvised
 341 ;; :Dir: Down
 342 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-N-hie-O-cur-D-dir-D ()
 343   (let ((rst-new-adornment-down nil)
 344         (rst-default-indent 3)
 345         (rst-preferred-adornments nil))
 346     (should (ert-equal-buffer-return
 347              '(rst-ert-adjust-section nil t)
 348              "
 349 Hie 1\^@
 350 $$$$$
 351
 352 Hie 2
 353 =====
 354
 355 Hie 2.1
 356 -------
 357
 358 Hie 2.1.1
 359 ~~~~~~~~~
 360 "
 361              "
 362 Hie 1
 363 =====
 364
 365 Hie 2
 366 =====
 367
 368 Hie 2.1
 369 -------
 370
 371 Hie 2.1.1
 372 ~~~~~~~~~
 373 "
 374              nil))
 375     ))
 376
 377 ;; :Prf: No preferences
 378 ;; :Sel: Existing header around point
 379 ;; :Prv: < No previous header
 380 ;; :Hie: < Once in existing hierarchy
 381 ;; :Cur: < Disadvised
 382 ;; :Dir: Up
 383 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-N-hie-O-cur-D-dir-U ()
 384   (let ((rst-new-adornment-down nil)
 385         (rst-default-indent 3)
 386         (rst-preferred-adornments nil))
 387     (should (ert-equal-buffer-return
 388              '(rst-ert-adjust-section nil nil)
 389              "
 390 Hie 1\^@
 391 $$$$$
 392
 393 Hie 2
 394 =====
 395
 396 Hie 2.1
 397 -------
 398
 399 Hie 2.1.1
 400 ~~~~~~~~~
 401 "
 402              "
 403 Hie 1
 404 ~~~~~
 405
 406 Hie 2
 407 =====
 408
 409 Hie 2.1
 410 -------
 411
 412 Hie 2.1.1
 413 ~~~~~~~~~
 414 "
 415              nil))
 416     ))
 417
 418 ;; :Prf: No preferences
 419 ;; :Sel: Existing header around point
 420 ;; :Prv: < Disadvised previous header
 421 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
 422 ;; :Cur: < Disadvised
 423 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-D-hie-M-cur-D-dir-? ()
 424   (let ((rst-new-adornment-down nil)
 425         (rst-default-indent 3)
 426         (rst-preferred-adornments nil))
 427     ;; :Dir: Up
 428     (should (ert-equal-buffer-return
 429              '(rst-ert-adjust-section nil nil)
 430              "
 431 Hie 1
 432 =====
 433
 434 Hie 2
 435 =====
 436
 437 Hie 2.1
 438 -------
 439
 440 Hie 3\^@
 441 -----
 442
 443 Hie 3.1.1
 444 ~~~~~~~~~
 445 "
 446              "
 447 Hie 1
 448 =====
 449
 450 Hie 2
 451 =====
 452
 453 Hie 2.1
 454 -------
 455
 456 Hie 3
 457 =====
 458
 459 Hie 3.1.1
 460 ~~~~~~~~~
 461 "
 462              nil))
 463     ;; :Dir: Down
 464     (should (ert-equal-buffer-return
 465              '(rst-ert-adjust-section nil t)
 466              "
 467 Hie 1
 468 =====
 469
 470 Hie 2
 471 =====
 472
 473 Hie 2.1
 474 -------
 475
 476 Hie 2.1.1\^@
 477 ---------
 478
 479 Hie 2.1.2
 480 ~~~~~~~~~
 481 "
 482              "
 483 Hie 1
 484 =====
 485
 486 Hie 2
 487 =====
 488
 489 Hie 2.1
 490 -------
 491
 492 Hie 2.1.1
 493 ~~~~~~~~~
 494
 495 Hie 2.1.2
 496 ~~~~~~~~~
 497 "
 498              nil))
 499     ))
 500
 501 ;; :Prf: No preferences
 502 ;; :Sel: Existing header around point
 503 ;; :Prv: < Disadvised previous header
 504 ;; :Hie: < Breaking single entry in the middle of existing hierarchy
 505 ;; :Cur: < Disadvised
 506 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-D-hie-B-cur-D-dir-? ()
 507   (let ((rst-new-adornment-down nil)
 508         (rst-default-indent 3)
 509         (rst-preferred-adornments nil))
 510     ;; :Dir: Up
 511     (should (ert-equal-buffer-return
 512              '(rst-ert-adjust-section nil nil)
 513              "
 514 Hie 1
 515 =====
 516
 517 Hie 2
 518 =====
 519
 520 Hie 3\^@
 521 $$$$$
 522
 523 Hie 3.1
 524 ~~~~~~~
 525 "
 526              "
 527 Hie 1
 528 =====
 529
 530 Hie 2
 531 =====
 532
 533 Hie 3
 534 =====
 535
 536 Hie 3.1
 537 ~~~~~~~
 538 "
 539              nil))
 540     ;; :Dir: Down
 541     (should (ert-equal-buffer-return
 542              '(rst-ert-adjust-section nil t)
 543              "
 544 Hie 1
 545 =====
 546
 547 Hie 2
 548 =====
 549
 550 Hie 2.1\^@
 551 $$$$$$$
 552
 553 Hie 2.2
 554 ~~~~~~~
 555 "
 556              "
 557 Hie 1
 558 =====
 559
 560 Hie 2
 561 =====
 562
 563 Hie 2.1
 564 ~~~~~~~
 565
 566 Hie 2.2
 567 ~~~~~~~
 568 "
 569              nil))
 570     ))
 571
 572 ;; :Prf: No preferences
 573 ;; :Sel: Existing header around point
 574 ;; :Prv: < Disadvised previous header
 575 ;; :Hie: < Last in existing hierarchy
 576 ;; :Cur: < Disadvised
 577 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-D-hie-L-cur-D-dir-? ()
 578   (let ((rst-new-adornment-down nil)
 579         (rst-default-indent 3)
 580         (rst-preferred-adornments nil))
 581     ;; :Dir: Up
 582     (should (ert-equal-buffer-return
 583              '(rst-ert-adjust-section nil nil)
 584              "
 585 Hie 1
 586 =====
 587
 588 Hie 2
 589 =====
 590
 591 Hie 2.1
 592 -------
 593
 594 Hie 2.2\^@
 595 ~~~~~~~
 596
 597 Hie 2.2.1
 598 ~~~~~~~~~
 599 "
 600              "
 601 Hie 1
 602 =====
 603
 604 Hie 2
 605 =====
 606
 607 Hie 2.1
 608 -------
 609
 610 Hie 2.2
 611 -------
 612
 613 Hie 2.2.1
 614 ~~~~~~~~~
 615 "
 616              nil))
 617     ;; :Dir: Down
 618     (should (ert-equal-buffer-return
 619              '(rst-ert-adjust-section nil t)
 620              "
 621 Hie 1
 622 =====
 623
 624 Hie 2
 625 =====
 626
 627 Hie 2.1
 628 -------
 629
 630 Hie 3\^@
 631 ~~~~~
 632
 633 Hie 3.1.1
 634 ~~~~~~~~~
 635 "
 636              "
 637 Hie 1
 638 =====
 639
 640 Hie 2
 641 =====
 642
 643 Hie 2.1
 644 -------
 645
 646 Hie 3
 647 =====
 648
 649 Hie 3.1.1
 650 ~~~~~~~~~
 651 "
 652              nil))
 653     ))
 654
 655 ;; :Prf: No preferences
 656 ;; :Sel: Existing header around point
 657 ;; :Prv: < Disadvised previous header
 658 ;; :Hie: < Once in existing hierarchy
 659 ;; :Cur: < Disadvised
 660 (ert-deftest rst-adjust-section-prf-N-sel-E-prv-D-hie-O-cur-D-dir-? ()
 661   (let ((rst-new-adornment-down nil)
 662         (rst-default-indent 3)
 663         (rst-preferred-adornments nil))
 664     ;; :Dir: Up
 665     (should (ert-equal-buffer-return
 666              '(rst-ert-adjust-section nil nil)
 667              "
 668 Hie 1
 669 =====
 670
 671 Hie 2
 672 =====
 673
 674 Hie 2.1
 675 -------
 676
 677 Hie 2.2\^@
 678 ~~~~~~~
 679
 680 Hie 3
 681 =====
 682 "
 683              "
 684 Hie 1
 685 =====
 686
 687 Hie 2
 688 =====
 689
 690 Hie 2.1
 691 -------
 692
 693 Hie 2.2
 694 -------
 695
 696 Hie 3
 697 =====
 698 "
 699              nil))
 700     ;; :Dir: Down
 701     (should (ert-equal-buffer-return
 702              '(rst-ert-adjust-section nil t)
 703              "
 704 Hie 1
 705 =====
 706
 707 Hie 2
 708 =====
 709
 710 Hie 2.1
 711 -------
 712
 713 Hie 3\^@
 714 ~~~~~
 715
 716 Hie 4
 717 =====
 718 "
 719              "
 720 Hie 1
 721 =====
 722
 723 Hie 2
 724 =====
 725
 726 Hie 2.1
 727 -------
 728
 729 Hie 3
 730 =====
 731
 732 Hie 4
 733 =====
 734 "
 735              nil))
 736     ))
 737
 738 ;; :Prf: Preferences exist
 739 ;; :Sel: No adornment around point
 740 ;; :Prv: < No previous header
 741 ;; :Hie: < No hierarchy beyond current header
 742 ;; :Cur: < Does not apply
 743 ;; :Dir: Irrelevant
 744 (ert-deftest rst-adjust-section-prf-P-sel-N-prv-N-hie-N-cur-!-dir-? ()
 745   (let ((rst-new-adornment-down nil)
 746         (rst-default-indent 3)
 747         (rst-preferred-adornments '((?: over-and-under 1)
 748                                     (?. over-and-under 1)
 749                                     (?: simple 0)
 750                                     (?. simple 0))))
 751     ;; :Dir: Up
 752     (should (ert-equal-buffer-return
 753              '(rst-ert-adjust-section nil nil)
 754              "
 755 Document Title\^@
 756 "
 757              "
 758 ::::::::::::::::
 759  Document Title
 760 ::::::::::::::::
 761 "
 762              nil))
 763     ;; :Dir: Down
 764     (should (ert-equal-buffer-return
 765              '(rst-ert-adjust-section nil t)
 766              "
 767 Document Title\^@
 768 "
 769              "
 770 ::::::::::::::::
 771  Document Title
 772 ::::::::::::::::
 773 "
 774              nil))
 775     ))
 776
 777 ;; :Prf: Preferences exist
 778 ;; :Sel: No adornment around point
 779 ;; :Prv: < No previous header
 780 ;; :Hie: < Existing
 781 ;; :Cur: < Does not apply
 782 ;; :Dir: Down
 783 (ert-deftest rst-adjust-section-prf-P-sel-N-prv-N-hie-!-cur-!-dir-D ()
 784   (let ((rst-new-adornment-down nil)
 785         (rst-default-indent 3)
 786         (rst-preferred-adornments '((?: over-and-under 1)
 787                                     (?. over-and-under 1)
 788                                     (?: simple 0)
 789                                     (?. simple 0))))
 790     (should (ert-equal-buffer-return
 791              '(rst-ert-adjust-section nil t)
 792              "
 793 Document Title\^@
 794
 795 Hie 1
 796 =====
 797
 798 Hie 1.1
 799 -------
 800 "
 801              "
 802 Document Title
 803 ==============
 804
 805 Hie 1
 806 =====
 807
 808 Hie 1.1
 809 -------
 810 "
 811              nil))
 812     ))
 813
 814 ;; :Prf: Preferences exist
 815 ;; :Sel: No adornment around point
 816 ;; :Prv: < No previous header
 817 ;; :Hie: < Existing
 818 ;; :Cur: < Does not apply
 819 ;; :Dir: Up
 820 (ert-deftest rst-adjust-section-prf-P-sel-N-prv-N-hie-!-cur-!-dir-U ()
 821   (let ((rst-new-adornment-down nil)
 822         (rst-default-indent 3)
 823         (rst-preferred-adornments '((?: over-and-under 1)
 824                                     (?. over-and-under 1)
 825                                     (?: simple 0)
 826                                     (?. simple 0))))
 827     (should (ert-equal-buffer-return
 828              '(rst-ert-adjust-section nil nil)
 829              "
 830 Document Title\^@
 831
 832 Hie 1
 833 =====
 834
 835 Hie 1.1
 836 -------
 837 "
 838              "
 839 ::::::::::::::::
 840  Document Title
 841 ::::::::::::::::
 842
 843 Hie 1
 844 =====
 845
 846 Hie 1.1
 847 -------
 848 "
 849              nil))
 850     ))
 851
 852 ;; :Prf: Preferences exist
 853 ;; :Sel: < Existing adornment around point
 854 ;; :Prv: Disadvised previous header
 855 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
 856 ;; :Cur: Disadvised
 857 ;; :Dir: Any
 858 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-M-cur-D-dir-? ()
 859   (let ((rst-new-adornment-down nil)
 860         (rst-default-indent 3)
 861         (rst-preferred-adornments '((?: over-and-under 1)
 862                                     (?. over-and-under 1)
 863                                     (?: simple 0)
 864                                     (?. simple 0))))
 865     ;; :Dir: Up
 866     (should (ert-equal-buffer-return
 867              '(rst-ert-adjust-section nil nil)
 868              "
 869 ==============
 870 Document Title
 871 ==============
 872
 873 Additional title\^@
 874 ================
 875
 876 Hie 1.1
 877 -------
 878
 879 Hie 2
 880 =====
 881 "
 882              "
 883 ==============
 884 Document Title
 885 ==============
 886
 887 ================
 888 Additional title
 889 ================
 890
 891 Hie 1.1
 892 -------
 893
 894 Hie 2
 895 =====
 896 "
 897              nil))
 898     ;; :Dir: Down
 899     (should (ert-equal-buffer-return
 900              '(rst-ert-adjust-section nil t)
 901              "
 902 ==============
 903 Document Title
 904 ==============
 905
 906 Hie 1.0\^@
 907 =======
 908
 909 Hie 1.1
 910 -------
 911
 912 Hie 2
 913 =====
 914 "
 915              "
 916 ==============
 917 Document Title
 918 ==============
 919
 920 Hie 1.0
 921 -------
 922
 923 Hie 1.1
 924 -------
 925
 926 Hie 2
 927 =====
 928 "
 929              nil))
 930     ))
 931
 932 ;; :Prf: Preferences exist
 933 ;; :Sel: < Existing adornment around point
 934 ;; :Prv: Disadvised previous header
 935 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
 936 ;; :Cur: Successor exists in preferences
 937 ;; :Dir: Any
 938 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-M-cur-S-dir-? ()
 939   (let ((rst-new-adornment-down nil)
 940         (rst-default-indent 3)
 941         (rst-preferred-adornments '((?: over-and-under 1)
 942                                     (?. over-and-under 1)
 943                                     (?: simple 0)
 944                                     (?. simple 0))))
 945     ;; :Dir: Up
 946     (should (ert-equal-buffer-return
 947              '(rst-ert-adjust-section nil nil)
 948              "
 949 ==============
 950 Document Title
 951 ==============
 952
 953 Additional title\^@
 954 ::::::::::::::::
 955
 956 Hie 1.1
 957 -------
 958
 959 Hie 2
 960 :::::
 961 "
 962              "
 963 ==============
 964 Document Title
 965 ==============
 966
 967 ================
 968 Additional title
 969 ================
 970
 971 Hie 1.1
 972 -------
 973
 974 Hie 2
 975 :::::
 976 "
 977              nil))
 978     ;; :Dir: Down
 979     (should (ert-equal-buffer-return
 980              '(rst-ert-adjust-section nil t)
 981              "
 982 ==============
 983 Document Title
 984 ==============
 985
 986 Hie 1.0\^@
 987 :::::::
 988
 989 Hie 1.1
 990 -------
 991
 992 Hie 2
 993 :::::
 994 "
 995              "
 996 ==============
 997 Document Title
 998 ==============
 999
1000 Hie 1.0
1001 -------
1002
1003 Hie 1.1
1004 -------
1005
1006 Hie 2
1007 :::::
1008 "
1009              nil))
1010     ))
1011
1012 ;; :Prf: Preferences exist
1013 ;; :Sel: < Existing adornment around point
1014 ;; :Prv: Disadvised previous header
1015 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
1016 ;; :Cur: Last in preferences
1017 ;; :Dir: Any
1018 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-M-cur-L-dir-? ()
1019   (let ((rst-new-adornment-down nil)
1020         (rst-default-indent 3)
1021         (rst-preferred-adornments '((?: over-and-under 1)
1022                                     (?. over-and-under 1)
1023                                     (?: simple 0)
1024                                     (?. simple 0))))
1025     ;; :Dir: Up
1026     (should (ert-equal-buffer-return
1027              '(rst-ert-adjust-section nil nil)
1028              "
1029 ==============
1030 Document Title
1031 ==============
1032
1033 Additional title\^@
1034 ................
1035
1036 Hie 1.1
1037 -------
1038
1039 Hie 2
1040 .....
1041 "
1042              "
1043 ==============
1044 Document Title
1045 ==============
1046
1047 ================
1048 Additional title
1049 ================
1050
1051 Hie 1.1
1052 -------
1053
1054 Hie 2
1055 .....
1056 "
1057              nil))
1058     ;; :Dir: Down
1059     (should (ert-equal-buffer-return
1060              '(rst-ert-adjust-section nil t)
1061              "
1062 ==============
1063 Document Title
1064 ==============
1065
1066 Hie 1.0\^@
1067 .......
1068
1069 Hie 1.1
1070 -------
1071
1072 Hie 2
1073 .....
1074 "
1075              "
1076 ==============
1077 Document Title
1078 ==============
1079
1080 Hie 1.0
1081 -------
1082
1083 Hie 1.1
1084 -------
1085
1086 Hie 2
1087 .....
1088 "
1089              nil))
1090     ))
1091
1092 ;; :Prf: Preferences exist
1093 ;; :Sel: < Existing adornment around point
1094 ;; :Prv: Disadvised previous header
1095 ;; :Hie: < Breaking single entry in the middle of existing hierarchy
1096 ;; :Cur: Disadvised
1097 ;; :Dir: Any
1098 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-B-cur-D-dir-? ()
1099   (let ((rst-new-adornment-down nil)
1100         (rst-default-indent 3)
1101         (rst-preferred-adornments '((?: over-and-under 1)
1102                                     (?. over-and-under 1)
1103                                     (?: simple 0)
1104                                     (?. simple 0))))
1105     ;; :Dir: Up
1106     (should (ert-equal-buffer-return
1107              '(rst-ert-adjust-section nil nil)
1108              "
1109 ==============
1110 Document Title
1111 ==============
1112
1113 Additional title\^@
1114 $$$$$$$$$$$$$$$$
1115
1116 Hie 1.1
1117 -------
1118
1119 Hie 2
1120 .....
1121 "
1122              "
1123 ==============
1124 Document Title
1125 ==============
1126
1127 ================
1128 Additional title
1129 ================
1130
1131 Hie 1.1
1132 -------
1133
1134 Hie 2
1135 .....
1136 "
1137              nil))
1138     ;; :Dir: Down
1139     (should (ert-equal-buffer-return
1140              '(rst-ert-adjust-section nil t)
1141              "
1142 ==============
1143 Document Title
1144 ==============
1145
1146 Hie 1.0\^@
1147 $$$$$$$
1148
1149 Hie 1.1
1150 -------
1151
1152 Hie 2
1153 .....
1154 "
1155              "
1156 ==============
1157 Document Title
1158 ==============
1159
1160 Hie 1.0
1161 -------
1162
1163 Hie 1.1
1164 -------
1165
1166 Hie 2
1167 .....
1168 "
1169              nil))
1170     ))
1171
1172 ;; :Prf: Preferences exist
1173 ;; :Sel: < Existing adornment around point
1174 ;; :Prv: Disadvised previous header
1175 ;; :Hie: < Breaking single entry in the middle of existing hierarchy
1176 ;; :Cur: Successor exists in preferences
1177 ;; :Dir: Any
1178 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-B-cur-S-dir-? ()
1179   (let ((rst-new-adornment-down nil)
1180         (rst-default-indent 3)
1181         (rst-preferred-adornments '((?: over-and-under 1)
1182                                     (?. over-and-under 1)
1183                                     (?: simple 0)
1184                                     (?. simple 0))))
1185     ;; :Dir: Up
1186     (should (ert-equal-buffer-return
1187              '(rst-ert-adjust-section nil nil)
1188              "
1189 ==============
1190 Document Title
1191 ==============
1192
1193 Additional title\^@
1194 ::::::::::::::::
1195
1196 Hie 1.1
1197 -------
1198
1199 Hie 2
1200 =====
1201 "
1202              "
1203 ==============
1204 Document Title
1205 ==============
1206
1207 ================
1208 Additional title
1209 ================
1210
1211 Hie 1.1
1212 -------
1213
1214 Hie 2
1215 =====
1216 "
1217              nil))
1218     ;; :Dir: Down
1219     (should (ert-equal-buffer-return
1220              '(rst-ert-adjust-section nil t)
1221              "
1222 ==============
1223 Document Title
1224 ==============
1225
1226 Hie 1.0\^@
1227 :::::::
1228
1229 Hie 1.1
1230 -------
1231
1232 Hie 2
1233 =====
1234 "
1235              "
1236 ==============
1237 Document Title
1238 ==============
1239
1240 Hie 1.0
1241 -------
1242
1243 Hie 1.1
1244 -------
1245
1246 Hie 2
1247 =====
1248 "
1249              nil))
1250     ))
1251
1252 ;; :Prf: Preferences exist
1253 ;; :Sel: < Existing adornment around point
1254 ;; :Prv: Disadvised previous header
1255 ;; :Hie: < Breaking single entry in the middle of existing hierarchy
1256 ;; :Cur: Last in preferences
1257 ;; :Dir: Any
1258 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-B-cur-L-dir-? ()
1259   (let ((rst-new-adornment-down nil)
1260         (rst-default-indent 3)
1261         (rst-preferred-adornments '((?: over-and-under 1)
1262                                     (?. over-and-under 1)
1263                                     (?: simple 0)
1264                                     (?. simple 0))))
1265     ;; :Dir: Up
1266     (should (ert-equal-buffer-return
1267              '(rst-ert-adjust-section nil nil)
1268              "
1269 ==============
1270 Document Title
1271 ==============
1272
1273 Additional title\^@
1274 ................
1275
1276 Hie 1.1
1277 -------
1278
1279 Hie 2
1280 =====
1281 "
1282              "
1283 ==============
1284 Document Title
1285 ==============
1286
1287 ================
1288 Additional title
1289 ================
1290
1291 Hie 1.1
1292 -------
1293
1294 Hie 2
1295 =====
1296 "
1297              nil))
1298     ;; :Dir: Down
1299     (should (ert-equal-buffer-return
1300              '(rst-ert-adjust-section nil t)
1301              "
1302 ==============
1303 Document Title
1304 ==============
1305
1306 Hie 1.0\^@
1307 .......
1308
1309 Hie 1.1
1310 -------
1311
1312 Hie 2
1313 =====
1314 "
1315              "
1316 ==============
1317 Document Title
1318 ==============
1319
1320 Hie 1.0
1321 -------
1322
1323 Hie 1.1
1324 -------
1325
1326 Hie 2
1327 =====
1328 "
1329              nil))
1330     ))
1331
1332 ;; :Prf: Preferences exist
1333 ;; :Sel: < Existing adornment around point
1334 ;; :Prv: Disadvised previous header
1335 ;; :Hie: < Last in existing hierarchy for given direction
1336 ;; :Cur: Disadvised (i.e. not in preferences)
1337 ;; :Dir: Any
1338 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-L-cur-D-dir-? ()
1339   (let ((rst-new-adornment-down nil)
1340         (rst-default-indent 3)
1341         (rst-preferred-adornments '((?: over-and-under 1)
1342                                     (?. over-and-under 1)
1343                                     (?: simple 0)
1344                                     (?. simple 0))))
1345     ;; :Dir: Up
1346     (should (ert-equal-buffer-return
1347              '(rst-ert-adjust-section nil nil)
1348              "
1349 ==============
1350 Document Title
1351 ==============
1352
1353 Hie 1
1354 =====
1355
1356 Hie 1.1
1357 -------
1358
1359 =========
1360 Hie 1.1.1\^@
1361 =========
1362 "
1363              "
1364 ==============
1365 Document Title
1366 ==============
1367
1368 Hie 1
1369 =====
1370
1371 Hie 1.1
1372 -------
1373
1374 :::::::::::
1375  Hie 1.1.1
1376 :::::::::::
1377 "
1378              nil))
1379     ;; :Dir: Down
1380     (should (ert-equal-buffer-return
1381              '(rst-ert-adjust-section nil t)
1382              "
1383 ==============
1384 Document Title
1385 ==============
1386
1387 Hie 1
1388 =====
1389
1390 Hie 1.1
1391 -------
1392
1393 Additional title\^@
1394 ~~~~~~~~~~~~~~~~
1395 "
1396              "
1397 ==============
1398 Document Title
1399 ==============
1400
1401 Hie 1
1402 =====
1403
1404 Hie 1.1
1405 -------
1406
1407 ================
1408 Additional title
1409 ================
1410 "
1411              nil))
1412     ))
1413
1414 ;; :Prf: Preferences exist
1415 ;; :Sel: < Existing adornment around point
1416 ;; :Prv: Disadvised previous header
1417 ;; :Hie: < Last in existing hierarchy for given direction
1418 ;; :Cur: Successor exists in preferences
1419 ;; :Dir: Any
1420 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-L-cur-S-dir-? ()
1421   (let ((rst-new-adornment-down nil)
1422         (rst-default-indent 3)
1423         (rst-preferred-adornments '((?: over-and-under 1)
1424                                     (?. over-and-under 1)
1425                                     (?: simple 0)
1426                                     (?. simple 0))))
1427     ;; :Dir: Up
1428     (should (ert-equal-buffer-return
1429              '(rst-ert-adjust-section nil nil)
1430              "
1431 ::::::::::::::
1432 Document Title
1433 ::::::::::::::
1434
1435 .....
1436 Hie 1
1437 .....
1438
1439 Hie 1.1
1440 -------
1441
1442 :::::::::
1443 Hie 1.1.1\^@
1444 :::::::::
1445 "
1446              "
1447 ::::::::::::::
1448 Document Title
1449 ::::::::::::::
1450
1451 .....
1452 Hie 1
1453 .....
1454
1455 Hie 1.1
1456 -------
1457
1458 Hie 1.1.1
1459 :::::::::
1460 "
1461              nil))
1462     ;; :Dir: Down
1463     (should (ert-equal-buffer-return
1464              '(rst-ert-adjust-section nil t)
1465              "
1466 ::::::::::::::
1467 Document Title
1468 ::::::::::::::
1469
1470 .....
1471 Hie 1
1472 .....
1473
1474 Hie 1.1
1475 -------
1476
1477 :::::
1478 Hie 2\^@
1479 :::::
1480 "
1481              "
1482 ::::::::::::::
1483 Document Title
1484 ::::::::::::::
1485
1486 .....
1487 Hie 1
1488 .....
1489
1490 Hie 1.1
1491 -------
1492
1493 .....
1494 Hie 2
1495 .....
1496 "
1497              nil))
1498     ))
1499
1500 ;; :Prf: Preferences exist
1501 ;; :Sel: < Existing adornment around point
1502 ;; :Prv: Disadvised previous header
1503 ;; :Hie: < Last in existing hierarchy for given direction
1504 ;; :Cur: Successor exists in preferences
1505 ;; :Dir: Any
1506 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-L-cur-S-dir-? ()
1507   (let ((rst-new-adornment-down nil)
1508         (rst-default-indent 3)
1509         (rst-preferred-adornments '((?: over-and-under 1)
1510                                     (?. over-and-under 1)
1511                                     (?: simple 0)
1512                                     (?. simple 0))))
1513     ;; :Dir: Up
1514     (should (ert-equal-buffer-return
1515              '(rst-ert-adjust-section nil nil)
1516              "
1517 ::::::::::::::
1518 Document Title
1519 ::::::::::::::
1520
1521 .....
1522 Hie 1
1523 .....
1524
1525 Hie 1.1
1526 -------
1527
1528 :::::::::
1529 Hie 1.1.1\^@
1530 :::::::::
1531 "
1532              "
1533 ::::::::::::::
1534 Document Title
1535 ::::::::::::::
1536
1537 .....
1538 Hie 1
1539 .....
1540
1541 Hie 1.1
1542 -------
1543
1544 Hie 1.1.1
1545 :::::::::
1546 "
1547              nil))
1548     ;; :Dir: Down
1549     (should (ert-equal-buffer-return
1550              '(rst-ert-adjust-section nil t)
1551              "
1552 ::::::::::::::
1553 Document Title
1554 ::::::::::::::
1555
1556 .....
1557 Hie 1
1558 .....
1559
1560 Hie 1.1
1561 -------
1562
1563 :::::
1564 Hie 2\^@
1565 :::::
1566 "
1567              "
1568 ::::::::::::::
1569 Document Title
1570 ::::::::::::::
1571
1572 .....
1573 Hie 1
1574 .....
1575
1576 Hie 1.1
1577 -------
1578
1579 .....
1580 Hie 2
1581 .....
1582 "
1583              nil))
1584     ))
1585
1586 ;; :Prf: Preferences exist
1587 ;; :Sel: < Existing adornment around point
1588 ;; :Prv: Disadvised previous header
1589 ;; :Hie: < Last in existing hierarchy for given direction
1590 ;; :Cur: Last in preferences
1591 ;; :Dir: Any
1592 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-L-cur-L-dir-? ()
1593   (let ((rst-new-adornment-down nil)
1594         (rst-default-indent 3)
1595         (rst-preferred-adornments '((?: over-and-under 1)
1596                                     (?. over-and-under 1)
1597                                     (?: simple 0)
1598                                     (?. simple 0))))
1599     ;; :Dir: Up
1600     (should (ert-equal-buffer-return
1601              '(rst-ert-adjust-section nil nil)
1602              "
1603 ::::::::::::::
1604 Document Title
1605 ::::::::::::::
1606
1607 .....
1608 Hie 1
1609 .....
1610
1611 Hie 1.1
1612 -------
1613
1614 Hie 1.2\^@
1615 .......
1616 "
1617              "
1618 ::::::::::::::
1619 Document Title
1620 ::::::::::::::
1621
1622 .....
1623 Hie 1
1624 .....
1625
1626 Hie 1.1
1627 -------
1628
1629 Hie 1.2
1630 -------
1631 "
1632              nil))
1633     ;; :Dir: Down
1634     (should (ert-equal-buffer-return
1635              '(rst-ert-adjust-section nil t)
1636              "
1637 ::::::::::::::
1638 Document Title
1639 ::::::::::::::
1640
1641 .....
1642 Hie 1
1643 .....
1644
1645 Hie 1.1
1646 -------
1647
1648 Another title\^@
1649 .............
1650 "
1651              "
1652 ::::::::::::::
1653 Document Title
1654 ::::::::::::::
1655
1656 .....
1657 Hie 1
1658 .....
1659
1660 Hie 1.1
1661 -------
1662
1663 :::::::::::::
1664 Another title
1665 :::::::::::::
1666 "
1667              nil))
1668     ))
1669
1670 ;; :Prf: Preferences exist
1671 ;; :Sel: < Existing adornment around point
1672 ;; :Prv: Disadvised previous header
1673 ;; :Hie: Once in existing hierarchy at beginning or end of hierarchy
1674 ;; :Cur: Disadvised (i.e. not in preferences)
1675 ;; :Dir: Any
1676 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-O-cur-D-dir-? ()
1677   (let ((rst-new-adornment-down nil)
1678         (rst-default-indent 3)
1679         (rst-preferred-adornments '((?: over-and-under 1)
1680                                     (?. over-and-under 1)
1681                                     (?: simple 0)
1682                                     (?. simple 0))))
1683     ;; :Dir: Up
1684     (should (ert-equal-buffer-return
1685              '(rst-ert-adjust-section nil nil)
1686              "
1687 ::::::::::::::
1688 Document Title
1689 ::::::::::::::
1690
1691 .....
1692 Hie 1
1693 .....
1694
1695 Hie 1.1
1696 =======
1697
1698 Hie 1.2\^@
1699 -------
1700 "
1701              "
1702 ::::::::::::::
1703 Document Title
1704 ::::::::::::::
1705
1706 .....
1707 Hie 1
1708 .....
1709
1710 Hie 1.1
1711 =======
1712
1713 Hie 1.2
1714 =======
1715 "
1716              nil))
1717     ;; :Dir: Down
1718     (should (ert-equal-buffer-return
1719              '(rst-ert-adjust-section nil t)
1720              "
1721 ::::::::::::::
1722 Document Title
1723 ::::::::::::::
1724
1725 .....
1726 Hie 1
1727 .....
1728
1729 Hie 1.1
1730 =======
1731
1732 Other title\^@
1733 -----------
1734 "
1735              "
1736 ::::::::::::::
1737 Document Title
1738 ::::::::::::::
1739
1740 .....
1741 Hie 1
1742 .....
1743
1744 Hie 1.1
1745 =======
1746
1747 :::::::::::
1748 Other title
1749 :::::::::::
1750 "
1751              nil))
1752     ))
1753
1754 ;; :Prf: Preferences exist
1755 ;; :Sel: < Existing adornment around point
1756 ;; :Prv: Disadvised previous header
1757 ;; :Hie: Once in existing hierarchy at beginning or end of hierarchy
1758 ;; :Cur: Successor exists in preferences
1759 ;; :Dir: Any
1760 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-O-cur-S-dir-? ()
1761   (let ((rst-new-adornment-down nil)
1762         (rst-default-indent 3)
1763         (rst-preferred-adornments '((?: over-and-under 1)
1764                                     (?. over-and-under 1)
1765                                     (?: simple 0)
1766                                     (?. simple 0))))
1767     ;; :Dir: Up
1768     (should (ert-equal-buffer-return
1769              '(rst-ert-adjust-section nil nil)
1770              "
1771 ::::::::::::::
1772 Document Title
1773 ::::::::::::::
1774
1775 .....
1776 Hie 1
1777 .....
1778
1779 Hie 1.1
1780 =======
1781
1782 Hie 1.2\^@
1783 :::::::
1784 "
1785              "
1786 ::::::::::::::
1787 Document Title
1788 ::::::::::::::
1789
1790 .....
1791 Hie 1
1792 .....
1793
1794 Hie 1.1
1795 =======
1796
1797 Hie 1.2
1798 =======
1799 "
1800              nil))
1801     ;; :Dir: Down
1802     (should (ert-equal-buffer-return
1803              '(rst-ert-adjust-section nil t)
1804              "
1805 ::::::::::::::
1806 Document Title
1807 ::::::::::::::
1808
1809 .....
1810 Hie 1
1811 .....
1812
1813 Hie 1.1
1814 =======
1815
1816 Other title\^@
1817 :::::::::::
1818 "
1819              "
1820 ::::::::::::::
1821 Document Title
1822 ::::::::::::::
1823
1824 .....
1825 Hie 1
1826 .....
1827
1828 Hie 1.1
1829 =======
1830
1831 :::::::::::
1832 Other title
1833 :::::::::::
1834 "
1835              nil))
1836     ))
1837
1838 ;; :Prf: Preferences exist
1839 ;; :Sel: < Existing adornment around point
1840 ;; :Prv: Disadvised previous header
1841 ;; :Hie: Once in existing hierarchy at beginning or end of hierarchy
1842 ;; :Cur: Last in preferences
1843 ;; :Dir: Any
1844 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-D-hie-O-cur-L-dir-? ()
1845   (let ((rst-new-adornment-down nil)
1846         (rst-default-indent 3)
1847         (rst-preferred-adornments '((?: over-and-under 1)
1848                                     (?. over-and-under 1)
1849                                     (?: simple 0)
1850                                     (?. simple 0))))
1851     ;; :Dir: Up
1852     (should (ert-equal-buffer-return
1853              '(rst-ert-adjust-section nil nil)
1854              "
1855 ::::::::::::::
1856 Document Title
1857 ::::::::::::::
1858
1859 .....
1860 Hie 1
1861 .....
1862
1863 Hie 1.1
1864 =======
1865
1866 Hie 1.2\^@
1867 .......
1868 "
1869              "
1870 ::::::::::::::
1871 Document Title
1872 ::::::::::::::
1873
1874 .....
1875 Hie 1
1876 .....
1877
1878 Hie 1.1
1879 =======
1880
1881 Hie 1.2
1882 =======
1883 "
1884              nil))
1885     ;; :Dir: Down
1886     (should (ert-equal-buffer-return
1887              '(rst-ert-adjust-section nil t)
1888              "
1889 ::::::::::::::
1890 Document Title
1891 ::::::::::::::
1892
1893 .....
1894 Hie 1
1895 .....
1896
1897 Hie 1.1
1898 =======
1899
1900 Other title\^@
1901 ...........
1902 "
1903              "
1904 ::::::::::::::
1905 Document Title
1906 ::::::::::::::
1907
1908 .....
1909 Hie 1
1910 .....
1911
1912 Hie 1.1
1913 =======
1914
1915 :::::::::::
1916 Other title
1917 :::::::::::
1918 "
1919              nil))
1920     ))
1921
1922 ;; :Prf: Preferences exist
1923 ;; :Sel: < Existing adornment around point
1924 ;; :Prv: Preferences contain previous header
1925 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
1926 ;; :Cur: Disadvised (i.e. not in preferences)
1927 ;; :Dir: Any
1928 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-M-cur-D-dir-? ()
1929   (let ((rst-new-adornment-down nil)
1930         (rst-default-indent 3)
1931         (rst-preferred-adornments '((?: over-and-under 1)
1932                                     (?. over-and-under 1)
1933                                     (?: simple 0)
1934                                     (?. simple 0))))
1935     ;; :Dir: Up
1936     (should (ert-equal-buffer-return
1937              '(rst-ert-adjust-section nil nil)
1938              "
1939 ::::::::::::::
1940 Document Title
1941 ::::::::::::::
1942
1943 .....
1944 Hie 1
1945 .....
1946
1947 Hie 2\^@
1948 =====
1949
1950 Hie 1.2
1951 =======
1952
1953 Hie 1.2.1
1954 ---------
1955 "
1956              "
1957 ::::::::::::::
1958 Document Title
1959 ::::::::::::::
1960
1961 .....
1962 Hie 1
1963 .....
1964
1965 .....
1966 Hie 2
1967 .....
1968
1969 Hie 1.2
1970 =======
1971
1972 Hie 1.2.1
1973 ---------
1974 "
1975              nil))
1976     ;; :Dir: Down
1977     (should (ert-equal-buffer-return
1978              '(rst-ert-adjust-section nil t)
1979              "
1980 ::::::::::::::
1981 Document Title
1982 ::::::::::::::
1983
1984 .....
1985 Hie 1
1986 .....
1987
1988 Hie 1.x.1\^@
1989 =========
1990
1991 Hie 1.2
1992 =======
1993
1994 Hie 1.2.1
1995 ---------
1996 "
1997              "
1998 ::::::::::::::
1999 Document Title
2000 ::::::::::::::
2001
2002 .....
2003 Hie 1
2004 .....
2005
2006 Hie 1.x.1
2007 ---------
2008
2009 Hie 1.2
2010 =======
2011
2012 Hie 1.2.1
2013 ---------
2014 "
2015              nil))
2016     ))
2017
2018 ;; :Prf: Preferences exist
2019 ;; :Sel: < Existing adornment around point
2020 ;; :Prv: Preferences contain previous header
2021 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
2022 ;; :Cur: Successor exists in preferences
2023 ;; :Dir: Any
2024 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-M-cur-S-dir-? ()
2025   (let ((rst-new-adornment-down nil)
2026         (rst-default-indent 3)
2027         (rst-preferred-adornments '((?: over-and-under 1)
2028                                     (?. over-and-under 1)
2029                                     (?: simple 0)
2030                                     (?. simple 0))))
2031     ;; :Dir: Up
2032     (should (ert-equal-buffer-return
2033              '(rst-ert-adjust-section nil nil)
2034              "
2035 ::::::::::::::
2036 Document Title
2037 ::::::::::::::
2038
2039 .....
2040 Hie 1
2041 .....
2042
2043 Hie 2\^@
2044 :::::
2045
2046 Hie 1.2
2047 :::::::
2048
2049 Hie 1.2.1
2050 ---------
2051 "
2052              "
2053 ::::::::::::::
2054 Document Title
2055 ::::::::::::::
2056
2057 .....
2058 Hie 1
2059 .....
2060
2061 .....
2062 Hie 2
2063 .....
2064
2065 Hie 1.2
2066 :::::::
2067
2068 Hie 1.2.1
2069 ---------
2070 "
2071              nil))
2072     ;; :Dir: Down
2073     (should (ert-equal-buffer-return
2074              '(rst-ert-adjust-section nil t)
2075              "
2076 ::::::::::::::
2077 Document Title
2078 ::::::::::::::
2079
2080 .....
2081 Hie 1
2082 .....
2083
2084 Hie 1.x.1\^@
2085 :::::::::
2086
2087 Hie 1.2
2088 :::::::
2089
2090 Hie 1.2.1
2091 ---------
2092 "
2093              "
2094 ::::::::::::::
2095 Document Title
2096 ::::::::::::::
2097
2098 .....
2099 Hie 1
2100 .....
2101
2102 Hie 1.x.1
2103 ---------
2104
2105 Hie 1.2
2106 :::::::
2107
2108 Hie 1.2.1
2109 ---------
2110 "
2111              nil))
2112     ))
2113
2114 ;; :Prf: Preferences exist
2115 ;; :Sel: < Existing adornment around point
2116 ;; :Prv: Preferences contain previous header
2117 ;; :Hie: < Multiple occurrence in the middle of existing hierarchy
2118 ;; :Cur: Last in preferences
2119 ;; :Dir: Any
2120 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-M-cur-L-dir-? ()
2121   (let ((rst-new-adornment-down nil)
2122         (rst-default-indent 3)
2123         (rst-preferred-adornments '((?: over-and-under 1)
2124                                     (?. over-and-under 1)
2125                                     (?: simple 0)
2126                                     (?. simple 0))))
2127     ;; :Dir: Up
2128     (should (ert-equal-buffer-return
2129              '(rst-ert-adjust-section nil nil)
2130              "
2131 ::::::::::::::
2132 Document Title
2133 ::::::::::::::
2134
2135 .....
2136 Hie 1
2137 .....
2138
2139 Hie 2\^@
2140 .....
2141
2142 Hie 1.2
2143 .......
2144
2145 Hie 1.2.1
2146 ---------
2147 "
2148              "
2149 ::::::::::::::
2150 Document Title
2151 ::::::::::::::
2152
2153 .....
2154 Hie 1
2155 .....
2156
2157 .....
2158 Hie 2
2159 .....
2160
2161 Hie 1.2
2162 .......
2163
2164 Hie 1.2.1
2165 ---------
2166 "
2167              nil))
2168     ;; :Dir: Down
2169     (should (ert-equal-buffer-return
2170              '(rst-ert-adjust-section nil t)
2171              "
2172 ::::::::::::::
2173 Document Title
2174 ::::::::::::::
2175
2176 .....
2177 Hie 1
2178 .....
2179
2180 Hie 1.x.1\^@
2181 .........
2182
2183 Hie 1.2
2184 .......
2185
2186 Hie 1.2.1
2187 ---------
2188 "
2189              "
2190 ::::::::::::::
2191 Document Title
2192 ::::::::::::::
2193
2194 .....
2195 Hie 1
2196 .....
2197
2198 Hie 1.x.1
2199 ---------
2200
2201 Hie 1.2
2202 .......
2203
2204 Hie 1.2.1
2205 ---------
2206 "
2207              nil))
2208     ))
2209
2210 ;; :Prf: Preferences exist
2211 ;; :Sel: < Existing adornment around point
2212 ;; :Prv: Preferences contain previous header
2213 ;; :Hie: < Breaking single entry in the middle of existing hierarchy
2214 ;; :Cur: Disadvised (i.e. not in preferences)
2215 ;; :Dir: Any
2216 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-B-cur-D-dir-? ()
2217   (let ((rst-new-adornment-down nil)
2218         (rst-default-indent 3)
2219         (rst-preferred-adornments '((?: over-and-under 1)
2220                                     (?. over-and-under 1)
2221                                     (?: simple 0)
2222                                     (?. simple 0))))
2223     ;; :Dir: Up
2224     (should (ert-equal-buffer-return
2225              '(rst-ert-adjust-section nil nil)
2226              "
2227 ::::::::::::::
2228 Document Title
2229 ::::::::::::::
2230
2231 .....
2232 Hie 1
2233 .....
2234
2235 Hie 2\^@
2236 =====
2237
2238 Hie 1.1.1
2239 ---------
2240 "
2241              "
2242 ::::::::::::::
2243 Document Title
2244 ::::::::::::::
2245
2246 .....
2247 Hie 1
2248 .....
2249
2250 .....
2251 Hie 2
2252 .....
2253
2254 Hie 1.1.1
2255 ---------
2256 "
2257              nil))
2258     ;; :Dir: Down
2259     (should (ert-equal-buffer-return
2260              '(rst-ert-adjust-section nil t)
2261              "
2262 ::::::::::::::
2263 Document Title
2264 ::::::::::::::
2265
2266 .....
2267 Hie 1
2268 .....
2269
2270 Hie 1.x.1\^@
2271 =========
2272
2273 Hie 1.1.1
2274 ---------
2275 "
2276              "
2277 ::::::::::::::
2278 Document Title
2279 ::::::::::::::
2280
2281 .....
2282 Hie 1
2283 .....
2284
2285 Hie 1.x.1
2286 ---------
2287
2288 Hie 1.1.1
2289 ---------
2290 "
2291              nil))
2292     ))
2293
2294 ;; :Prf: Preferences exist
2295 ;; :Sel: < Existing adornment around point
2296 ;; :Prv: Preferences contain previous header
2297 ;; :Hie: < Breaking single entry in the middle of existing hierarchy
2298 ;; :Cur: Successor exists in preferences
2299 ;; :Dir: Any
2300 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-B-cur-S-dir-? ()
2301   (let ((rst-new-adornment-down nil)
2302         (rst-default-indent 3)
2303         (rst-preferred-adornments '((?: over-and-under 1)
2304                                     (?. over-and-under 1)
2305                                     (?: simple 0)
2306                                     (?. simple 0))))
2307     ;; :Dir: Up
2308     (should (ert-equal-buffer-return
2309              '(rst-ert-adjust-section nil nil)
2310              "
2311 ::::::::::::::
2312 Document Title
2313 ::::::::::::::
2314
2315 .....
2316 Hie 1
2317 .....
2318
2319 Hie 2\^@
2320 =====
2321
2322 Hie 1.1.1
2323 .........
2324 "
2325              "
2326 ::::::::::::::
2327 Document Title
2328 ::::::::::::::
2329
2330 .....
2331 Hie 1
2332 .....
2333
2334 .....
2335 Hie 2
2336 .....
2337
2338 Hie 1.1.1
2339 .........
2340 "
2341              nil))
2342     ;; :Dir: Down
2343     (should (ert-equal-buffer-return
2344              '(rst-ert-adjust-section nil t)
2345              "
2346 ::::::::::::::
2347 Document Title
2348 ::::::::::::::
2349
2350 .....
2351 Hie 1
2352 .....
2353
2354 Hie 1.x.1\^@
2355 =========
2356
2357 Hie 1.1.1
2358 .........
2359 "
2360              "
2361 ::::::::::::::
2362 Document Title
2363 ::::::::::::::
2364
2365 .....
2366 Hie 1
2367 .....
2368
2369 Hie 1.x.1
2370 .........
2371
2372 Hie 1.1.1
2373 .........
2374 "
2375              nil))
2376     ))
2377
2378 ;; :Prf: Preferences exist
2379 ;; :Sel: < Existing adornment around point
2380 ;; :Prv: Preferences contain previous header
2381 ;; :Hie: < Breaking single entry in the middle of existing hierarchy
2382 ;; :Cur: Last in preferences
2383 ;; :Dir: Any
2384 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-B-cur-L-dir-? ()
2385   (let ((rst-new-adornment-down nil)
2386         (rst-default-indent 3)
2387         (rst-preferred-adornments '((?: over-and-under 1)
2388                                     (?. over-and-under 1)
2389                                     (?: simple 0)
2390                                     (?. simple 0))))
2391     ;; :Dir: Up
2392     (should (ert-equal-buffer-return
2393              '(rst-ert-adjust-section nil nil)
2394              "
2395 ::::::::::::::
2396 Document Title
2397 ::::::::::::::
2398
2399 .....
2400 Hie 1
2401 .....
2402
2403 Hie 2\^@
2404 .....
2405
2406 Hie 1.1.1
2407 ---------
2408 "
2409              "
2410 ::::::::::::::
2411 Document Title
2412 ::::::::::::::
2413
2414 .....
2415 Hie 1
2416 .....
2417
2418 .....
2419 Hie 2
2420 .....
2421
2422 Hie 1.1.1
2423 ---------
2424 "
2425              nil))
2426     ;; :Dir: Down
2427     (should (ert-equal-buffer-return
2428              '(rst-ert-adjust-section nil t)
2429              "
2430 ::::::::::::::
2431 Document Title
2432 ::::::::::::::
2433
2434 .....
2435 Hie 1
2436 .....
2437
2438 Hie 1.x.1\^@
2439 .........
2440
2441 Hie 1.1.1
2442 ---------
2443 "
2444              "
2445 ::::::::::::::
2446 Document Title
2447 ::::::::::::::
2448
2449 .....
2450 Hie 1
2451 .....
2452
2453 Hie 1.x.1
2454 ---------
2455
2456 Hie 1.1.1
2457 ---------
2458 "
2459              nil))
2460     ))
2461
2462 ;; :Prf: Preferences exist
2463 ;; :Sel: < Existing adornment around point
2464 ;; :Prv: Preferences contain previous header
2465 ;; :Hie: < Last in existing hierarchy for given direction
2466 ;; :Cur: Disadvised (i.e. not in preferences)
2467 ;; :Dir: Any
2468 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-L-cur-D-dir-? ()
2469   (let ((rst-new-adornment-down nil)
2470         (rst-default-indent 3)
2471         (rst-preferred-adornments '((?: over-and-under 1)
2472                                     (?. over-and-under 1)
2473                                     (?: simple 0)
2474                                     (?. simple 0))))
2475     ;; :Dir: Up
2476     (should (ert-equal-buffer-return
2477              '(rst-ert-adjust-section nil nil)
2478              "
2479 ==============
2480 Document Title
2481 ==============
2482
2483 .....
2484 Hie 1
2485 .....
2486
2487 =======
2488 Hie 1.1\^@
2489 =======
2490
2491 Hie 1.2
2492 -------
2493 "
2494              "
2495 ==============
2496 Document Title
2497 ==============
2498
2499 .....
2500 Hie 1
2501 .....
2502
2503 Hie 1.1
2504 :::::::
2505
2506 Hie 1.2
2507 -------
2508 "
2509              nil))
2510     ;; :Dir: Down
2511     (should (ert-equal-buffer-return
2512              '(rst-ert-adjust-section nil t)
2513              "
2514 ==============
2515 Document Title
2516 ==============
2517
2518 .....
2519 Hie 1
2520 .....
2521
2522 Hie 1.1\^@
2523 -------
2524
2525 Hie 1.2
2526 -------
2527 "
2528              "
2529 ==============
2530 Document Title
2531 ==============
2532
2533 .....
2534 Hie 1
2535 .....
2536
2537 Hie 1.1
2538 :::::::
2539
2540 Hie 1.2
2541 -------
2542 "
2543              nil))
2544     ))
2545
2546 ;; :Prf: Preferences exist
2547 ;; :Sel: < Existing adornment around point
2548 ;; :Prv: Preferences contain previous header
2549 ;; :Hie: < Last in existing hierarchy for given direction
2550 ;; :Cur: Successor exists in preferences
2551 ;; :Dir: Any
2552 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-L-cur-S-dir-? ()
2553   (let ((rst-new-adornment-down nil)
2554         (rst-default-indent 3)
2555         (rst-preferred-adornments '((?: over-and-under 1)
2556                                     (?. over-and-under 1)
2557                                     (?: simple 0)
2558                                     (?. simple 0))))
2559     ;; :Dir: Up
2560     (should (ert-equal-buffer-return
2561              '(rst-ert-adjust-section nil nil)
2562              "
2563 ::::::::::::::
2564 Document Title
2565 ::::::::::::::
2566
2567 .....
2568 Hie 1
2569 .....
2570
2571 :::::::
2572 Hie 1.1\^@
2573 :::::::
2574
2575 Hie 1.2
2576 -------
2577 "
2578              "
2579 ::::::::::::::
2580 Document Title
2581 ::::::::::::::
2582
2583 .....
2584 Hie 1
2585 .....
2586
2587 Hie 1.1
2588 :::::::
2589
2590 Hie 1.2
2591 -------
2592 "
2593              nil))
2594     ;; :Dir: Down
2595     (should (ert-equal-buffer-return
2596              '(rst-ert-adjust-section nil t)
2597              "
2598 ==============
2599 Document Title
2600 ==============
2601
2602 .....
2603 Hie 1
2604 .....
2605
2606 Hie 1.1\^@
2607 :::::::
2608
2609 Hie 1.2
2610 :::::::
2611 "
2612              "
2613 ==============
2614 Document Title
2615 ==============
2616
2617 .....
2618 Hie 1
2619 .....
2620
2621 Hie 1.1
2622 .......
2623
2624 Hie 1.2
2625 :::::::
2626 "
2627              nil))
2628     ))
2629
2630 ;; :Prf: Preferences exist
2631 ;; :Sel: < Existing adornment around point
2632 ;; :Prv: Preferences contain previous header
2633 ;; :Hie: < Last in existing hierarchy for given direction
2634 ;; :Cur: Last in preferences
2635 ;; :Dir: Any
2636 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-L-cur-L-dir-? ()
2637   (let ((rst-new-adornment-down nil)
2638         (rst-default-indent 3)
2639         (rst-preferred-adornments '((?: over-and-under 1)
2640                                     (?. over-and-under 1)
2641                                     (?: simple 0)
2642                                     (?. simple 0))))
2643     ;; :Dir: Up
2644     (should (ert-equal-buffer-return
2645              '(rst-ert-adjust-section nil nil)
2646              "
2647 Document Title
2648 ..............
2649
2650 .....
2651 Hie 1
2652 .....
2653
2654 Hie 1.1\^@
2655 .......
2656
2657 Hie 1.2
2658 -------
2659 "
2660              "
2661 Document Title
2662 ..............
2663
2664 .....
2665 Hie 1
2666 .....
2667
2668 Hie 1.1
2669 :::::::
2670
2671 Hie 1.2
2672 -------
2673 "
2674              nil))
2675     ;; :Dir: Down
2676     (should (ert-equal-buffer-return
2677              '(rst-ert-adjust-section nil t)
2678              "
2679 ==============
2680 Document Title
2681 ==============
2682
2683 .....
2684 Hie 1
2685 .....
2686
2687 Hie 1.1\^@
2688 .......
2689
2690 Hie 1.2
2691 .......
2692 "
2693              "
2694 ==============
2695 Document Title
2696 ==============
2697
2698 .....
2699 Hie 1
2700 .....
2701
2702 Hie 1.1
2703 :::::::
2704
2705 Hie 1.2
2706 .......
2707 "
2708              nil))
2709     ))
2710
2711 ;; :Prf: Preferences exist
2712 ;; :Sel: < Existing adornment around point
2713 ;; :Prv: Preferences contain previous header
2714 ;; :Hie: < Once in existing hierarchy at beginning or end of hierarchy
2715 ;; :Cur: Disadvised (i.e. not in preferences)
2716 ;; :Dir: Any
2717 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-O-cur-D-dir-? ()
2718   (let ((rst-new-adornment-down nil)
2719         (rst-default-indent 3)
2720         (rst-preferred-adornments '((?: over-and-under 1)
2721                                     (?. over-and-under 1)
2722                                     (?: simple 0)
2723                                     (?. simple 0))))
2724     ;; :Dir: Up
2725     (should (ert-equal-buffer-return
2726              '(rst-ert-adjust-section nil nil)
2727              "
2728 ==============
2729 Document Title
2730 ==============
2731
2732 .....
2733 Hie 1
2734 .....
2735
2736 Hie 2\^@
2737 =====
2738 "
2739              "
2740 ==============
2741 Document Title
2742 ==============
2743
2744 .....
2745 Hie 1
2746 .....
2747
2748 .....
2749 Hie 2
2750 .....
2751 "
2752              nil))
2753     ;; :Dir: Down
2754     (should (ert-equal-buffer-return
2755              '(rst-ert-adjust-section nil t)
2756              "
2757 ==============
2758 Document Title
2759 ==============
2760
2761 .....
2762 Hie 1
2763 .....
2764
2765 Title\^@
2766 =====
2767 "
2768              "
2769 ==============
2770 Document Title
2771 ==============
2772
2773 .....
2774 Hie 1
2775 .....
2776
2777 =====
2778 Title
2779 =====
2780 "
2781              nil))
2782     ))
2783
2784 ;; :Prf: Preferences exist
2785 ;; :Sel: < Existing adornment around point
2786 ;; :Prv: Preferences contain previous header
2787 ;; :Hie: < Once in existing hierarchy at beginning or end of hierarchy
2788 ;; :Cur: Successor exists in preferences
2789 ;; :Dir: Any
2790 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-O-cur-S-dir-? ()
2791   (let ((rst-new-adornment-down nil)
2792         (rst-default-indent 3)
2793         (rst-preferred-adornments '((?: over-and-under 1)
2794                                     (?. over-and-under 1)
2795                                     (?: simple 0)
2796                                     (?. simple 0))))
2797     ;; :Dir: Up
2798     (should (ert-equal-buffer-return
2799              '(rst-ert-adjust-section nil nil)
2800              "
2801 ==============
2802 Document Title
2803 ==============
2804
2805 .....
2806 Hie 1
2807 .....
2808
2809 Hie 2\^@
2810 :::::
2811 "
2812              "
2813 ==============
2814 Document Title
2815 ==============
2816
2817 .....
2818 Hie 1
2819 .....
2820
2821 .....
2822 Hie 2
2823 .....
2824 "
2825              nil))
2826     ;; :Dir: Down
2827     (should (ert-equal-buffer-return
2828              '(rst-ert-adjust-section nil t)
2829              "
2830 ==============
2831 Document Title
2832 ==============
2833
2834 .....
2835 Hie 1
2836 .....
2837
2838 Title\^@
2839 :::::
2840 "
2841              "
2842 ==============
2843 Document Title
2844 ==============
2845
2846 .....
2847 Hie 1
2848 .....
2849
2850 =====
2851 Title
2852 =====
2853 "
2854              nil))
2855     ))
2856
2857 ;; :Prf: Preferences exist
2858 ;; :Sel: < Existing adornment around point
2859 ;; :Prv: Preferences contain previous header
2860 ;; :Hie: < Once in existing hierarchy at beginning or end of hierarchy
2861 ;; :Cur: Last in preferences
2862 ;; :Dir: Any
2863 (ert-deftest rst-adjust-section-prf-P-sel-E-prv-P-hie-O-cur-L-dir-? ()
2864   (let ((rst-new-adornment-down nil)
2865         (rst-default-indent 3)
2866         (rst-preferred-adornments '((?: over-and-under 1)
2867                                     (?. over-and-under 1)
2868                                     (?: simple 0)
2869                                     (?. simple 0))))
2870     ;; :Dir: Up
2871     (should (ert-equal-buffer-return
2872              '(rst-ert-adjust-section nil nil)
2873              "
2874 ==============
2875 Document Title
2876 ==============
2877
2878 .....
2879 Hie 1
2880 .....
2881
2882 Hie 2\^@
2883 .....
2884 "
2885              "
2886 ==============
2887 Document Title
2888 ==============
2889
2890 .....
2891 Hie 1
2892 .....
2893
2894 .....
2895 Hie 2
2896 .....
2897 "
2898              nil))
2899     ;; :Dir: Down
2900     (should (ert-equal-buffer-return
2901              '(rst-ert-adjust-section nil t)
2902              "
2903 ==============
2904 Document Title
2905 ==============
2906
2907 .....
2908 Hie 1
2909 .....
2910
2911 Title\^@
2912 .....
2913 "
2914              "
2915 ==============
2916 Document Title
2917 ==============
2918
2919 .....
2920 Hie 1
2921 .....
2922
2923 =====
2924 Title
2925 =====
2926 "
2927              nil))
2928     ))