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

   1 ;; Tests for rst-adjust
   2
   3 (add-to-list 'load-path ".")
   4 (load "init" nil t)
   5 (init-rst-ert t)
   6
   7 (ert-deftest adjust-section-asserts ()
   8   "Check some assertions."
   9   (should (equal ert-Buf-point-char "\^@"))
  10   (should (equal ert-Buf-mark-char "\^?"))
  11   )
  12
  13 (ert-deftest rst-adjust ()
  14   "Tests for `rst-adjust'."
  15   (let ( ;; Set customizable variables to defined values
  16         (rst-new-adornment-down t)
  17         (rst-default-indent 1)
  18         (rst-preferred-adornments '((?= over-and-under 1)
  19                                     (?= simple 0)
  20                                     (?- simple 0)
  21                                     (?~ simple 0)
  22                                     (?+ simple 0)
  23                                     (?` simple 0)
  24                                     (?# simple 0)
  25                                     (?@ simple 0))))
  26     (should (ert-equal-buffer
  27              (rst-adjust)
  28              "
  29 Some Title\^@
  30
  31 "
  32              "
  33 ============
  34  Some Title
  35 ============
  36
  37 "
  38              t))
  39     (should (ert-equal-buffer
  40              (rst-adjust)
  41              "
  42 Some Title
  43 \^@
  44 "
  45              "
  46 ============
  47  Some Title
  48 ============
  49
  50 "
  51              t))
  52     (should (ert-equal-buffer
  53              (rst-adjust)
  54              "
  55 Some Tit\^@le
  56
  57 "
  58              "
  59 ============
  60  Some Title
  61 ============
  62
  63 "
  64              t))
  65     (should (ert-equal-buffer
  66              (rst-adjust)
  67              "
  68 \^@Some Title
  69
  70 "
  71              "
  72 ============
  73  Some Title
  74 ============
  75
  76 "
  77              t))
  78     (should (ert-equal-buffer
  79              (rst-adjust)
  80              "
  81 Some Title\^@
  82
  83 Other Title
  84 -----------
  85
  86 Other Title2
  87 ~~~~~~~~~~~~
  88
  89 "
  90              "
  91 ============
  92  Some Title
  93 ============
  94
  95 Other Title
  96 -----------
  97
  98 Other Title2
  99 ~~~~~~~~~~~~
 100
 101 "
 102              t))
 103     (should (ert-equal-buffer
 104              (rst-adjust 1)
 105              "
 106 Some Title\^@
 107
 108 "
 109              "
 110 Some Title
 111 ==========
 112
 113 "
 114              t))
 115     (should (ert-equal-buffer
 116              (rst-adjust)
 117              "
 118    Some Title\^@
 119
 120 "
 121              "
 122 ================
 123    Some Title
 124 ================
 125
 126 "
 127              t))
 128     (should (ert-equal-buffer
 129              (rst-adjust 1)
 130              "
 131    Some Title\^@
 132
 133 "
 134              "
 135 Some Title
 136 ==========
 137
 138 "
 139              t))
 140     (should (ert-equal-buffer
 141              (rst-adjust)
 142              "
 143 Previous Title
 144 --------------
 145
 146 Some Title\^@
 147
 148 "
 149              "
 150 Previous Title
 151 --------------
 152
 153 Some Title
 154 ~~~~~~~~~~
 155
 156 "
 157              t))
 158     (should (ert-equal-buffer
 159              (rst-adjust)
 160              "
 161 Previous Title
 162 --------------
 163
 164 Some Title\^@
 165
 166 Next Title
 167 ~~~~~~~~~~
 168
 169 "
 170              "
 171 Previous Title
 172 --------------
 173
 174 Some Title
 175 ~~~~~~~~~~
 176
 177 Next Title
 178 ~~~~~~~~~~
 179
 180 "
 181              t))
 182     (should (ert-equal-buffer
 183              (rst-adjust 1)
 184              "
 185 Previous Title
 186 --------------
 187
 188 Some Title\^@
 189
 190 "
 191              "
 192 Previous Title
 193 --------------
 194
 195 ~~~~~~~~~~
 196 Some Title
 197 ~~~~~~~~~~
 198
 199 "
 200              t))
 201     (should (ert-equal-buffer
 202              (rst-adjust 1)
 203              "
 204 Previous Title
 205 --------------
 206
 207   Some Title\^@
 208
 209 "
 210              "
 211 Previous Title
 212 --------------
 213
 214 ~~~~~~~~~~~~~~
 215   Some Title
 216 ~~~~~~~~~~~~~~
 217
 218 "
 219              t))
 220     (should (ert-equal-buffer
 221              (rst-adjust)
 222              "
 223 Previous Title
 224 --------------
 225
 226    Some Title\^@
 227
 228 "
 229              "
 230 Previous Title
 231 --------------
 232
 233 Some Title
 234 ~~~~~~~~~~
 235
 236 "
 237              t))
 238     (should (ert-equal-buffer
 239              (rst-adjust -)
 240              "
 241 Previous Title
 242 --------------
 243
 244 Some Title\^@
 245
 246 Next Title
 247 ~~~~~~~~~~
 248 "
 249              "
 250 Previous Title
 251 --------------
 252
 253 Some Title
 254 ----------
 255
 256 Next Title
 257 ~~~~~~~~~~
 258 "
 259              t))
 260     (should (ert-equal-buffer
 261              (rst-adjust)
 262              "
 263 Previous Title\^@
 264 ----------
 265 "
 266              "
 267 Previous Title
 268 --------------
 269
 270 "
 271              t))
 272     (should (ert-equal-buffer
 273              (rst-adjust)
 274              "
 275 Previous Title
 276 ----------\^@
 277 "
 278              "
 279 Previous Title
 280 --------------
 281
 282 "
 283              t))
 284     (should (ert-equal-buffer
 285              (rst-adjust)
 286              "
 287 Previous Title
 288 -\^@
 289 "
 290              "
 291 Previous Title
 292 -
 293 "
 294              t))
 295     (should (ert-equal-buffer
 296              (rst-adjust)
 297              "
 298 Previous Title
 299 --\^@
 300 "
 301              "
 302 Previous Title
 303 --
 304 "
 305              t))
 306     (should (ert-equal-buffer
 307              (rst-adjust)
 308              "
 309 Previous Title
 310 ---\^@
 311 "
 312              "
 313 Previous Title
 314 --------------
 315
 316 "
 317              t))
 318     (should (ert-equal-buffer
 319              (rst-adjust)
 320              "
 321 Previous Title
 322 ------------------\^@
 323 "
 324              "
 325 Previous Title
 326 --------------
 327
 328 "
 329              t))
 330     (should (ert-equal-buffer
 331              (rst-adjust)
 332              "
 333 ----------------
 334  Previous Title
 335 ----------\^@
 336 "
 337              "
 338 ----------------
 339  Previous Title
 340 ----------------
 341
 342 "
 343              t))
 344     (should (ert-equal-buffer
 345              (rst-adjust)
 346              "
 347 ----------\^@
 348  Previous Title
 349 ----------------
 350 "
 351              "
 352 ----------------
 353  Previous Title
 354 ----------------
 355
 356 "
 357              t))
 358     (should (ert-equal-buffer
 359              (rst-adjust)
 360              "
 361 ----------
 362  Previous Title\^@
 363 -----
 364 "
 365              "
 366 ----------------
 367  Previous Title
 368 ----------------
 369
 370 "
 371              t))
 372     (should (ert-equal-buffer
 373              (rst-adjust 1)
 374              "
 375 Previous Title
 376 ----------\^@
 377 "
 378              "
 379 --------------
 380 Previous Title
 381 --------------
 382
 383 "
 384              t))
 385     (should (ert-equal-buffer
 386              (rst-adjust 1)
 387              "
 388 ----------------
 389  Previous Title\^@
 390 --------
 391 "
 392              "
 393 Previous Title
 394 --------------
 395
 396 "
 397              t))
 398     (should (ert-equal-buffer
 399              (rst-adjust 1)
 400              "
 401 --------\^@
 402  Previous Title
 403 ----------------
 404 "
 405              "
 406 Previous Title
 407 --------------
 408
 409 "
 410              t))
 411     (should (ert-equal-buffer
 412              (rst-adjust)
 413              "--------\^@
 414  Previous Title
 415 ----------------
 416 "
 417              "----------------
 418  Previous Title
 419 ----------------
 420
 421 "
 422              t))
 423     (should (ert-equal-buffer
 424              (rst-adjust)
 425              "=======
 426 Document Title\^@
 427 ==============
 428 "
 429              "==============
 430 Document Title
 431 ==============
 432
 433 "
 434              t))
 435     (should (ert-equal-buffer
 436              (rst-adjust)
 437              "
 438 ================
 439  Document Title
 440 ================
 441
 442 SubTitle
 443 --------
 444
 445 My Title\^@
 446 --------
 447
 448 After Title
 449 ~~~~~~~~~~~
 450
 451 "
 452              "
 453 ================
 454  Document Title
 455 ================
 456
 457 SubTitle
 458 --------
 459
 460 ==========
 461  My Title
 462 ==========
 463
 464 After Title
 465 ~~~~~~~~~~~
 466
 467 "
 468              t))
 469     (should (ert-equal-buffer
 470              (rst-adjust -)
 471              "
 472 ================
 473  Document Title
 474 ================
 475
 476 SubTitle
 477 --------
 478
 479 My Title\^@
 480 --------
 481
 482 After Title
 483 ~~~~~~~~~~~
 484
 485 "
 486              "
 487 ================
 488  Document Title
 489 ================
 490
 491 SubTitle
 492 --------
 493
 494 My Title
 495 ~~~~~~~~
 496
 497 After Title
 498 ~~~~~~~~~~~
 499
 500 "
 501              t))
 502     (should (ert-equal-buffer
 503              (rst-adjust -)
 504              "
 505 ================
 506  Document Title
 507 ================
 508
 509 SubTitle
 510 ========
 511
 512 My Title\^@
 513 ========
 514
 515 "
 516              "
 517 ================
 518  Document Title
 519 ================
 520
 521 SubTitle
 522 ========
 523
 524 My Title
 525 --------
 526
 527 "
 528              t))
 529     (should (ert-equal-buffer
 530              (rst-adjust -)
 531              "
 532 ================
 533  Document Title
 534 ================
 535
 536 SubTitle
 537 ========
 538
 539 My Title\^@
 540 --------
 541
 542 "
 543              "
 544 ================
 545  Document Title
 546 ================
 547
 548 SubTitle
 549 ========
 550
 551 ==========
 552  My Title
 553 ==========
 554
 555 "
 556              t))
 557     (should (ert-equal-buffer
 558              (rst-adjust)
 559              "
 560 ================
 561  Document Title
 562 ================
 563
 564 SubTitle
 565 ========
 566
 567 ==========
 568  My Title\^@
 569 ==========
 570
 571 "
 572              "
 573 ================
 574  Document Title
 575 ================
 576
 577 SubTitle
 578 ========
 579
 580 My Title
 581 --------
 582
 583 "
 584              t))
 585     (should (ert-equal-buffer
 586              (rst-adjust)
 587              "
 588 ================
 589  Document Title
 590 ================
 591
 592 SubTitle
 593 ========
 594
 595 My Title\^@
 596 --------
 597 "
 598              "
 599 ================
 600  Document Title
 601 ================
 602
 603 SubTitle
 604 ========
 605
 606 My Title
 607 ========
 608
 609 "
 610              t))
 611     (should (ert-equal-buffer
 612              (rst-adjust 1)
 613              "
 614 SubTitle\^@
 615 ~~~~~~~~
 616
 617 "
 618              "
 619 ~~~~~~~~~~
 620  SubTitle
 621 ~~~~~~~~~~
 622
 623 "
 624              t))
 625     (should (ert-equal-buffer
 626              (rst-adjust 1)
 627              "
 628 ~~~~~~~~~~
 629  SubTitle\^@
 630 ~~~~~~~~~~
 631
 632 "
 633              "
 634 SubTitle
 635 ~~~~~~~~
 636
 637 "
 638              t))
 639     (should (ert-equal-buffer
 640              (rst-adjust)
 641              "
 642 Document Title\^@
 643
 644 "
 645              "
 646 ================
 647  Document Title\^@
 648 ================
 649
 650 "
 651              t))
 652     (should (ert-equal-buffer
 653              (rst-adjust)
 654              "
 655
 656 Document Title\^@
 657 "
 658              "
 659
 660 ================
 661  Document Title\^@
 662 ================
 663
 664 "
 665              t))
 666     (should (ert-equal-buffer
 667              (rst-adjust)
 668              "
 669
 670 Document Title\^@"
 671              "
 672
 673 ================
 674  Document Title\^@
 675 ================
 676 "
 677              t))
 678     (should (ert-equal-buffer
 679              (rst-adjust)
 680              "
 681 Document Title
 682 ==============
 683 Subtitle\^@
 684
 685 "
 686              "
 687 Document Title
 688 ==============
 689 Subtitle\^@
 690 --------
 691
 692 "
 693              t))
 694     (should (ert-equal-buffer
 695              (rst-adjust)
 696              "==============
 697 Document Title\^@
 698 ==============
 699 Subtitle
 700 ========
 701
 702 "
 703              "Document Title\^@
 704 ==============
 705 Subtitle
 706 ========
 707
 708 "
 709              t))
 710     (should (ert-equal-buffer
 711              (rst-adjust)
 712              "
 713 ==============
 714 Document Title\^@
 715 ==============
 716 Subtitle
 717 ========
 718
 719 "
 720              "
 721 Document Title\^@
 722 ==============
 723 Subtitle
 724 ========
 725
 726 "
 727              t))
 728     (should (ert-equal-buffer
 729              (rst-adjust)
 730              "
 731 ==============
 732 Document Title
 733 ==============
 734 ===============
 735 Document Title2\^@
 736 ===============
 737
 738 "
 739              "
 740 ==============
 741 Document Title
 742 ==============
 743 Document Title2
 744 ===============
 745
 746 "
 747              t))
 748     ;; docutils-Bugs #2972588
 749     (should (ert-equal-buffer
 750              (rst-adjust)
 751              "
 752 ==============
 753 Document Title
 754 ==============
 755
 756 Subtitle
 757 ========
 758
 759 .. contents::
 760    :depth: 2
 761 ..
 762   1 Section 1
 763   2 Section 2
 764
 765 Section 1\^@
 766 ---------
 767
 768 Section 2
 769 ---------
 770 "
 771              "
 772 ==============
 773 Document Title
 774 ==============
 775
 776 Subtitle
 777 ========
 778
 779 .. contents::
 780    :depth: 2
 781 ..
 782   1 Section 1
 783   2 Section 2
 784
 785 Section 1\^@
 786 =========
 787
 788 Section 2
 789 ---------
 790 "
 791              t))
 792
 793 ;; FIXME: todo
 794 ;; ;;------------------------------------------------------------------------------
 795 ;; (cycle-previous-only
 796 ;; "
 797 ;; ==================
 798 ;;   Document Title
 799 ;; ==================
 800 ;;
 801 ;; Document Title2
 802 ;; ===============
 803 ;;
 804 ;; =======
 805 ;;   Bli\^@
 806 ;; =======
 807 ;;
 808 ;; Document Title2
 809 ;; ===============
 810 ;;
 811 ;; Document Title3
 812 ;; ---------------
 813 ;;
 814 ;; Document Title4
 815 ;; ~~~~~~~~~~~~~~~
 816 ;;
 817 ;; "
 818 ;; "
 819 ;; ==================
 820 ;;   Document Title
 821 ;; ==================
 822 ;;
 823 ;; Document Title2
 824 ;; ===============
 825 ;;
 826 ;; Bli\^@
 827 ;; ---
 828 ;;
 829 ;; Document Title2
 830 ;; ===============
 831 ;;
 832 ;; Document Title3
 833 ;; ---------------
 834 ;;
 835 ;; Document Title4
 836 ;; ~~~~~~~~~~~~~~~
 837 ;;
 838 ;; "
 839 ;; )
 840     ))