aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/buffer-tests.el
diff options
context:
space:
mode:
authorStefan Monnier2022-10-28 17:44:44 -0400
committerStefan Monnier2022-10-28 17:44:44 -0400
commit71589b101ccbec67fa2741856ee0add5752dea72 (patch)
tree63aeb9f5617c3e7e9b87c04f10bfa938f495736c /test/src/buffer-tests.el
parent69121c33e4a11805bf6438131c8aec72411a0e5d (diff)
parent9d7ba2b1998afc3664c37d9d1b6f6ca2d68356e9 (diff)
downloademacs-71589b101ccbec67fa2741856ee0add5752dea72.tar.gz
emacs-71589b101ccbec67fa2741856ee0add5752dea72.zip
Merge remote-tracking branch 'origin/feature/noverlay'
Diffstat (limited to 'test/src/buffer-tests.el')
-rw-r--r--test/src/buffer-tests.el6665
1 files changed, 6665 insertions, 0 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el
index 558d05de14a..e0207325241 100644
--- a/test/src/buffer-tests.el
+++ b/test/src/buffer-tests.el
@@ -20,6 +20,7 @@
20;;; Code: 20;;; Code:
21 21
22(require 'ert) 22(require 'ert)
23(require 'seq)
23(require 'ert-x) 24(require 'ert-x)
24(require 'cl-lib) 25(require 'cl-lib)
25(require 'let-alist) 26(require 'let-alist)
@@ -859,6 +860,33 @@ with parameters from the *Messages* buffer modification."
859 (should-length 1 (overlays-at 15)) 860 (should-length 1 (overlays-at 15))
860 (should-length 1 (overlays-at (point-max)))))) 861 (should-length 1 (overlays-at (point-max))))))
861 862
863(defun sorted-overlays (overlays)
864 (sort
865 (mapcar (lambda (overlay)
866 (list (overlay-start overlay)
867 (overlay-end overlay)))
868 overlays)
869 (lambda (first second)
870 (cl-loop for a in first
871 for b in second
872 thereis (< a b)
873 until (> a b)))))
874
875(defun sorted-overlays-at (pos)
876 (sorted-overlays (overlays-at pos)))
877
878(defun sorted-overlays-in (beg end)
879 (sorted-overlays (overlays-in beg end)))
880
881(ert-deftest test-overlays-at-narrow-to-region-end ()
882 ;; See bug#58703.
883 (with-temp-buffer
884 (insert (make-string 30 ?x))
885 (make-overlay 10 11)
886 (narrow-to-region 10 10)
887 (should (equal
888 '((10 11))
889 (sorted-overlays-at 10)))))
862 890
863;; +==========================================================================+ 891;; +==========================================================================+
864;; | overlay-in 892;; | overlay-in
@@ -936,6 +964,39 @@ with parameters from the *Messages* buffer modification."
936(deftest-overlays-in-1 ae 9 11 (a) (a 10 10)) 964(deftest-overlays-in-1 ae 9 11 (a) (a 10 10))
937(deftest-overlays-in-1 af 10 11 (a) (a 10 10)) 965(deftest-overlays-in-1 af 10 11 (a) (a 10 10))
938 966
967;; behavior for empty range
968(ert-deftest test-overlays-in-empty-range ()
969 (with-temp-buffer
970 (insert (make-string 4 ?x))
971 (cl-loop for start from (point-min) to (point-max)
972 do (cl-loop for end from start to (point-max)
973 do (when (<= start end)
974 (make-overlay start end))))
975
976 (cl-loop for pos from (point-min) to (point-max)
977 do (ert-info ((format "after (overlay-recenter %d)" pos))
978 (overlay-recenter pos)
979 (should (equal
980 '((1 1))
981 (sorted-overlays-in (point-min) (point-min))))
982 (should (equal
983 '((1 3) (1 4) (1 5) (2 2))
984 (sorted-overlays-in 2 2)))
985 (should (equal
986 '((1 4) (1 5) (2 4) (2 5) (3 3))
987 (sorted-overlays-in 3 3)))
988 (should (equal
989 '((1 5) (2 5) (3 5) (4 4))
990 (sorted-overlays-in 4 4)))
991 (should (equal
992 '((5 5))
993 (sorted-overlays-in (point-max) (point-max))))))))
994
995(ert-deftest test-overlays-in-empty-range-bug58672 ()
996 (with-temp-buffer
997 (insert (make-string 10 ?=))
998 (make-overlay 5 7 nil nil t)
999 (should (equal nil (overlays-in 5 5)))))
939 1000
940;; behavior at point-max 1001;; behavior at point-max
941(ert-deftest test-overlays-in-2 () 1002(ert-deftest test-overlays-in-2 ()
@@ -1048,6 +1109,49 @@ with parameters from the *Messages* buffer modification."
1048 1109
1049 1110
1050;; +==========================================================================+ 1111;; +==========================================================================+
1112;; | get-pos-property
1113;; +==========================================================================+
1114
1115(ert-deftest get-pos-property-overlay-beg ()
1116 "Test `get-pos-property' at the beginning of an overlay.
1117Regression test for bug#58706."
1118 (with-temp-buffer
1119 (insert (make-string 10000 ?x))
1120 (let ((overlay (make-overlay 9999 10001)))
1121 (overlay-put overlay 'forty-two 42))
1122 (should (equal 42 (get-pos-property 9999 'forty-two)))))
1123
1124(ert-deftest get-pos-property-overlay-empty-rear-advance ()
1125 "Test `get-pos-property' at the end of an empty rear-advance overlay.
1126Regression test for bug#58706."
1127 (with-temp-buffer
1128 (insert (make-string 10000 ?x))
1129 (let ((overlay (make-overlay 9999 9999 nil nil t)))
1130 (overlay-put overlay 'forty-two 42))
1131 (should (equal 42 (get-pos-property 9999 'forty-two)))))
1132
1133(ert-deftest get-pos-property-overlay-past-rear-advance ()
1134 "Test `get-pos-property' past the end of an empty rear-advance overlay.
1135Regression test for bug#58706."
1136 (with-temp-buffer
1137 (insert (make-string 10000 ?x))
1138 (let ((overlay (make-overlay 9998 9998 nil nil t)))
1139 (overlay-put overlay 'forty-two 42))
1140 (should (equal nil (get-pos-property 9999 'forty-two)))))
1141
1142(ert-deftest get-pos-property-overlay-at-narrowed-end ()
1143 "Test `get-pos-property' at the end of a narrowed region.
1144Regression test for bug#58706."
1145 (with-temp-buffer
1146 (insert (make-string 11000 ?x))
1147 (narrow-to-region 9998 10000)
1148 (let ((overlay (make-overlay 10000 10000 nil t nil)))
1149 (overlay-put overlay 'forty-two 42))
1150 (should (equal nil (get-pos-property 9999 'forty-two)))))
1151
1152;; FIXME: add more `get-pos-property' tests
1153
1154;; +==========================================================================+
1051;; | get-char-property(-and-overlay) 1155;; | get-char-property(-and-overlay)
1052;; +==========================================================================+ 1156;; +==========================================================================+
1053 1157
@@ -1339,6 +1443,14 @@ with parameters from the *Messages* buffer modification."
1339 (overlay-put ov 'value i))) 1443 (overlay-put ov 'value i)))
1340 (should (eq 9 (get-char-property 1 'value))))) 1444 (should (eq 9 (get-char-property 1 'value)))))
1341 1445
1446(ert-deftest buffer-tests--overlay-bug58479 ()
1447 (with-temp-buffer
1448 (insert "ab")
1449 (let* ((pos (+ (point-min) 1))
1450 (ol (make-overlay pos pos)))
1451 (overlay-put ol 'my-prop 'set)
1452 (should (null (get-char-property pos 'my-prop))))))
1453
1342 1454
1343;; +==========================================================================+ 1455;; +==========================================================================+
1344;; | Other 1456;; | Other
@@ -1507,6 +1619,6559 @@ with parameters from the *Messages* buffer modification."
1507 (ovshould nonempty-eob-end 4 5) 1619 (ovshould nonempty-eob-end 4 5)
1508 (ovshould empty-eob 5 5))))) 1620 (ovshould empty-eob 5 5)))))
1509 1621
1622(ert-deftest test-overlay-randomly ()
1623 "Exercise overlay code, but perform few assertions.
1624
1625This test works best when Emacs is configured with
1626--enable-checking=yes. This is a little bit like fuzz testing,
1627except this test has no way to reduce to a minimal failng test
1628case. Regardless, by exercising many corner cases bugs can be
1629found using Emacs' internal consistency assertions."
1630 (let* (
1631 ;; The size and slack for the test buffer size.
1632 (buffer-size-target 1000)
1633 (buffer-size-slack 200)
1634
1635 ;; Use up to 100 overlays. We need not use more to observe
1636 ;; reasonable variation in the overlay data structures.
1637 (overlay-count-limit 100)
1638
1639 ;; This test maintains a vector of overlays. Each iteration
1640 ;; may append or erase one overlay.
1641 (overlays (make-vector overlay-count-limit nil))
1642 (overlay-count 0)
1643
1644 ;; The test is either slowly growing or shrinking the overlay
1645 ;; count. Deletions still occur while growing, and additions
1646 ;; still occur while shrinking. The GROWING variable only
1647 ;; controls the relative probability of doing one or the
1648 ;; other.
1649 (growing t)
1650
1651 ;; Loop up to 1M times.
1652 (iteration-count 0)
1653 (iteration-target 100000))
1654 (with-temp-buffer
1655 (while (< (buffer-size) buffer-size-target)
1656 (insert "Sed ut perspiciatis, unde omnis iste natus error sit voluptatem
1657accusantium doloremque laudantium, totam rem aperiam eaque ipsa,
1658quae ab illo inventore veritatis et quasi architecto beatae vitae
1659dicta sunt, explicabo. "))
1660
1661 (while (< iteration-count iteration-target)
1662 (cl-incf iteration-count)
1663
1664 ;; Toggle GROWING if we've reached a size boundary. The idea
1665 ;; is to initially steadily increase the overlay count, then
1666 ;; steadily decrease it, then repeat.
1667 (when (and growing (= overlay-count overlay-count-limit))
1668 (setq growing nil))
1669 (when (and (not growing) (= overlay-count 0))
1670 (setq growing t))
1671
1672 ;; Create or delete a random overlay according to a
1673 ;; probability chosen by GROWING.
1674 (let ((create-overlay (>= (random 100) (if growing 40 60))))
1675 (cond
1676 ;; Possibly create a new overlay in a random place in the
1677 ;; buffer. We have two easy choices. We can choose the
1678 ;; overlay BEGIN randomly, then choose its END among the
1679 ;; valid remaining buffer posiitions. Or we could choose
1680 ;; the overlay width randomly, then choose a valid BEGIN.
1681 ;; We take the former approach, because the overlay data
1682 ;; structure is ordered primarily by BEGIN.
1683 ((and create-overlay (< overlay-count overlay-count-limit))
1684 (let* ((begin (random (buffer-size)))
1685 (end (+ begin (random (- (buffer-size) begin))))
1686 (ov (make-overlay begin end nil
1687 (= 0 (random 2)) (= 0 (random 2)))))
1688 (aset overlays overlay-count ov)
1689 (cl-incf overlay-count)))
1690 ((and (not create-overlay) (> overlay-count 0))
1691
1692 ;; Possibly delete a random overlay.
1693 (let* ((last-index (1- overlay-count))
1694 (index (random overlay-count))
1695 (ov (aref overlays index)))
1696 (when (< index last-index)
1697 (aset overlays index (aref overlays last-index)))
1698 (aset overlays last-index nil)
1699 (cl-decf overlay-count)
1700 (delete-overlay ov)))))
1701
1702 ;; Modify the buffer on occasion, which exercises the
1703 ;; insert/remove gap logic in the overlay implementation.
1704 (when (and (< (buffer-size) (+ buffer-size-target buffer-size-slack))
1705 (zerop (random 10)))
1706 (goto-char (1+ (random (buffer-size))))
1707 (insert (+ ?a (random 26))))
1708 (when (and (> (buffer-size) (- buffer-size-target buffer-size-slack))
1709 (zerop (random 10)))
1710 (goto-char (1+ (random (buffer-size))))
1711 (delete-char 1))))))
1712
1713
1714
1715;; +===================================================================================+
1716;; | Autogenerated insert/delete/narrow tests
1717;; +===================================================================================+
1718
1719(when nil ;; Let's comment these out for now.
1720
1721;; (defun test-overlay-generate-test (name)
1722;; (interactive)
1723;; (with-temp-buffer
1724;; (let ((forms nil)
1725;; (buffer-size 64)
1726;; (noverlays 16)
1727;; (nforms 32)
1728;; (dist '(0.5 0.4 0.1)))
1729;; (cl-labels ((brand ()
1730;; (+ (point-min)
1731;; (random (1+ (- (point-max) (point-min)))))))
1732;; (cl-macrolet ((push-eval (form)
1733;; `(cl-destructuring-bind (&rest args)
1734;; (list ,@(cdr form))
1735;; (push (cons ',(car form) args) forms)
1736;; (apply #',(car form) args))))
1737;; (push-eval (insert (make-string buffer-size ?.)))
1738;; (dotimes (_ noverlays)
1739;; (push-eval (make-overlay (brand) (brand)
1740;; nil
1741;; (= 0 (random 2))
1742;; (= 0 (random 2)))))
1743;; (dotimes (_ nforms)
1744;; (push-eval (goto-char (brand)))
1745;; (pcase (/ (random 100) 100.0)
1746;; ((and x (guard (< x (nth 0 dist))))
1747;; (push-eval (insert (make-string (random 16) ?.))))
1748;; ((and x (guard (< x (+ (nth 0 dist) (nth 1 dist)))))
1749;; (push-eval (delete-char (random (1+ (- (point-max) (point)))))))
1750;; (_
1751;; (push-eval (widen))
1752;; (push-eval (narrow-to-region (brand) (brand))))))
1753;; `(ert-deftest ,name ()
1754;; (with-temp-buffer
1755;; ,@(nreverse forms)
1756;; (should (equal (test-overlay-regions)
1757;; ',(test-overlay-regions))))))))))
1758
1759;; (defun test-overlay-generate-tests (n)
1760;; (let ((namefmt "overlay-autogenerated-test-%d")
1761;; (standard-output (current-buffer))
1762;; (print-length nil)
1763;; (print-level nil)
1764;; (print-quoted t))
1765;; (dotimes (i n)
1766;; (pp (test-overlay-generate-test (intern (format namefmt i))))
1767;; (terpri))))
1768
1769;; (progn (random "4711") (test-overlay-generate-tests 64))
1770
1771(ert-deftest overlay-autogenerated-test-0 nil
1772 (with-temp-buffer
1773 (insert "................................................................")
1774 (make-overlay 63 7 nil t t)
1775 (make-overlay 47 9 nil nil nil)
1776 (make-overlay 50 43 nil nil nil)
1777 (make-overlay 20 53 nil nil t)
1778 (make-overlay 62 4 nil nil t)
1779 (make-overlay 40 27 nil t t)
1780 (make-overlay 58 44 nil t t)
1781 (make-overlay 46 38 nil nil nil)
1782 (make-overlay 51 28 nil t nil)
1783 (make-overlay 12 53 nil t t)
1784 (make-overlay 52 60 nil nil nil)
1785 (make-overlay 13 47 nil nil nil)
1786 (make-overlay 16 31 nil nil nil)
1787 (make-overlay 9 48 nil t t)
1788 (make-overlay 43 29 nil nil t)
1789 (make-overlay 48 13 nil t nil)
1790 (goto-char 44)
1791 (delete-char 15)
1792 (goto-char 19)
1793 (widen)
1794 (narrow-to-region 20 8)
1795 (goto-char 9)
1796 (delete-char 3)
1797 (goto-char 16)
1798 (insert "..............")
1799 (goto-char 12)
1800 (delete-char 15)
1801 (goto-char 12)
1802 (delete-char 4)
1803 (goto-char 12)
1804 (delete-char 0)
1805 (goto-char 12)
1806 (insert "......")
1807 (goto-char 13)
1808 (delete-char 5)
1809 (goto-char 8)
1810 (insert "...")
1811 (goto-char 10)
1812 (insert ".............")
1813 (goto-char 14)
1814 (insert ".......")
1815 (goto-char 25)
1816 (delete-char 4)
1817 (goto-char 26)
1818 (insert "...............")
1819 (goto-char 27)
1820 (insert "...")
1821 (goto-char 29)
1822 (delete-char 7)
1823 (goto-char 24)
1824 (insert "...")
1825 (goto-char 30)
1826 (insert "..........")
1827 (goto-char 29)
1828 (widen)
1829 (narrow-to-region 34 41)
1830 (goto-char 40)
1831 (delete-char 0)
1832 (goto-char 35)
1833 (delete-char 4)
1834 (goto-char 36)
1835 (widen)
1836 (narrow-to-region 80 66)
1837 (goto-char 74)
1838 (delete-char 5)
1839 (goto-char 69)
1840 (delete-char 5)
1841 (goto-char 70)
1842 (widen)
1843 (narrow-to-region 50 71)
1844 (goto-char 66)
1845 (insert "...............")
1846 (goto-char 54)
1847 (insert "...............")
1848 (goto-char 84)
1849 (insert "....")
1850 (goto-char 72)
1851 (insert "...........")
1852 (goto-char 84)
1853 (insert "..........")
1854 (goto-char 102)
1855 (insert "")
1856 (goto-char 80)
1857 (delete-char 25)
1858 (should
1859 (equal
1860 (test-overlay-regions)
1861 '((4 . 99)
1862 (7 . 100)
1863 (48 . 99)
1864 (48 . 99)
1865 (48 . 99)
1866 (49 . 99)
1867 (49 . 99)
1868 (51 . 80)
1869 (51 . 99)
1870 (80 . 99)
1871 (80 . 99)
1872 (80 . 99)
1873 (99 . 99)
1874 (99 . 99)
1875 (99 . 99)
1876 (99 . 99))))))
1877
1878(ert-deftest overlay-autogenerated-test-1 nil
1879 (with-temp-buffer
1880 (insert "................................................................")
1881 (make-overlay 17 27 nil nil nil)
1882 (make-overlay 13 28 nil nil t)
1883 (make-overlay 8 56 nil nil nil)
1884 (make-overlay 34 64 nil nil nil)
1885 (make-overlay 51 4 nil t t)
1886 (make-overlay 1 19 nil nil nil)
1887 (make-overlay 53 59 nil nil t)
1888 (make-overlay 25 13 nil nil nil)
1889 (make-overlay 19 28 nil t nil)
1890 (make-overlay 33 23 nil t nil)
1891 (make-overlay 10 46 nil t t)
1892 (make-overlay 18 39 nil nil nil)
1893 (make-overlay 1 49 nil t nil)
1894 (make-overlay 57 21 nil t t)
1895 (make-overlay 10 58 nil t t)
1896 (make-overlay 39 49 nil nil t)
1897 (goto-char 37)
1898 (delete-char 9)
1899 (goto-char 3)
1900 (insert "......")
1901 (goto-char 38)
1902 (delete-char 14)
1903 (goto-char 18)
1904 (insert "..........")
1905 (goto-char 53)
1906 (insert "....")
1907 (goto-char 49)
1908 (delete-char 10)
1909 (goto-char 11)
1910 (delete-char 12)
1911 (goto-char 17)
1912 (delete-char 22)
1913 (goto-char 8)
1914 (insert ".")
1915 (goto-char 16)
1916 (insert "........")
1917 (goto-char 16)
1918 (delete-char 5)
1919 (goto-char 11)
1920 (delete-char 0)
1921 (goto-char 22)
1922 (insert ".......")
1923 (goto-char 18)
1924 (delete-char 11)
1925 (goto-char 16)
1926 (delete-char 0)
1927 (goto-char 9)
1928 (insert "...........")
1929 (goto-char 7)
1930 (insert "...............")
1931 (goto-char 2)
1932 (insert ".......")
1933 (goto-char 21)
1934 (delete-char 11)
1935 (goto-char 13)
1936 (insert "..............")
1937 (goto-char 17)
1938 (delete-char 3)
1939 (goto-char 21)
1940 (insert "......")
1941 (goto-char 15)
1942 (delete-char 32)
1943 (goto-char 10)
1944 (insert "........")
1945 (goto-char 25)
1946 (widen)
1947 (narrow-to-region 15 20)
1948 (goto-char 17)
1949 (insert ".............")
1950 (goto-char 22)
1951 (insert "............")
1952 (goto-char 21)
1953 (delete-char 8)
1954 (goto-char 36)
1955 (delete-char 1)
1956 (goto-char 32)
1957 (delete-char 2)
1958 (goto-char 21)
1959 (insert ".....")
1960 (goto-char 31)
1961 (insert "......")
1962 (should
1963 (equal
1964 (test-overlay-regions)
1965 '((1 . 58)
1966 (1 . 58))))))
1967
1968(ert-deftest overlay-autogenerated-test-2 nil
1969 (with-temp-buffer
1970 (insert "................................................................")
1971 (make-overlay 15 59 nil t t)
1972 (make-overlay 56 16 nil nil nil)
1973 (make-overlay 65 51 nil t nil)
1974 (make-overlay 14 24 nil t nil)
1975 (make-overlay 28 9 nil t nil)
1976 (make-overlay 58 50 nil t t)
1977 (make-overlay 13 32 nil t t)
1978 (make-overlay 12 21 nil t nil)
1979 (make-overlay 60 23 nil t nil)
1980 (make-overlay 39 38 nil nil t)
1981 (make-overlay 15 64 nil t nil)
1982 (make-overlay 17 21 nil nil t)
1983 (make-overlay 46 23 nil t t)
1984 (make-overlay 19 40 nil t nil)
1985 (make-overlay 13 48 nil nil t)
1986 (make-overlay 35 11 nil t nil)
1987 (goto-char 41)
1988 (delete-char 19)
1989 (goto-char 45)
1990 (insert "......")
1991 (goto-char 3)
1992 (delete-char 32)
1993 (goto-char 19)
1994 (insert "")
1995 (goto-char 16)
1996 (insert "...............")
1997 (goto-char 2)
1998 (insert "")
1999 (goto-char 30)
2000 (delete-char 0)
2001 (goto-char 18)
2002 (delete-char 17)
2003 (goto-char 2)
2004 (insert "...............")
2005 (goto-char 12)
2006 (insert "...")
2007 (goto-char 2)
2008 (insert ".............")
2009 (goto-char 16)
2010 (insert ".......")
2011 (goto-char 15)
2012 (insert ".......")
2013 (goto-char 43)
2014 (insert "......")
2015 (goto-char 22)
2016 (insert ".........")
2017 (goto-char 25)
2018 (delete-char 1)
2019 (goto-char 38)
2020 (insert "...............")
2021 (goto-char 76)
2022 (delete-char 3)
2023 (goto-char 12)
2024 (delete-char 5)
2025 (goto-char 70)
2026 (delete-char 9)
2027 (goto-char 36)
2028 (delete-char 4)
2029 (goto-char 18)
2030 (insert "...............")
2031 (goto-char 52)
2032 (delete-char 14)
2033 (goto-char 23)
2034 (insert "..........")
2035 (goto-char 64)
2036 (insert "...........")
2037 (goto-char 68)
2038 (delete-char 21)
2039 (goto-char 71)
2040 (insert "........")
2041 (goto-char 28)
2042 (delete-char 43)
2043 (goto-char 25)
2044 (insert "....")
2045 (goto-char 2)
2046 (insert "...............")
2047 (goto-char 40)
2048 (insert "....")
2049 (goto-char 56)
2050 (delete-char 2)
2051 (should
2052 (equal
2053 (test-overlay-regions)
2054 '((51 . 51)
2055 (51 . 51)
2056 (51 . 51)
2057 (51 . 51)
2058 (51 . 51)
2059 (51 . 51)
2060 (51 . 51)
2061 (51 . 51)
2062 (51 . 51)
2063 (51 . 51)
2064 (51 . 51)
2065 (51 . 51)
2066 (51 . 51)
2067 (51 . 51)
2068 (51 . 51)
2069 (51 . 58))))))
2070
2071(ert-deftest overlay-autogenerated-test-3 nil
2072 (with-temp-buffer
2073 (insert "................................................................")
2074 (make-overlay 53 38 nil t nil)
2075 (make-overlay 17 40 nil t t)
2076 (make-overlay 64 26 nil t t)
2077 (make-overlay 48 24 nil t nil)
2078 (make-overlay 21 18 nil nil nil)
2079 (make-overlay 2 20 nil nil t)
2080 (make-overlay 43 26 nil t t)
2081 (make-overlay 56 28 nil t nil)
2082 (make-overlay 19 51 nil nil nil)
2083 (make-overlay 39 61 nil t nil)
2084 (make-overlay 59 12 nil t nil)
2085 (make-overlay 65 7 nil t nil)
2086 (make-overlay 41 7 nil t nil)
2087 (make-overlay 62 50 nil t nil)
2088 (make-overlay 7 10 nil t t)
2089 (make-overlay 45 28 nil t nil)
2090 (goto-char 13)
2091 (insert "...")
2092 (goto-char 37)
2093 (widen)
2094 (narrow-to-region 2 10)
2095 (goto-char 8)
2096 (delete-char 1)
2097 (goto-char 3)
2098 (delete-char 6)
2099 (goto-char 2)
2100 (insert "...........")
2101 (goto-char 5)
2102 (widen)
2103 (narrow-to-region 55 70)
2104 (goto-char 55)
2105 (insert "......")
2106 (goto-char 64)
2107 (delete-char 12)
2108 (goto-char 61)
2109 (insert ".....")
2110 (goto-char 64)
2111 (insert "..............")
2112 (goto-char 72)
2113 (delete-char 6)
2114 (goto-char 63)
2115 (delete-char 12)
2116 (goto-char 63)
2117 (delete-char 2)
2118 (goto-char 57)
2119 (insert "..............")
2120 (goto-char 68)
2121 (insert "........")
2122 (goto-char 77)
2123 (delete-char 6)
2124 (goto-char 77)
2125 (insert ".............")
2126 (goto-char 67)
2127 (delete-char 0)
2128 (goto-char 84)
2129 (insert "........")
2130 (goto-char 74)
2131 (delete-char 12)
2132 (goto-char 78)
2133 (insert "...")
2134 (goto-char 80)
2135 (insert "............")
2136 (goto-char 69)
2137 (insert "......")
2138 (goto-char 89)
2139 (insert ".")
2140 (goto-char 56)
2141 (insert "....")
2142 (goto-char 100)
2143 (insert ".............")
2144 (goto-char 114)
2145 (delete-char 0)
2146 (goto-char 61)
2147 (widen)
2148 (narrow-to-region 94 50)
2149 (goto-char 55)
2150 (insert "............")
2151 (goto-char 53)
2152 (insert ".............")
2153 (goto-char 116)
2154 (delete-char 3)
2155 (goto-char 81)
2156 (insert "...............")
2157 (should
2158 (equal
2159 (test-overlay-regions)
2160 '((14 . 166)
2161 (16 . 164)
2162 (26 . 164)
2163 (31 . 68)
2164 (33 . 165)
2165 (35 . 52)
2166 (35 . 164)
2167 (45 . 164)
2168 (46 . 164))))))
2169
2170(ert-deftest overlay-autogenerated-test-4 nil
2171 (with-temp-buffer
2172 (insert "................................................................")
2173 (make-overlay 25 15 nil nil t)
2174 (make-overlay 8 13 nil nil nil)
2175 (make-overlay 45 49 nil t t)
2176 (make-overlay 22 13 nil t t)
2177 (make-overlay 34 17 nil nil t)
2178 (make-overlay 42 15 nil nil t)
2179 (make-overlay 43 28 nil t t)
2180 (make-overlay 3 28 nil t nil)
2181 (make-overlay 32 61 nil nil t)
2182 (make-overlay 30 64 nil t t)
2183 (make-overlay 21 39 nil nil t)
2184 (make-overlay 32 62 nil t nil)
2185 (make-overlay 25 29 nil t nil)
2186 (make-overlay 34 43 nil t nil)
2187 (make-overlay 9 11 nil t nil)
2188 (make-overlay 21 65 nil nil t)
2189 (goto-char 21)
2190 (delete-char 4)
2191 (goto-char 25)
2192 (insert "..")
2193 (goto-char 53)
2194 (insert "..")
2195 (goto-char 2)
2196 (insert "...............")
2197 (goto-char 42)
2198 (delete-char 36)
2199 (goto-char 23)
2200 (delete-char 12)
2201 (goto-char 22)
2202 (widen)
2203 (narrow-to-region 30 32)
2204 (goto-char 30)
2205 (delete-char 0)
2206 (goto-char 31)
2207 (delete-char 1)
2208 (goto-char 31)
2209 (widen)
2210 (narrow-to-region 28 27)
2211 (goto-char 27)
2212 (delete-char 1)
2213 (goto-char 27)
2214 (delete-char 0)
2215 (goto-char 27)
2216 (delete-char 0)
2217 (goto-char 27)
2218 (insert ".")
2219 (goto-char 28)
2220 (insert "......")
2221 (goto-char 34)
2222 (delete-char 0)
2223 (goto-char 27)
2224 (delete-char 5)
2225 (goto-char 27)
2226 (delete-char 1)
2227 (goto-char 27)
2228 (insert ".............")
2229 (goto-char 30)
2230 (insert "..............")
2231 (goto-char 37)
2232 (delete-char 15)
2233 (goto-char 32)
2234 (delete-char 2)
2235 (goto-char 36)
2236 (delete-char 1)
2237 (goto-char 34)
2238 (delete-char 0)
2239 (goto-char 34)
2240 (delete-char 1)
2241 (goto-char 32)
2242 (widen)
2243 (narrow-to-region 24 19)
2244 (goto-char 21)
2245 (delete-char 1)
2246 (goto-char 21)
2247 (widen)
2248 (narrow-to-region 11 38)
2249 (goto-char 27)
2250 (widen)
2251 (narrow-to-region 20 22)
2252 (goto-char 20)
2253 (delete-char 1)
2254 (goto-char 20)
2255 (widen)
2256 (narrow-to-region 36 4)
2257 (goto-char 26)
2258 (delete-char 9)
2259 (should
2260 (equal
2261 (test-overlay-regions)
2262 '((18 . 25)
2263 (21 . 21)
2264 (21 . 21)
2265 (21 . 22)
2266 (21 . 22)
2267 (21 . 27)
2268 (21 . 27)
2269 (22 . 25)
2270 (22 . 27)
2271 (22 . 28)
2272 (26 . 27))))))
2273
2274(ert-deftest overlay-autogenerated-test-5 nil
2275 (with-temp-buffer
2276 (insert "................................................................")
2277 (make-overlay 64 1 nil nil nil)
2278 (make-overlay 38 43 nil nil nil)
2279 (make-overlay 42 19 nil t nil)
2280 (make-overlay 22 12 nil nil nil)
2281 (make-overlay 12 30 nil t t)
2282 (make-overlay 38 46 nil nil nil)
2283 (make-overlay 18 23 nil nil nil)
2284 (make-overlay 58 65 nil nil t)
2285 (make-overlay 52 41 nil nil nil)
2286 (make-overlay 12 26 nil nil nil)
2287 (make-overlay 39 4 nil nil nil)
2288 (make-overlay 20 1 nil nil t)
2289 (make-overlay 36 60 nil nil nil)
2290 (make-overlay 24 18 nil t nil)
2291 (make-overlay 9 50 nil nil nil)
2292 (make-overlay 19 17 nil t nil)
2293 (goto-char 40)
2294 (insert "")
2295 (goto-char 64)
2296 (insert ".............")
2297 (goto-char 32)
2298 (delete-char 40)
2299 (goto-char 25)
2300 (insert "...")
2301 (goto-char 31)
2302 (delete-char 1)
2303 (goto-char 8)
2304 (delete-char 14)
2305 (goto-char 20)
2306 (delete-char 5)
2307 (goto-char 20)
2308 (insert "...........")
2309 (goto-char 20)
2310 (insert ".........")
2311 (goto-char 17)
2312 (widen)
2313 (narrow-to-region 11 21)
2314 (goto-char 14)
2315 (widen)
2316 (narrow-to-region 9 24)
2317 (goto-char 24)
2318 (insert ".............")
2319 (goto-char 30)
2320 (widen)
2321 (narrow-to-region 47 45)
2322 (goto-char 47)
2323 (insert ".")
2324 (goto-char 46)
2325 (widen)
2326 (narrow-to-region 30 42)
2327 (goto-char 32)
2328 (delete-char 0)
2329 (goto-char 34)
2330 (insert ".......")
2331 (goto-char 42)
2332 (delete-char 4)
2333 (goto-char 39)
2334 (delete-char 6)
2335 (goto-char 31)
2336 (delete-char 6)
2337 (goto-char 31)
2338 (insert "............")
2339 (goto-char 30)
2340 (insert "......")
2341 (goto-char 50)
2342 (delete-char 0)
2343 (goto-char 30)
2344 (insert "....")
2345 (goto-char 53)
2346 (insert "............")
2347 (goto-char 41)
2348 (delete-char 12)
2349 (goto-char 52)
2350 (insert ".......")
2351 (goto-char 56)
2352 (insert "...........")
2353 (goto-char 68)
2354 (insert ".......")
2355 (goto-char 52)
2356 (insert "......")
2357 (goto-char 71)
2358 (delete-char 10)
2359 (goto-char 47)
2360 (insert "")
2361 (should
2362 (equal
2363 (test-overlay-regions)
2364 '((20 . 89))))))
2365
2366(ert-deftest overlay-autogenerated-test-6 nil
2367 (with-temp-buffer
2368 (insert "................................................................")
2369 (make-overlay 28 59 nil nil nil)
2370 (make-overlay 36 21 nil t t)
2371 (make-overlay 60 19 nil t nil)
2372 (make-overlay 26 30 nil t nil)
2373 (make-overlay 47 27 nil nil t)
2374 (make-overlay 8 25 nil t t)
2375 (make-overlay 57 43 nil t t)
2376 (make-overlay 28 61 nil nil t)
2377 (make-overlay 42 31 nil nil t)
2378 (make-overlay 15 44 nil t nil)
2379 (make-overlay 56 38 nil nil nil)
2380 (make-overlay 39 44 nil nil t)
2381 (make-overlay 50 6 nil t nil)
2382 (make-overlay 6 19 nil t nil)
2383 (make-overlay 50 44 nil t t)
2384 (make-overlay 34 60 nil nil t)
2385 (goto-char 27)
2386 (insert "...............")
2387 (goto-char 23)
2388 (insert "..............")
2389 (goto-char 50)
2390 (widen)
2391 (narrow-to-region 53 67)
2392 (goto-char 60)
2393 (delete-char 0)
2394 (goto-char 54)
2395 (insert "......")
2396 (goto-char 64)
2397 (delete-char 1)
2398 (goto-char 66)
2399 (delete-char 3)
2400 (goto-char 58)
2401 (insert ".............")
2402 (goto-char 58)
2403 (insert ".........")
2404 (goto-char 76)
2405 (insert "...........")
2406 (goto-char 57)
2407 (insert "....")
2408 (goto-char 106)
2409 (widen)
2410 (narrow-to-region 5 45)
2411 (goto-char 31)
2412 (delete-char 8)
2413 (goto-char 36)
2414 (insert "...")
2415 (goto-char 6)
2416 (insert "........")
2417 (goto-char 33)
2418 (insert ".............")
2419 (goto-char 38)
2420 (delete-char 3)
2421 (goto-char 28)
2422 (delete-char 6)
2423 (goto-char 42)
2424 (widen)
2425 (narrow-to-region 17 25)
2426 (goto-char 19)
2427 (insert "..............")
2428 (goto-char 37)
2429 (delete-char 1)
2430 (goto-char 22)
2431 (delete-char 9)
2432 (goto-char 28)
2433 (insert "..............")
2434 (goto-char 37)
2435 (delete-char 3)
2436 (goto-char 18)
2437 (insert "...............")
2438 (goto-char 30)
2439 (widen)
2440 (narrow-to-region 68 25)
2441 (goto-char 38)
2442 (delete-char 22)
2443 (goto-char 43)
2444 (widen)
2445 (narrow-to-region 47 96)
2446 (goto-char 86)
2447 (insert ".")
2448 (goto-char 63)
2449 (insert "......")
2450 (goto-char 78)
2451 (widen)
2452 (narrow-to-region 61 27)
2453 (goto-char 43)
2454 (delete-char 8)
2455 (should
2456 (equal
2457 (test-overlay-regions)
2458 '((14 . 38)
2459 (14 . 132)
2460 (16 . 43)
2461 (38 . 118)
2462 (38 . 126)
2463 (38 . 142)
2464 (44 . 115)
2465 (45 . 129))))))
2466
2467(ert-deftest overlay-autogenerated-test-7 nil
2468 (with-temp-buffer
2469 (insert "................................................................")
2470 (make-overlay 13 50 nil t nil)
2471 (make-overlay 28 44 nil nil t)
2472 (make-overlay 56 27 nil t nil)
2473 (make-overlay 8 34 nil nil nil)
2474 (make-overlay 22 8 nil nil t)
2475 (make-overlay 8 28 nil t nil)
2476 (make-overlay 65 31 nil nil t)
2477 (make-overlay 44 8 nil nil nil)
2478 (make-overlay 52 64 nil nil t)
2479 (make-overlay 52 27 nil t t)
2480 (make-overlay 47 32 nil nil nil)
2481 (make-overlay 18 62 nil nil nil)
2482 (make-overlay 18 24 nil t t)
2483 (make-overlay 33 46 nil nil t)
2484 (make-overlay 20 8 nil t nil)
2485 (make-overlay 51 51 nil t nil)
2486 (goto-char 2)
2487 (delete-char 46)
2488 (goto-char 12)
2489 (delete-char 5)
2490 (goto-char 2)
2491 (delete-char 12)
2492 (goto-char 2)
2493 (insert "..")
2494 (goto-char 2)
2495 (widen)
2496 (narrow-to-region 2 4)
2497 (goto-char 4)
2498 (insert "......")
2499 (goto-char 4)
2500 (widen)
2501 (narrow-to-region 4 6)
2502 (goto-char 5)
2503 (insert "")
2504 (goto-char 6)
2505 (insert "...............")
2506 (goto-char 9)
2507 (insert "...")
2508 (goto-char 7)
2509 (delete-char 13)
2510 (goto-char 8)
2511 (delete-char 1)
2512 (goto-char 9)
2513 (insert "...............")
2514 (goto-char 24)
2515 (delete-char 1)
2516 (goto-char 15)
2517 (insert "...............")
2518 (goto-char 16)
2519 (insert "............")
2520 (goto-char 17)
2521 (delete-char 8)
2522 (goto-char 36)
2523 (widen)
2524 (narrow-to-region 47 38)
2525 (goto-char 43)
2526 (delete-char 0)
2527 (goto-char 46)
2528 (delete-char 0)
2529 (goto-char 40)
2530 (delete-char 4)
2531 (goto-char 39)
2532 (insert ".......")
2533 (goto-char 50)
2534 (delete-char 0)
2535 (goto-char 47)
2536 (insert "...........")
2537 (goto-char 45)
2538 (insert ".....")
2539 (goto-char 38)
2540 (delete-char 3)
2541 (goto-char 59)
2542 (delete-char 1)
2543 (goto-char 42)
2544 (insert "...............")
2545 (goto-char 65)
2546 (insert "...........")
2547 (goto-char 73)
2548 (delete-char 13)
2549 (goto-char 72)
2550 (insert "....")
2551 (goto-char 47)
2552 (insert "..")
2553 (should
2554 (equal
2555 (test-overlay-regions)
2556 '((2 . 81)
2557 (2 . 81)
2558 (2 . 81)
2559 (2 . 81)
2560 (2 . 81)
2561 (81 . 81)
2562 (81 . 81))))))
2563
2564(ert-deftest overlay-autogenerated-test-8 nil
2565 (with-temp-buffer
2566 (insert "................................................................")
2567 (make-overlay 20 6 nil t nil)
2568 (make-overlay 48 13 nil t nil)
2569 (make-overlay 58 65 nil nil t)
2570 (make-overlay 63 65 nil nil nil)
2571 (make-overlay 42 40 nil t t)
2572 (make-overlay 40 6 nil nil t)
2573 (make-overlay 37 46 nil t nil)
2574 (make-overlay 4 14 nil nil nil)
2575 (make-overlay 58 44 nil t t)
2576 (make-overlay 14 16 nil nil t)
2577 (make-overlay 31 61 nil t nil)
2578 (make-overlay 34 3 nil nil nil)
2579 (make-overlay 11 16 nil t nil)
2580 (make-overlay 19 42 nil nil t)
2581 (make-overlay 30 9 nil nil t)
2582 (make-overlay 63 52 nil t t)
2583 (goto-char 57)
2584 (delete-char 2)
2585 (goto-char 8)
2586 (insert "........")
2587 (goto-char 30)
2588 (insert "...........")
2589 (goto-char 35)
2590 (insert "...........")
2591 (goto-char 66)
2592 (insert "...............")
2593 (goto-char 53)
2594 (delete-char 15)
2595 (goto-char 75)
2596 (delete-char 10)
2597 (goto-char 62)
2598 (delete-char 21)
2599 (goto-char 52)
2600 (delete-char 10)
2601 (goto-char 10)
2602 (insert "............")
2603 (goto-char 42)
2604 (insert "...........")
2605 (goto-char 68)
2606 (insert ".............")
2607 (goto-char 12)
2608 (insert "........")
2609 (goto-char 1)
2610 (insert "...............")
2611 (goto-char 89)
2612 (insert "")
2613 (goto-char 94)
2614 (insert ".............")
2615 (goto-char 57)
2616 (insert "...........")
2617 (goto-char 130)
2618 (insert "...")
2619 (goto-char 69)
2620 (insert "..")
2621 (goto-char 101)
2622 (insert "......")
2623 (goto-char 128)
2624 (delete-char 13)
2625 (goto-char 19)
2626 (delete-char 100)
2627 (goto-char 22)
2628 (insert "..")
2629 (goto-char 13)
2630 (widen)
2631 (narrow-to-region 30 16)
2632 (goto-char 19)
2633 (insert "..........")
2634 (goto-char 22)
2635 (delete-char 3)
2636 (goto-char 19)
2637 (insert ".........")
2638 (goto-char 17)
2639 (insert "..")
2640 (goto-char 16)
2641 (insert "............")
2642 (goto-char 47)
2643 (insert ".")
2644 (goto-char 50)
2645 (insert "..........")
2646 (goto-char 70)
2647 (delete-char 1)
2648 (should
2649 (equal
2650 (test-overlay-regions)
2651 '((32 . 75)
2652 (33 . 33)
2653 (33 . 33)
2654 (33 . 33)
2655 (33 . 60)
2656 (33 . 75)
2657 (33 . 75)
2658 (33 . 75)
2659 (60 . 75))))))
2660
2661(ert-deftest overlay-autogenerated-test-9 nil
2662 (with-temp-buffer
2663 (insert "................................................................")
2664 (make-overlay 58 13 nil nil nil)
2665 (make-overlay 29 4 nil nil t)
2666 (make-overlay 3 53 nil nil nil)
2667 (make-overlay 31 9 nil t t)
2668 (make-overlay 48 30 nil nil nil)
2669 (make-overlay 43 50 nil nil nil)
2670 (make-overlay 7 27 nil nil t)
2671 (make-overlay 30 59 nil nil nil)
2672 (make-overlay 42 25 nil nil t)
2673 (make-overlay 15 13 nil t t)
2674 (make-overlay 39 11 nil t t)
2675 (make-overlay 21 62 nil t t)
2676 (make-overlay 35 2 nil t nil)
2677 (make-overlay 60 53 nil nil t)
2678 (make-overlay 64 8 nil nil t)
2679 (make-overlay 58 59 nil t t)
2680 (goto-char 28)
2681 (insert ".............")
2682 (goto-char 28)
2683 (insert "...............")
2684 (goto-char 71)
2685 (insert ".......")
2686 (goto-char 65)
2687 (insert "......")
2688 (goto-char 3)
2689 (delete-char 12)
2690 (goto-char 79)
2691 (delete-char 11)
2692 (goto-char 65)
2693 (widen)
2694 (narrow-to-region 12 53)
2695 (goto-char 38)
2696 (insert ".......")
2697 (goto-char 20)
2698 (insert ".........")
2699 (goto-char 27)
2700 (insert "...........")
2701 (goto-char 75)
2702 (insert "........")
2703 (goto-char 85)
2704 (insert "............")
2705 (goto-char 52)
2706 (insert "..........")
2707 (goto-char 16)
2708 (delete-char 8)
2709 (goto-char 15)
2710 (insert "...............")
2711 (goto-char 112)
2712 (insert "")
2713 (goto-char 61)
2714 (insert "..")
2715 (goto-char 29)
2716 (delete-char 34)
2717 (goto-char 52)
2718 (delete-char 32)
2719 (goto-char 43)
2720 (insert "........")
2721 (goto-char 45)
2722 (insert "..")
2723 (goto-char 35)
2724 (insert "...........")
2725 (goto-char 29)
2726 (insert ".......")
2727 (goto-char 75)
2728 (widen)
2729 (narrow-to-region 69 55)
2730 (goto-char 67)
2731 (delete-char 2)
2732 (goto-char 66)
2733 (delete-char 0)
2734 (goto-char 62)
2735 (delete-char 1)
2736 (goto-char 61)
2737 (delete-char 3)
2738 (goto-char 63)
2739 (insert ".")
2740 (goto-char 56)
2741 (insert ".....")
2742 (goto-char 67)
2743 (insert ".............")
2744 (goto-char 76)
2745 (delete-char 3)
2746 (should
2747 (equal
2748 (test-overlay-regions)
2749 '((2 . 90)
2750 (3 . 90)
2751 (3 . 90)
2752 (3 . 99)
2753 (3 . 117)
2754 (3 . 117)
2755 (3 . 120)
2756 (9 . 118)
2757 (13 . 102))))))
2758
2759(ert-deftest overlay-autogenerated-test-10 nil
2760 (with-temp-buffer
2761 (insert "................................................................")
2762 (make-overlay 16 60 nil nil nil)
2763 (make-overlay 36 53 nil nil nil)
2764 (make-overlay 44 39 nil t t)
2765 (make-overlay 61 47 nil t t)
2766 (make-overlay 58 39 nil nil t)
2767 (make-overlay 23 54 nil nil t)
2768 (make-overlay 65 59 nil t t)
2769 (make-overlay 13 57 nil nil t)
2770 (make-overlay 22 64 nil nil t)
2771 (make-overlay 16 19 nil nil nil)
2772 (make-overlay 16 1 nil nil t)
2773 (make-overlay 28 21 nil t t)
2774 (make-overlay 10 62 nil nil nil)
2775 (make-overlay 12 18 nil nil t)
2776 (make-overlay 15 5 nil nil t)
2777 (make-overlay 36 31 nil nil t)
2778 (goto-char 42)
2779 (insert "...")
2780 (goto-char 25)
2781 (delete-char 28)
2782 (goto-char 30)
2783 (delete-char 10)
2784 (goto-char 8)
2785 (delete-char 9)
2786 (goto-char 5)
2787 (insert "........")
2788 (goto-char 6)
2789 (delete-char 2)
2790 (goto-char 4)
2791 (insert "")
2792 (goto-char 21)
2793 (insert ".............")
2794 (goto-char 6)
2795 (delete-char 33)
2796 (goto-char 1)
2797 (delete-char 1)
2798 (goto-char 6)
2799 (insert "..........")
2800 (goto-char 8)
2801 (insert "...........")
2802 (goto-char 21)
2803 (insert "........")
2804 (goto-char 16)
2805 (delete-char 18)
2806 (goto-char 5)
2807 (insert "...")
2808 (goto-char 5)
2809 (delete-char 8)
2810 (goto-char 11)
2811 (insert ".")
2812 (goto-char 1)
2813 (insert ".......")
2814 (goto-char 9)
2815 (delete-char 9)
2816 (goto-char 5)
2817 (insert "")
2818 (goto-char 8)
2819 (delete-char 0)
2820 (goto-char 11)
2821 (insert "..............")
2822 (goto-char 12)
2823 (insert "")
2824 (goto-char 11)
2825 (delete-char 8)
2826 (goto-char 7)
2827 (delete-char 3)
2828 (goto-char 5)
2829 (delete-char 3)
2830 (goto-char 1)
2831 (delete-char 8)
2832 (goto-char 1)
2833 (insert "....")
2834 (goto-char 1)
2835 (insert "..")
2836 (goto-char 7)
2837 (insert "...")
2838 (goto-char 8)
2839 (widen)
2840 (narrow-to-region 9 11)
2841 (goto-char 11)
2842 (delete-char 0)
2843 (should
2844 (equal
2845 (test-overlay-regions)
2846 '((1 . 10)
2847 (1 . 10)
2848 (1 . 10)
2849 (1 . 10)
2850 (1 . 10)
2851 (1 . 12)
2852 (1 . 12)
2853 (1 . 12)
2854 (10 . 10)
2855 (10 . 10)
2856 (10 . 12))))))
2857
2858(ert-deftest overlay-autogenerated-test-11 nil
2859 (with-temp-buffer
2860 (insert "................................................................")
2861 (make-overlay 33 18 nil nil nil)
2862 (make-overlay 56 38 nil t nil)
2863 (make-overlay 2 45 nil nil t)
2864 (make-overlay 19 55 nil nil t)
2865 (make-overlay 28 42 nil t t)
2866 (make-overlay 50 29 nil t nil)
2867 (make-overlay 40 63 nil nil nil)
2868 (make-overlay 13 2 nil nil t)
2869 (make-overlay 26 7 nil t t)
2870 (make-overlay 22 25 nil nil nil)
2871 (make-overlay 14 14 nil t nil)
2872 (make-overlay 15 39 nil t t)
2873 (make-overlay 51 22 nil t t)
2874 (make-overlay 58 5 nil t nil)
2875 (make-overlay 16 10 nil nil nil)
2876 (make-overlay 32 33 nil t nil)
2877 (goto-char 40)
2878 (delete-char 20)
2879 (goto-char 45)
2880 (delete-char 0)
2881 (goto-char 6)
2882 (insert "..")
2883 (goto-char 45)
2884 (insert "...")
2885 (goto-char 26)
2886 (insert "...............")
2887 (goto-char 27)
2888 (insert "...........")
2889 (goto-char 38)
2890 (insert "......")
2891 (goto-char 62)
2892 (insert "...............")
2893 (goto-char 18)
2894 (insert "...........")
2895 (goto-char 99)
2896 (widen)
2897 (narrow-to-region 37 17)
2898 (goto-char 29)
2899 (delete-char 2)
2900 (goto-char 28)
2901 (delete-char 2)
2902 (goto-char 17)
2903 (insert ".....")
2904 (goto-char 21)
2905 (widen)
2906 (narrow-to-region 34 96)
2907 (goto-char 44)
2908 (delete-char 22)
2909 (goto-char 39)
2910 (insert "..")
2911 (goto-char 53)
2912 (insert "...............")
2913 (goto-char 58)
2914 (insert ".............")
2915 (goto-char 93)
2916 (insert ".........")
2917 (goto-char 78)
2918 (widen)
2919 (narrow-to-region 27 104)
2920 (goto-char 93)
2921 (delete-char 11)
2922 (goto-char 59)
2923 (insert "....")
2924 (goto-char 59)
2925 (insert "..............")
2926 (goto-char 74)
2927 (delete-char 5)
2928 (goto-char 70)
2929 (insert ".")
2930 (goto-char 37)
2931 (insert "...........")
2932 (goto-char 34)
2933 (delete-char 46)
2934 (goto-char 49)
2935 (insert "......")
2936 (goto-char 55)
2937 (insert "...")
2938 (goto-char 42)
2939 (insert "...")
2940 (goto-char 70)
2941 (delete-char 8)
2942 (goto-char 48)
2943 (delete-char 28)
2944 (should
2945 (equal
2946 (test-overlay-regions)
2947 '((2 . 62)
2948 (5 . 62)
2949 (9 . 34)
2950 (22 . 61)
2951 (33 . 55)
2952 (33 . 62)
2953 (34 . 34)
2954 (34 . 62))))))
2955
2956(ert-deftest overlay-autogenerated-test-12 nil
2957 (with-temp-buffer
2958 (insert "................................................................")
2959 (make-overlay 18 50 nil nil nil)
2960 (make-overlay 63 3 nil nil t)
2961 (make-overlay 44 20 nil t t)
2962 (make-overlay 58 38 nil nil t)
2963 (make-overlay 3 17 nil t nil)
2964 (make-overlay 31 62 nil t nil)
2965 (make-overlay 12 17 nil t nil)
2966 (make-overlay 17 52 nil nil nil)
2967 (make-overlay 9 35 nil nil nil)
2968 (make-overlay 17 38 nil nil nil)
2969 (make-overlay 53 54 nil nil t)
2970 (make-overlay 65 34 nil t nil)
2971 (make-overlay 12 33 nil t nil)
2972 (make-overlay 54 58 nil nil nil)
2973 (make-overlay 42 26 nil t nil)
2974 (make-overlay 2 4 nil t nil)
2975 (goto-char 4)
2976 (delete-char 26)
2977 (goto-char 39)
2978 (insert ".")
2979 (goto-char 2)
2980 (delete-char 14)
2981 (goto-char 16)
2982 (widen)
2983 (narrow-to-region 19 1)
2984 (goto-char 7)
2985 (delete-char 9)
2986 (goto-char 6)
2987 (insert ".........")
2988 (goto-char 6)
2989 (insert "..........")
2990 (goto-char 16)
2991 (insert ".............")
2992 (goto-char 36)
2993 (delete-char 1)
2994 (goto-char 4)
2995 (insert "..........")
2996 (goto-char 49)
2997 (delete-char 2)
2998 (goto-char 16)
2999 (insert "............")
3000 (goto-char 52)
3001 (widen)
3002 (narrow-to-region 36 38)
3003 (goto-char 37)
3004 (delete-char 1)
3005 (goto-char 37)
3006 (insert ".............")
3007 (goto-char 46)
3008 (insert ".")
3009 (goto-char 40)
3010 (delete-char 5)
3011 (goto-char 45)
3012 (delete-char 0)
3013 (goto-char 46)
3014 (delete-char 0)
3015 (goto-char 40)
3016 (insert "..........")
3017 (goto-char 39)
3018 (delete-char 4)
3019 (goto-char 39)
3020 (delete-char 3)
3021 (goto-char 40)
3022 (widen)
3023 (narrow-to-region 8 9)
3024 (goto-char 8)
3025 (delete-char 1)
3026 (goto-char 8)
3027 (delete-char 0)
3028 (goto-char 8)
3029 (widen)
3030 (narrow-to-region 45 15)
3031 (goto-char 40)
3032 (insert "...............")
3033 (goto-char 29)
3034 (delete-char 7)
3035 (goto-char 30)
3036 (delete-char 6)
3037 (goto-char 21)
3038 (delete-char 9)
3039 (goto-char 22)
3040 (insert "...............")
3041 (goto-char 51)
3042 (insert "..............")
3043 (should
3044 (equal
3045 (test-overlay-regions)
3046 '((2 . 92)
3047 (2 . 92)
3048 (2 . 93)
3049 (2 . 96)
3050 (2 . 97)
3051 (2 . 99))))))
3052
3053(ert-deftest overlay-autogenerated-test-13 nil
3054 (with-temp-buffer
3055 (insert "................................................................")
3056 (make-overlay 18 30 nil t t)
3057 (make-overlay 54 37 nil nil t)
3058 (make-overlay 16 61 nil nil t)
3059 (make-overlay 58 7 nil nil t)
3060 (make-overlay 27 39 nil nil t)
3061 (make-overlay 39 31 nil nil t)
3062 (make-overlay 11 47 nil nil nil)
3063 (make-overlay 47 40 nil t t)
3064 (make-overlay 27 18 nil nil nil)
3065 (make-overlay 33 26 nil nil t)
3066 (make-overlay 55 4 nil t t)
3067 (make-overlay 62 50 nil t t)
3068 (make-overlay 47 65 nil t t)
3069 (make-overlay 17 23 nil nil t)
3070 (make-overlay 30 31 nil t nil)
3071 (make-overlay 10 37 nil t nil)
3072 (goto-char 8)
3073 (delete-char 6)
3074 (goto-char 56)
3075 (delete-char 0)
3076 (goto-char 28)
3077 (insert ".........")
3078 (goto-char 19)
3079 (insert "..............")
3080 (goto-char 4)
3081 (delete-char 28)
3082 (goto-char 49)
3083 (delete-char 4)
3084 (goto-char 2)
3085 (insert "............")
3086 (goto-char 10)
3087 (delete-char 37)
3088 (goto-char 19)
3089 (delete-char 2)
3090 (goto-char 20)
3091 (delete-char 0)
3092 (goto-char 16)
3093 (insert "..")
3094 (goto-char 8)
3095 (widen)
3096 (narrow-to-region 12 3)
3097 (goto-char 10)
3098 (delete-char 2)
3099 (goto-char 9)
3100 (insert "..")
3101 (goto-char 12)
3102 (insert "...............")
3103 (goto-char 25)
3104 (insert ".....")
3105 (goto-char 10)
3106 (widen)
3107 (narrow-to-region 42 18)
3108 (goto-char 20)
3109 (insert ".......")
3110 (goto-char 18)
3111 (insert ".........")
3112 (goto-char 55)
3113 (delete-char 3)
3114 (goto-char 48)
3115 (insert ".......")
3116 (goto-char 52)
3117 (delete-char 6)
3118 (goto-char 45)
3119 (delete-char 11)
3120 (goto-char 27)
3121 (delete-char 13)
3122 (goto-char 22)
3123 (insert "...........")
3124 (goto-char 19)
3125 (delete-char 15)
3126 (goto-char 20)
3127 (delete-char 0)
3128 (goto-char 23)
3129 (widen)
3130 (narrow-to-region 12 25)
3131 (goto-char 16)
3132 (insert "..........")
3133 (goto-char 25)
3134 (widen)
3135 (narrow-to-region 2 38)
3136 (goto-char 34)
3137 (delete-char 0)
3138 (goto-char 31)
3139 (insert "...............")
3140 (should
3141 (equal
3142 (test-overlay-regions)
3143 '((12 . 12)
3144 (12 . 12)
3145 (12 . 12)
3146 (12 . 12)
3147 (12 . 53)
3148 (12 . 53)
3149 (12 . 53)
3150 (12 . 53)
3151 (12 . 53)
3152 (12 . 53)
3153 (12 . 55))))))
3154
3155(ert-deftest overlay-autogenerated-test-14 nil
3156 (with-temp-buffer
3157 (insert "................................................................")
3158 (make-overlay 29 37 nil t nil)
3159 (make-overlay 15 44 nil nil nil)
3160 (make-overlay 31 34 nil nil t)
3161 (make-overlay 35 33 nil t t)
3162 (make-overlay 4 27 nil t t)
3163 (make-overlay 37 5 nil nil t)
3164 (make-overlay 58 19 nil nil t)
3165 (make-overlay 57 47 nil nil t)
3166 (make-overlay 49 5 nil t t)
3167 (make-overlay 21 59 nil t t)
3168 (make-overlay 42 33 nil t nil)
3169 (make-overlay 22 16 nil t t)
3170 (make-overlay 9 51 nil t nil)
3171 (make-overlay 20 24 nil nil t)
3172 (make-overlay 21 7 nil t t)
3173 (make-overlay 58 52 nil t t)
3174 (goto-char 39)
3175 (widen)
3176 (narrow-to-region 55 54)
3177 (goto-char 54)
3178 (insert ".............")
3179 (goto-char 55)
3180 (insert "............")
3181 (goto-char 66)
3182 (delete-char 10)
3183 (goto-char 62)
3184 (insert "...............")
3185 (goto-char 82)
3186 (delete-char 2)
3187 (goto-char 82)
3188 (delete-char 0)
3189 (goto-char 76)
3190 (insert "..............")
3191 (goto-char 60)
3192 (insert ".............")
3193 (goto-char 71)
3194 (insert "...............")
3195 (goto-char 122)
3196 (delete-char 0)
3197 (goto-char 93)
3198 (delete-char 3)
3199 (goto-char 108)
3200 (delete-char 1)
3201 (goto-char 121)
3202 (insert "........")
3203 (goto-char 92)
3204 (insert "")
3205 (goto-char 103)
3206 (insert "..........")
3207 (goto-char 85)
3208 (delete-char 13)
3209 (goto-char 116)
3210 (delete-char 7)
3211 (goto-char 103)
3212 (widen)
3213 (narrow-to-region 60 27)
3214 (goto-char 28)
3215 (delete-char 16)
3216 (goto-char 35)
3217 (insert ".......")
3218 (goto-char 47)
3219 (insert "........")
3220 (goto-char 38)
3221 (delete-char 1)
3222 (goto-char 43)
3223 (insert "..........")
3224 (goto-char 59)
3225 (insert "........")
3226 (goto-char 57)
3227 (insert "........")
3228 (goto-char 36)
3229 (insert "...........")
3230 (goto-char 82)
3231 (delete-char 11)
3232 (goto-char 67)
3233 (insert "..........")
3234 (goto-char 46)
3235 (delete-char 1)
3236 (goto-char 47)
3237 (insert "......")
3238 (goto-char 69)
3239 (delete-char 7)
3240 (should
3241 (equal
3242 (test-overlay-regions)
3243 '((5 . 28)
3244 (5 . 33)
3245 (9 . 35)
3246 (15 . 28)
3247 (19 . 154)
3248 (21 . 155)
3249 (28 . 28)
3250 (28 . 28)
3251 (28 . 28)
3252 (28 . 28)
3253 (31 . 153)
3254 (58 . 154))))))
3255
3256(ert-deftest overlay-autogenerated-test-15 nil
3257 (with-temp-buffer
3258 (insert "................................................................")
3259 (make-overlay 3 19 nil t t)
3260 (make-overlay 11 18 nil t nil)
3261 (make-overlay 28 51 nil nil t)
3262 (make-overlay 29 15 nil t t)
3263 (make-overlay 46 57 nil t t)
3264 (make-overlay 26 24 nil nil nil)
3265 (make-overlay 29 43 nil nil nil)
3266 (make-overlay 54 29 nil nil nil)
3267 (make-overlay 34 52 nil t nil)
3268 (make-overlay 10 32 nil nil nil)
3269 (make-overlay 28 34 nil nil t)
3270 (make-overlay 11 43 nil nil nil)
3271 (make-overlay 18 50 nil t t)
3272 (make-overlay 28 39 nil nil nil)
3273 (make-overlay 62 62 nil t t)
3274 (make-overlay 30 62 nil t nil)
3275 (goto-char 30)
3276 (widen)
3277 (narrow-to-region 6 22)
3278 (goto-char 9)
3279 (insert "..")
3280 (goto-char 12)
3281 (insert ".............")
3282 (goto-char 29)
3283 (insert "..............")
3284 (goto-char 47)
3285 (insert "........")
3286 (goto-char 46)
3287 (insert ".............")
3288 (goto-char 55)
3289 (insert "..........")
3290 (goto-char 62)
3291 (insert "...............")
3292 (goto-char 47)
3293 (delete-char 49)
3294 (goto-char 11)
3295 (insert "...........")
3296 (goto-char 40)
3297 (delete-char 1)
3298 (goto-char 27)
3299 (insert "..............")
3300 (goto-char 51)
3301 (insert "......")
3302 (goto-char 60)
3303 (delete-char 10)
3304 (goto-char 37)
3305 (insert ".........")
3306 (goto-char 69)
3307 (insert ".")
3308 (goto-char 36)
3309 (insert "............")
3310 (goto-char 75)
3311 (insert ".............")
3312 (goto-char 21)
3313 (widen)
3314 (narrow-to-region 44 21)
3315 (goto-char 37)
3316 (insert ".............")
3317 (goto-char 55)
3318 (widen)
3319 (narrow-to-region 84 28)
3320 (goto-char 58)
3321 (widen)
3322 (narrow-to-region 96 49)
3323 (goto-char 62)
3324 (delete-char 0)
3325 (goto-char 72)
3326 (delete-char 24)
3327 (goto-char 61)
3328 (widen)
3329 (narrow-to-region 105 83)
3330 (goto-char 96)
3331 (widen)
3332 (narrow-to-region 109 46)
3333 (goto-char 95)
3334 (delete-char 4)
3335 (goto-char 81)
3336 (insert ".")
3337 (goto-char 51)
3338 (delete-char 8)
3339 (goto-char 52)
3340 (insert ".")
3341 (goto-char 60)
3342 (delete-char 10)
3343 (goto-char 50)
3344 (insert "......")
3345 (should
3346 (equal
3347 (test-overlay-regions)
3348 '((3 . 81)
3349 (23 . 88)
3350 (66 . 99)
3351 (69 . 81)
3352 (78 . 85)
3353 (81 . 106)
3354 (84 . 85)
3355 (85 . 90)
3356 (85 . 95)
3357 (85 . 99)
3358 (85 . 107)
3359 (85 . 110)
3360 (86 . 118)
3361 (90 . 108))))))
3362
3363(ert-deftest overlay-autogenerated-test-16 nil
3364 (with-temp-buffer
3365 (insert "................................................................")
3366 (make-overlay 3 55 nil t nil)
3367 (make-overlay 45 47 nil nil nil)
3368 (make-overlay 23 57 nil t t)
3369 (make-overlay 64 55 nil nil nil)
3370 (make-overlay 37 26 nil t t)
3371 (make-overlay 29 38 nil nil t)
3372 (make-overlay 33 3 nil t t)
3373 (make-overlay 49 16 nil t nil)
3374 (make-overlay 35 56 nil t t)
3375 (make-overlay 9 39 nil nil nil)
3376 (make-overlay 2 61 nil nil nil)
3377 (make-overlay 59 26 nil nil t)
3378 (make-overlay 5 50 nil t t)
3379 (make-overlay 19 19 nil nil t)
3380 (make-overlay 64 21 nil t nil)
3381 (make-overlay 21 8 nil nil t)
3382 (goto-char 17)
3383 (insert ".....")
3384 (goto-char 29)
3385 (insert "............")
3386 (goto-char 42)
3387 (delete-char 38)
3388 (goto-char 24)
3389 (insert "")
3390 (goto-char 9)
3391 (delete-char 2)
3392 (goto-char 20)
3393 (insert "..")
3394 (goto-char 27)
3395 (delete-char 8)
3396 (goto-char 25)
3397 (delete-char 6)
3398 (goto-char 8)
3399 (delete-char 21)
3400 (goto-char 9)
3401 (insert "..............")
3402 (goto-char 3)
3403 (insert "....")
3404 (goto-char 8)
3405 (delete-char 18)
3406 (goto-char 6)
3407 (widen)
3408 (narrow-to-region 5 8)
3409 (goto-char 5)
3410 (delete-char 3)
3411 (goto-char 5)
3412 (insert "...")
3413 (goto-char 8)
3414 (insert "..........")
3415 (goto-char 5)
3416 (insert "")
3417 (goto-char 7)
3418 (delete-char 8)
3419 (goto-char 8)
3420 (widen)
3421 (narrow-to-region 2 2)
3422 (goto-char 2)
3423 (delete-char 0)
3424 (goto-char 2)
3425 (delete-char 0)
3426 (goto-char 2)
3427 (delete-char 0)
3428 (goto-char 2)
3429 (delete-char 0)
3430 (goto-char 2)
3431 (widen)
3432 (narrow-to-region 10 3)
3433 (goto-char 8)
3434 (delete-char 2)
3435 (goto-char 7)
3436 (insert ".......")
3437 (goto-char 8)
3438 (delete-char 3)
3439 (goto-char 12)
3440 (insert "..")
3441 (goto-char 9)
3442 (delete-char 2)
3443 (goto-char 7)
3444 (insert "......")
3445 (goto-char 15)
3446 (insert "..........")
3447 (goto-char 4)
3448 (insert "........")
3449 (should
3450 (equal
3451 (test-overlay-regions)
3452 '((2 . 13)
3453 (13 . 13)
3454 (13 . 13)
3455 (13 . 13)
3456 (13 . 13)
3457 (13 . 13)
3458 (13 . 13)
3459 (13 . 36)
3460 (13 . 36)
3461 (13 . 36)
3462 (13 . 36))))))
3463
3464(ert-deftest overlay-autogenerated-test-17 nil
3465 (with-temp-buffer
3466 (insert "................................................................")
3467 (make-overlay 15 37 nil t nil)
3468 (make-overlay 40 3 nil t t)
3469 (make-overlay 61 19 nil t t)
3470 (make-overlay 46 9 nil nil t)
3471 (make-overlay 64 39 nil nil t)
3472 (make-overlay 50 58 nil nil t)
3473 (make-overlay 21 30 nil t nil)
3474 (make-overlay 44 54 nil t nil)
3475 (make-overlay 32 2 nil t nil)
3476 (make-overlay 14 9 nil t t)
3477 (make-overlay 41 40 nil t nil)
3478 (make-overlay 17 26 nil t nil)
3479 (make-overlay 57 50 nil t t)
3480 (make-overlay 16 65 nil nil t)
3481 (make-overlay 13 61 nil t t)
3482 (make-overlay 39 64 nil nil t)
3483 (goto-char 37)
3484 (widen)
3485 (narrow-to-region 12 1)
3486 (goto-char 12)
3487 (insert "......")
3488 (goto-char 8)
3489 (delete-char 4)
3490 (goto-char 11)
3491 (delete-char 3)
3492 (goto-char 6)
3493 (insert ".....")
3494 (goto-char 6)
3495 (widen)
3496 (narrow-to-region 53 48)
3497 (goto-char 48)
3498 (delete-char 5)
3499 (goto-char 48)
3500 (widen)
3501 (narrow-to-region 59 58)
3502 (goto-char 59)
3503 (delete-char 0)
3504 (goto-char 58)
3505 (insert "...")
3506 (goto-char 60)
3507 (insert "...............")
3508 (goto-char 58)
3509 (insert ".............")
3510 (goto-char 67)
3511 (insert ".....")
3512 (goto-char 73)
3513 (insert "")
3514 (goto-char 68)
3515 (insert ".....")
3516 (goto-char 64)
3517 (insert "....")
3518 (goto-char 62)
3519 (insert "..")
3520 (goto-char 91)
3521 (insert "..........")
3522 (goto-char 80)
3523 (insert "............")
3524 (goto-char 100)
3525 (delete-char 21)
3526 (goto-char 74)
3527 (insert "...")
3528 (goto-char 60)
3529 (delete-char 30)
3530 (goto-char 64)
3531 (widen)
3532 (narrow-to-region 71 23)
3533 (goto-char 53)
3534 (delete-char 11)
3535 (goto-char 23)
3536 (delete-char 21)
3537 (goto-char 39)
3538 (delete-char 0)
3539 (goto-char 35)
3540 (insert "")
3541 (goto-char 35)
3542 (insert ".........")
3543 (goto-char 30)
3544 (insert "...........")
3545 (goto-char 35)
3546 (insert "..")
3547 (goto-char 37)
3548 (delete-char 1)
3549 (goto-char 28)
3550 (delete-char 3)
3551 (should
3552 (equal
3553 (test-overlay-regions)
3554 '((13 . 27)
3555 (17 . 67)
3556 (20 . 71)
3557 (23 . 23)
3558 (23 . 24)
3559 (23 . 67)
3560 (23 . 70)
3561 (23 . 70)
3562 (27 . 41)
3563 (28 . 41)
3564 (28 . 41))))))
3565
3566(ert-deftest overlay-autogenerated-test-18 nil
3567 (with-temp-buffer
3568 (insert "................................................................")
3569 (make-overlay 43 52 nil nil t)
3570 (make-overlay 27 29 nil nil t)
3571 (make-overlay 24 18 nil nil nil)
3572 (make-overlay 39 52 nil nil nil)
3573 (make-overlay 33 62 nil t t)
3574 (make-overlay 16 7 nil t nil)
3575 (make-overlay 47 39 nil nil t)
3576 (make-overlay 59 41 nil nil nil)
3577 (make-overlay 22 55 nil nil t)
3578 (make-overlay 60 16 nil t t)
3579 (make-overlay 55 20 nil nil t)
3580 (make-overlay 25 12 nil nil t)
3581 (make-overlay 26 2 nil nil t)
3582 (make-overlay 17 35 nil nil t)
3583 (make-overlay 46 41 nil t nil)
3584 (make-overlay 57 53 nil t t)
3585 (goto-char 52)
3586 (insert "")
3587 (goto-char 4)
3588 (delete-char 21)
3589 (goto-char 17)
3590 (insert "")
3591 (goto-char 35)
3592 (insert "...............")
3593 (goto-char 8)
3594 (insert "...............")
3595 (goto-char 9)
3596 (insert "........")
3597 (goto-char 73)
3598 (delete-char 9)
3599 (goto-char 62)
3600 (insert "...............")
3601 (goto-char 27)
3602 (widen)
3603 (narrow-to-region 34 84)
3604 (goto-char 81)
3605 (insert "...........")
3606 (goto-char 48)
3607 (insert "...")
3608 (goto-char 74)
3609 (insert ".......")
3610 (goto-char 41)
3611 (widen)
3612 (narrow-to-region 37 105)
3613 (goto-char 75)
3614 (insert "...............")
3615 (goto-char 47)
3616 (insert "..........")
3617 (goto-char 99)
3618 (delete-char 13)
3619 (goto-char 105)
3620 (delete-char 4)
3621 (goto-char 94)
3622 (delete-char 5)
3623 (goto-char 96)
3624 (insert "..............")
3625 (goto-char 74)
3626 (insert "")
3627 (goto-char 121)
3628 (insert "...")
3629 (goto-char 102)
3630 (insert "...")
3631 (goto-char 64)
3632 (insert "......")
3633 (goto-char 67)
3634 (insert "...")
3635 (goto-char 95)
3636 (delete-char 19)
3637 (goto-char 37)
3638 (insert "..........")
3639 (goto-char 50)
3640 (widen)
3641 (narrow-to-region 67 96)
3642 (goto-char 88)
3643 (insert "..........")
3644 (goto-char 91)
3645 (insert ".............")
3646 (goto-char 70)
3647 (delete-char 8)
3648 (goto-char 111)
3649 (widen)
3650 (narrow-to-region 72 103)
3651 (goto-char 101)
3652 (insert "...............")
3653 (should
3654 (equal
3655 (test-overlay-regions)
3656 '((4 . 119)
3657 (4 . 119)
3658 (4 . 162)
3659 (35 . 162)
3660 (51 . 78)
3661 (53 . 162)
3662 (55 . 78)
3663 (79 . 162))))))
3664
3665(ert-deftest overlay-autogenerated-test-19 nil
3666 (with-temp-buffer
3667 (insert "................................................................")
3668 (make-overlay 19 31 nil t t)
3669 (make-overlay 40 5 nil nil nil)
3670 (make-overlay 13 41 nil t t)
3671 (make-overlay 41 43 nil nil t)
3672 (make-overlay 7 60 nil t nil)
3673 (make-overlay 40 23 nil t nil)
3674 (make-overlay 32 15 nil t t)
3675 (make-overlay 12 45 nil nil nil)
3676 (make-overlay 18 1 nil nil nil)
3677 (make-overlay 58 32 nil t t)
3678 (make-overlay 30 3 nil t t)
3679 (make-overlay 43 61 nil t nil)
3680 (make-overlay 54 57 nil nil t)
3681 (make-overlay 34 14 nil t t)
3682 (make-overlay 26 49 nil nil t)
3683 (make-overlay 54 49 nil nil t)
3684 (goto-char 28)
3685 (insert "........")
3686 (goto-char 32)
3687 (insert "...........")
3688 (goto-char 78)
3689 (delete-char 6)
3690 (goto-char 37)
3691 (delete-char 0)
3692 (goto-char 49)
3693 (insert ".........")
3694 (goto-char 40)
3695 (widen)
3696 (narrow-to-region 8 30)
3697 (goto-char 20)
3698 (delete-char 4)
3699 (goto-char 23)
3700 (delete-char 1)
3701 (goto-char 10)
3702 (insert ".")
3703 (goto-char 22)
3704 (delete-char 2)
3705 (goto-char 22)
3706 (insert "......")
3707 (goto-char 17)
3708 (insert "..........")
3709 (goto-char 34)
3710 (delete-char 0)
3711 (goto-char 21)
3712 (insert "............")
3713 (goto-char 45)
3714 (delete-char 7)
3715 (goto-char 39)
3716 (insert "...............")
3717 (goto-char 29)
3718 (insert "........")
3719 (goto-char 9)
3720 (delete-char 3)
3721 (goto-char 63)
3722 (delete-char 1)
3723 (goto-char 33)
3724 (insert "........")
3725 (goto-char 16)
3726 (delete-char 36)
3727 (goto-char 20)
3728 (delete-char 2)
3729 (goto-char 28)
3730 (delete-char 0)
3731 (goto-char 24)
3732 (insert "...........")
3733 (goto-char 43)
3734 (insert "..........")
3735 (goto-char 30)
3736 (delete-char 1)
3737 (goto-char 40)
3738 (delete-char 13)
3739 (goto-char 22)
3740 (delete-char 19)
3741 (goto-char 10)
3742 (delete-char 8)
3743 (goto-char 14)
3744 (delete-char 0)
3745 (goto-char 12)
3746 (delete-char 2)
3747 (goto-char 11)
3748 (delete-char 0)
3749 (should
3750 (equal
3751 (test-overlay-regions)
3752 '((1 . 12)
3753 (3 . 40)
3754 (5 . 50)
3755 (7 . 69)
3756 (10 . 42)
3757 (10 . 44)
3758 (10 . 51)
3759 (10 . 55))))))
3760
3761(ert-deftest overlay-autogenerated-test-20 nil
3762 (with-temp-buffer
3763 (insert "................................................................")
3764 (make-overlay 44 42 nil t t)
3765 (make-overlay 47 1 nil nil nil)
3766 (make-overlay 24 48 nil nil nil)
3767 (make-overlay 62 50 nil nil t)
3768 (make-overlay 54 38 nil nil nil)
3769 (make-overlay 3 9 nil nil nil)
3770 (make-overlay 61 28 nil t nil)
3771 (make-overlay 33 33 nil nil t)
3772 (make-overlay 37 37 nil t nil)
3773 (make-overlay 20 13 nil nil t)
3774 (make-overlay 54 36 nil t nil)
3775 (make-overlay 18 58 nil nil t)
3776 (make-overlay 55 3 nil nil t)
3777 (make-overlay 23 21 nil t t)
3778 (make-overlay 47 55 nil t t)
3779 (make-overlay 50 12 nil nil nil)
3780 (goto-char 11)
3781 (delete-char 46)
3782 (goto-char 7)
3783 (delete-char 3)
3784 (goto-char 14)
3785 (delete-char 1)
3786 (goto-char 14)
3787 (insert "......")
3788 (goto-char 14)
3789 (delete-char 4)
3790 (goto-char 12)
3791 (widen)
3792 (narrow-to-region 11 12)
3793 (goto-char 11)
3794 (insert "...")
3795 (goto-char 13)
3796 (delete-char 1)
3797 (goto-char 14)
3798 (insert ".")
3799 (goto-char 13)
3800 (delete-char 2)
3801 (goto-char 11)
3802 (delete-char 2)
3803 (goto-char 11)
3804 (insert "")
3805 (goto-char 11)
3806 (delete-char 0)
3807 (goto-char 11)
3808 (delete-char 0)
3809 (goto-char 11)
3810 (delete-char 0)
3811 (goto-char 11)
3812 (insert ".")
3813 (goto-char 11)
3814 (insert ".")
3815 (goto-char 12)
3816 (insert "......")
3817 (goto-char 14)
3818 (delete-char 2)
3819 (goto-char 11)
3820 (delete-char 2)
3821 (goto-char 14)
3822 (insert "............")
3823 (goto-char 19)
3824 (insert "..............")
3825 (goto-char 29)
3826 (insert ".....")
3827 (goto-char 42)
3828 (delete-char 1)
3829 (goto-char 22)
3830 (insert ".....")
3831 (goto-char 19)
3832 (insert "..............")
3833 (goto-char 42)
3834 (insert ".....")
3835 (goto-char 63)
3836 (widen)
3837 (narrow-to-region 26 42)
3838 (goto-char 36)
3839 (insert "..........")
3840 (goto-char 40)
3841 (delete-char 11)
3842 (goto-char 26)
3843 (delete-char 13)
3844 (goto-char 28)
3845 (delete-char 0)
3846 (should
3847 (equal
3848 (test-overlay-regions)
3849 '((8 . 56))))))
3850
3851(ert-deftest overlay-autogenerated-test-21 nil
3852 (with-temp-buffer
3853 (insert "................................................................")
3854 (make-overlay 65 15 nil nil nil)
3855 (make-overlay 52 31 nil nil nil)
3856 (make-overlay 12 51 nil t t)
3857 (make-overlay 42 20 nil nil t)
3858 (make-overlay 51 48 nil nil nil)
3859 (make-overlay 59 28 nil t t)
3860 (make-overlay 51 53 nil t nil)
3861 (make-overlay 50 59 nil nil t)
3862 (make-overlay 24 40 nil t nil)
3863 (make-overlay 51 61 nil nil nil)
3864 (make-overlay 12 58 nil nil t)
3865 (make-overlay 64 17 nil t t)
3866 (make-overlay 26 38 nil t t)
3867 (make-overlay 23 36 nil nil nil)
3868 (make-overlay 57 50 nil nil nil)
3869 (make-overlay 42 15 nil nil t)
3870 (goto-char 14)
3871 (insert "............")
3872 (goto-char 37)
3873 (insert ".")
3874 (goto-char 73)
3875 (insert "..........")
3876 (goto-char 17)
3877 (delete-char 31)
3878 (goto-char 21)
3879 (delete-char 35)
3880 (goto-char 9)
3881 (delete-char 0)
3882 (goto-char 7)
3883 (delete-char 2)
3884 (goto-char 1)
3885 (insert "")
3886 (goto-char 5)
3887 (insert ".......")
3888 (goto-char 8)
3889 (insert "....")
3890 (goto-char 27)
3891 (delete-char 0)
3892 (goto-char 10)
3893 (insert ".............")
3894 (goto-char 24)
3895 (delete-char 16)
3896 (goto-char 14)
3897 (insert ".............")
3898 (goto-char 25)
3899 (delete-char 11)
3900 (goto-char 3)
3901 (insert "........")
3902 (goto-char 38)
3903 (insert "............")
3904 (goto-char 41)
3905 (insert "..............")
3906 (goto-char 56)
3907 (delete-char 3)
3908 (goto-char 15)
3909 (widen)
3910 (narrow-to-region 16 53)
3911 (goto-char 19)
3912 (widen)
3913 (narrow-to-region 18 33)
3914 (goto-char 32)
3915 (insert "......")
3916 (goto-char 38)
3917 (delete-char 1)
3918 (goto-char 19)
3919 (widen)
3920 (narrow-to-region 11 11)
3921 (goto-char 11)
3922 (insert ".........")
3923 (goto-char 11)
3924 (insert ".........")
3925 (goto-char 20)
3926 (widen)
3927 (narrow-to-region 22 69)
3928 (goto-char 49)
3929 (insert ".........")
3930 (goto-char 54)
3931 (delete-char 22)
3932 (goto-char 44)
3933 (insert "........")
3934 (goto-char 40)
3935 (delete-char 7)
3936 (goto-char 29)
3937 (delete-char 22)
3938 (should
3939 (equal
3940 (test-overlay-regions)
3941 '((33 . 33)
3942 (33 . 33)
3943 (33 . 33)
3944 (33 . 33)
3945 (33 . 33)
3946 (33 . 33)
3947 (33 . 33)
3948 (33 . 33)
3949 (33 . 33)
3950 (33 . 33)
3951 (33 . 33)
3952 (33 . 33)
3953 (33 . 33)
3954 (33 . 33)
3955 (33 . 33)
3956 (33 . 33))))))
3957
3958(ert-deftest overlay-autogenerated-test-22 nil
3959 (with-temp-buffer
3960 (insert "................................................................")
3961 (make-overlay 12 14 nil nil t)
3962 (make-overlay 54 7 nil nil t)
3963 (make-overlay 8 3 nil nil nil)
3964 (make-overlay 42 32 nil nil nil)
3965 (make-overlay 10 27 nil t t)
3966 (make-overlay 50 28 nil t t)
3967 (make-overlay 39 35 nil nil nil)
3968 (make-overlay 12 4 nil t t)
3969 (make-overlay 29 54 nil nil nil)
3970 (make-overlay 14 52 nil t t)
3971 (make-overlay 9 15 nil t nil)
3972 (make-overlay 44 11 nil nil nil)
3973 (make-overlay 46 29 nil t t)
3974 (make-overlay 40 58 nil t t)
3975 (make-overlay 40 61 nil t nil)
3976 (make-overlay 13 59 nil nil t)
3977 (goto-char 32)
3978 (insert ".............")
3979 (goto-char 25)
3980 (delete-char 10)
3981 (goto-char 3)
3982 (insert ".............")
3983 (goto-char 33)
3984 (delete-char 32)
3985 (goto-char 39)
3986 (widen)
3987 (narrow-to-region 41 46)
3988 (goto-char 43)
3989 (delete-char 2)
3990 (goto-char 42)
3991 (delete-char 2)
3992 (goto-char 42)
3993 (insert "...")
3994 (goto-char 43)
3995 (delete-char 1)
3996 (goto-char 42)
3997 (widen)
3998 (narrow-to-region 8 46)
3999 (goto-char 25)
4000 (delete-char 7)
4001 (goto-char 12)
4002 (delete-char 10)
4003 (goto-char 23)
4004 (insert "...............")
4005 (goto-char 41)
4006 (delete-char 3)
4007 (goto-char 17)
4008 (insert ".........")
4009 (goto-char 37)
4010 (insert "...............")
4011 (goto-char 53)
4012 (delete-char 7)
4013 (goto-char 53)
4014 (delete-char 0)
4015 (goto-char 42)
4016 (widen)
4017 (narrow-to-region 20 54)
4018 (goto-char 20)
4019 (delete-char 28)
4020 (goto-char 23)
4021 (insert "..........")
4022 (goto-char 30)
4023 (insert "......")
4024 (goto-char 26)
4025 (delete-char 1)
4026 (goto-char 27)
4027 (widen)
4028 (narrow-to-region 40 37)
4029 (goto-char 37)
4030 (insert ".....")
4031 (goto-char 41)
4032 (widen)
4033 (narrow-to-region 13 37)
4034 (goto-char 29)
4035 (insert "...........")
4036 (goto-char 33)
4037 (delete-char 7)
4038 (goto-char 33)
4039 (delete-char 8)
4040 (goto-char 20)
4041 (insert "")
4042 (goto-char 23)
4043 (delete-char 7)
4044 (goto-char 14)
4045 (widen)
4046 (narrow-to-region 33 33)
4047 (should
4048 (equal
4049 (test-overlay-regions)
4050 '((15 . 39)
4051 (16 . 38)
4052 (16 . 39))))))
4053
4054(ert-deftest overlay-autogenerated-test-23 nil
4055 (with-temp-buffer
4056 (insert "................................................................")
4057 (make-overlay 51 32 nil t t)
4058 (make-overlay 13 61 nil t nil)
4059 (make-overlay 47 19 nil nil t)
4060 (make-overlay 11 30 nil nil nil)
4061 (make-overlay 50 26 nil t t)
4062 (make-overlay 64 13 nil t t)
4063 (make-overlay 29 8 nil t t)
4064 (make-overlay 25 42 nil t t)
4065 (make-overlay 33 28 nil t t)
4066 (make-overlay 54 7 nil nil nil)
4067 (make-overlay 30 59 nil nil nil)
4068 (make-overlay 65 50 nil t t)
4069 (make-overlay 64 15 nil t nil)
4070 (make-overlay 16 35 nil nil nil)
4071 (make-overlay 40 36 nil nil t)
4072 (make-overlay 31 35 nil t nil)
4073 (goto-char 61)
4074 (insert "......")
4075 (goto-char 55)
4076 (delete-char 2)
4077 (goto-char 20)
4078 (insert "..............")
4079 (goto-char 56)
4080 (insert "............")
4081 (goto-char 48)
4082 (delete-char 6)
4083 (goto-char 9)
4084 (delete-char 54)
4085 (goto-char 20)
4086 (delete-char 2)
4087 (goto-char 16)
4088 (delete-char 12)
4089 (goto-char 18)
4090 (insert ".............")
4091 (goto-char 24)
4092 (delete-char 7)
4093 (goto-char 5)
4094 (delete-char 2)
4095 (goto-char 1)
4096 (insert ".......")
4097 (goto-char 1)
4098 (insert ".......")
4099 (goto-char 33)
4100 (insert "")
4101 (goto-char 4)
4102 (insert "..")
4103 (goto-char 5)
4104 (widen)
4105 (narrow-to-region 17 4)
4106 (goto-char 13)
4107 (insert ".")
4108 (goto-char 8)
4109 (insert "............")
4110 (goto-char 9)
4111 (delete-char 3)
4112 (goto-char 4)
4113 (widen)
4114 (narrow-to-region 32 32)
4115 (goto-char 32)
4116 (delete-char 0)
4117 (goto-char 32)
4118 (delete-char 0)
4119 (goto-char 32)
4120 (delete-char 0)
4121 (goto-char 32)
4122 (insert "...............")
4123 (goto-char 43)
4124 (delete-char 4)
4125 (goto-char 32)
4126 (delete-char 1)
4127 (goto-char 40)
4128 (widen)
4129 (narrow-to-region 33 19)
4130 (goto-char 27)
4131 (insert "........")
4132 (goto-char 38)
4133 (delete-char 2)
4134 (goto-char 26)
4135 (insert "")
4136 (goto-char 33)
4137 (delete-char 1)
4138 (goto-char 27)
4139 (insert ".")
4140 (should
4141 (equal
4142 (test-overlay-regions)
4143 '((38 . 56))))))
4144
4145(ert-deftest overlay-autogenerated-test-24 nil
4146 (with-temp-buffer
4147 (insert "................................................................")
4148 (make-overlay 63 8 nil t t)
4149 (make-overlay 10 13 nil nil t)
4150 (make-overlay 40 38 nil nil nil)
4151 (make-overlay 21 34 nil t t)
4152 (make-overlay 55 29 nil nil nil)
4153 (make-overlay 36 65 nil t t)
4154 (make-overlay 29 12 nil t nil)
4155 (make-overlay 41 3 nil nil t)
4156 (make-overlay 20 9 nil t t)
4157 (make-overlay 52 42 nil t t)
4158 (make-overlay 21 56 nil nil t)
4159 (make-overlay 25 65 nil nil nil)
4160 (make-overlay 38 4 nil t t)
4161 (make-overlay 48 23 nil t t)
4162 (make-overlay 52 9 nil nil t)
4163 (make-overlay 48 19 nil nil nil)
4164 (goto-char 43)
4165 (delete-char 8)
4166 (goto-char 30)
4167 (delete-char 16)
4168 (goto-char 7)
4169 (insert "...")
4170 (goto-char 14)
4171 (delete-char 5)
4172 (goto-char 36)
4173 (delete-char 0)
4174 (goto-char 9)
4175 (insert "...............")
4176 (goto-char 13)
4177 (delete-char 17)
4178 (goto-char 16)
4179 (delete-char 2)
4180 (goto-char 9)
4181 (insert "")
4182 (goto-char 11)
4183 (delete-char 5)
4184 (goto-char 18)
4185 (insert "........")
4186 (goto-char 15)
4187 (insert "....")
4188 (goto-char 16)
4189 (delete-char 14)
4190 (goto-char 20)
4191 (insert ".")
4192 (goto-char 25)
4193 (delete-char 1)
4194 (goto-char 14)
4195 (delete-char 14)
4196 (goto-char 3)
4197 (delete-char 7)
4198 (goto-char 3)
4199 (delete-char 4)
4200 (goto-char 1)
4201 (insert "...........")
4202 (goto-char 9)
4203 (insert ".......")
4204 (goto-char 5)
4205 (delete-char 7)
4206 (goto-char 12)
4207 (insert ".........")
4208 (goto-char 2)
4209 (delete-char 4)
4210 (goto-char 3)
4211 (widen)
4212 (narrow-to-region 14 6)
4213 (goto-char 9)
4214 (insert "..........")
4215 (goto-char 13)
4216 (delete-char 8)
4217 (goto-char 7)
4218 (delete-char 7)
4219 (goto-char 7)
4220 (insert "..")
4221 (goto-char 9)
4222 (insert ".............")
4223 (goto-char 9)
4224 (insert "..........")
4225 (goto-char 21)
4226 (insert "...............")
4227 (goto-char 42)
4228 (insert ".........")
4229 (should
4230 (equal
4231 (test-overlay-regions)
4232 'nil))))
4233
4234(ert-deftest overlay-autogenerated-test-25 nil
4235 (with-temp-buffer
4236 (insert "................................................................")
4237 (make-overlay 24 8 nil nil t)
4238 (make-overlay 41 16 nil t nil)
4239 (make-overlay 3 16 nil nil nil)
4240 (make-overlay 26 42 nil nil nil)
4241 (make-overlay 32 45 nil nil t)
4242 (make-overlay 34 19 nil nil nil)
4243 (make-overlay 37 54 nil nil t)
4244 (make-overlay 44 34 nil t nil)
4245 (make-overlay 49 40 nil t t)
4246 (make-overlay 29 34 nil t nil)
4247 (make-overlay 54 16 nil t t)
4248 (make-overlay 29 4 nil t nil)
4249 (make-overlay 44 57 nil nil nil)
4250 (make-overlay 5 32 nil nil nil)
4251 (make-overlay 12 33 nil nil t)
4252 (make-overlay 38 29 nil t nil)
4253 (goto-char 12)
4254 (delete-char 53)
4255 (goto-char 1)
4256 (delete-char 6)
4257 (goto-char 5)
4258 (widen)
4259 (narrow-to-region 6 1)
4260 (goto-char 6)
4261 (insert "......")
4262 (goto-char 10)
4263 (insert "...............")
4264 (goto-char 17)
4265 (delete-char 5)
4266 (goto-char 7)
4267 (insert ".....")
4268 (goto-char 8)
4269 (insert "...............")
4270 (goto-char 4)
4271 (insert ".....")
4272 (goto-char 44)
4273 (widen)
4274 (narrow-to-region 18 11)
4275 (goto-char 15)
4276 (delete-char 1)
4277 (goto-char 17)
4278 (delete-char 0)
4279 (goto-char 13)
4280 (delete-char 3)
4281 (goto-char 14)
4282 (insert "..")
4283 (goto-char 16)
4284 (insert "..")
4285 (goto-char 15)
4286 (delete-char 3)
4287 (goto-char 13)
4288 (delete-char 0)
4289 (goto-char 14)
4290 (insert "..........")
4291 (goto-char 19)
4292 (insert ".")
4293 (goto-char 23)
4294 (delete-char 1)
4295 (goto-char 12)
4296 (widen)
4297 (narrow-to-region 23 40)
4298 (goto-char 35)
4299 (insert "....")
4300 (goto-char 33)
4301 (insert "..........")
4302 (goto-char 37)
4303 (delete-char 16)
4304 (goto-char 37)
4305 (delete-char 0)
4306 (goto-char 23)
4307 (widen)
4308 (narrow-to-region 30 8)
4309 (goto-char 29)
4310 (delete-char 0)
4311 (goto-char 15)
4312 (delete-char 15)
4313 (goto-char 9)
4314 (insert "...........")
4315 (goto-char 9)
4316 (delete-char 1)
4317 (goto-char 22)
4318 (delete-char 3)
4319 (goto-char 10)
4320 (insert ".........")
4321 (should
4322 (equal
4323 (test-overlay-regions)
4324 '((1 . 30)
4325 (1 . 30)
4326 (1 . 30)
4327 (2 . 53)
4328 (30 . 30)
4329 (30 . 30)
4330 (30 . 30)
4331 (30 . 30)
4332 (30 . 30)
4333 (30 . 30)
4334 (30 . 30)
4335 (30 . 53)
4336 (30 . 53)
4337 (30 . 53))))))
4338
4339(ert-deftest overlay-autogenerated-test-26 nil
4340 (with-temp-buffer
4341 (insert "................................................................")
4342 (make-overlay 60 59 nil t nil)
4343 (make-overlay 18 11 nil nil t)
4344 (make-overlay 4 44 nil nil nil)
4345 (make-overlay 7 22 nil nil nil)
4346 (make-overlay 54 50 nil t nil)
4347 (make-overlay 59 28 nil nil nil)
4348 (make-overlay 49 23 nil nil t)
4349 (make-overlay 21 5 nil t nil)
4350 (make-overlay 17 39 nil t nil)
4351 (make-overlay 16 14 nil nil nil)
4352 (make-overlay 50 26 nil nil nil)
4353 (make-overlay 37 14 nil nil nil)
4354 (make-overlay 6 59 nil nil t)
4355 (make-overlay 30 17 nil nil t)
4356 (make-overlay 17 34 nil nil t)
4357 (make-overlay 7 22 nil t nil)
4358 (goto-char 35)
4359 (delete-char 25)
4360 (goto-char 30)
4361 (delete-char 7)
4362 (goto-char 25)
4363 (widen)
4364 (narrow-to-region 3 19)
4365 (goto-char 6)
4366 (insert ".........")
4367 (goto-char 21)
4368 (insert "...............")
4369 (goto-char 12)
4370 (insert ".............")
4371 (goto-char 34)
4372 (widen)
4373 (narrow-to-region 64 37)
4374 (goto-char 62)
4375 (insert ".............")
4376 (goto-char 50)
4377 (widen)
4378 (narrow-to-region 72 38)
4379 (goto-char 66)
4380 (insert "")
4381 (goto-char 54)
4382 (insert "...")
4383 (goto-char 70)
4384 (delete-char 4)
4385 (goto-char 49)
4386 (delete-char 13)
4387 (goto-char 38)
4388 (insert "....")
4389 (goto-char 46)
4390 (insert ".")
4391 (goto-char 43)
4392 (widen)
4393 (narrow-to-region 74 53)
4394 (goto-char 60)
4395 (delete-char 10)
4396 (goto-char 53)
4397 (insert "..............")
4398 (goto-char 72)
4399 (insert "............")
4400 (goto-char 87)
4401 (delete-char 2)
4402 (goto-char 73)
4403 (insert "............")
4404 (goto-char 81)
4405 (insert "........")
4406 (goto-char 106)
4407 (insert "...")
4408 (goto-char 95)
4409 (widen)
4410 (narrow-to-region 77 39)
4411 (goto-char 43)
4412 (insert "..........")
4413 (goto-char 40)
4414 (insert "...............")
4415 (goto-char 101)
4416 (insert "")
4417 (goto-char 53)
4418 (insert "....")
4419 (goto-char 79)
4420 (delete-char 21)
4421 (goto-char 85)
4422 (insert "........")
4423 (goto-char 52)
4424 (delete-char 41)
4425 (goto-char 43)
4426 (insert ".....")
4427 (should
4428 (equal
4429 (test-overlay-regions)
4430 '((4 . 90)
4431 (5 . 57)
4432 (6 . 90)
4433 (29 . 57)
4434 (29 . 57)
4435 (33 . 57))))))
4436
4437(ert-deftest overlay-autogenerated-test-27 nil
4438 (with-temp-buffer
4439 (insert "................................................................")
4440 (make-overlay 20 12 nil t nil)
4441 (make-overlay 3 10 nil t t)
4442 (make-overlay 11 53 nil t nil)
4443 (make-overlay 59 3 nil t nil)
4444 (make-overlay 28 19 nil t t)
4445 (make-overlay 16 30 nil t t)
4446 (make-overlay 39 19 nil t t)
4447 (make-overlay 33 50 nil t nil)
4448 (make-overlay 36 54 nil nil nil)
4449 (make-overlay 42 59 nil nil nil)
4450 (make-overlay 30 48 nil t nil)
4451 (make-overlay 20 13 nil nil t)
4452 (make-overlay 63 48 nil t nil)
4453 (make-overlay 48 12 nil t t)
4454 (make-overlay 64 50 nil nil nil)
4455 (make-overlay 7 7 nil nil nil)
4456 (goto-char 20)
4457 (widen)
4458 (narrow-to-region 21 54)
4459 (goto-char 40)
4460 (insert "..........")
4461 (goto-char 21)
4462 (delete-char 2)
4463 (goto-char 35)
4464 (widen)
4465 (narrow-to-region 70 11)
4466 (goto-char 45)
4467 (insert "...............")
4468 (goto-char 74)
4469 (insert ".")
4470 (goto-char 28)
4471 (widen)
4472 (narrow-to-region 77 67)
4473 (goto-char 72)
4474 (insert "..........")
4475 (goto-char 85)
4476 (delete-char 1)
4477 (goto-char 82)
4478 (widen)
4479 (narrow-to-region 83 86)
4480 (goto-char 83)
4481 (delete-char 0)
4482 (goto-char 86)
4483 (delete-char 0)
4484 (goto-char 86)
4485 (insert "...........")
4486 (goto-char 97)
4487 (insert ".......")
4488 (goto-char 103)
4489 (widen)
4490 (narrow-to-region 44 68)
4491 (goto-char 49)
4492 (insert "..")
4493 (goto-char 65)
4494 (insert ".............")
4495 (goto-char 59)
4496 (delete-char 0)
4497 (goto-char 57)
4498 (insert "........")
4499 (goto-char 55)
4500 (delete-char 30)
4501 (goto-char 45)
4502 (insert "...............")
4503 (goto-char 44)
4504 (insert "")
4505 (goto-char 62)
4506 (insert "............")
4507 (goto-char 63)
4508 (widen)
4509 (narrow-to-region 12 5)
4510 (goto-char 8)
4511 (delete-char 4)
4512 (goto-char 6)
4513 (delete-char 0)
4514 (goto-char 7)
4515 (insert "..........")
4516 (goto-char 15)
4517 (delete-char 0)
4518 (goto-char 16)
4519 (insert "............")
4520 (goto-char 20)
4521 (insert ".........")
4522 (goto-char 13)
4523 (insert "..")
4524 (goto-char 32)
4525 (insert "..............")
4526 (should
4527 (equal
4528 (test-overlay-regions)
4529 '((3 . 55)
4530 (3 . 173)
4531 (7 . 7))))))
4532
4533(ert-deftest overlay-autogenerated-test-28 nil
4534 (with-temp-buffer
4535 (insert "................................................................")
4536 (make-overlay 59 48 nil t nil)
4537 (make-overlay 59 4 nil nil t)
4538 (make-overlay 45 35 nil t nil)
4539 (make-overlay 13 18 nil t t)
4540 (make-overlay 10 7 nil t t)
4541 (make-overlay 9 8 nil nil nil)
4542 (make-overlay 33 47 nil nil t)
4543 (make-overlay 1 57 nil t nil)
4544 (make-overlay 16 59 nil nil t)
4545 (make-overlay 43 58 nil nil t)
4546 (make-overlay 6 11 nil nil nil)
4547 (make-overlay 59 7 nil t nil)
4548 (make-overlay 3 57 nil t t)
4549 (make-overlay 61 35 nil nil nil)
4550 (make-overlay 57 8 nil nil nil)
4551 (make-overlay 5 32 nil t nil)
4552 (goto-char 18)
4553 (insert "............")
4554 (goto-char 43)
4555 (delete-char 2)
4556 (goto-char 38)
4557 (delete-char 26)
4558 (goto-char 42)
4559 (insert ".....")
4560 (goto-char 52)
4561 (insert "..........")
4562 (goto-char 45)
4563 (delete-char 11)
4564 (goto-char 33)
4565 (insert "....")
4566 (goto-char 23)
4567 (delete-char 14)
4568 (goto-char 33)
4569 (widen)
4570 (narrow-to-region 30 33)
4571 (goto-char 30)
4572 (delete-char 0)
4573 (goto-char 30)
4574 (insert "...........")
4575 (goto-char 30)
4576 (delete-char 7)
4577 (goto-char 30)
4578 (insert ".")
4579 (goto-char 32)
4580 (delete-char 4)
4581 (goto-char 34)
4582 (delete-char 0)
4583 (goto-char 34)
4584 (delete-char 0)
4585 (goto-char 32)
4586 (insert "...............")
4587 (goto-char 46)
4588 (insert ".........")
4589 (goto-char 45)
4590 (delete-char 3)
4591 (goto-char 49)
4592 (delete-char 2)
4593 (goto-char 42)
4594 (delete-char 2)
4595 (goto-char 32)
4596 (insert "..........")
4597 (goto-char 47)
4598 (insert "....")
4599 (goto-char 59)
4600 (insert ".......")
4601 (goto-char 35)
4602 (insert ".")
4603 (goto-char 45)
4604 (insert "..............")
4605 (goto-char 37)
4606 (insert "..")
4607 (goto-char 80)
4608 (insert ".....")
4609 (goto-char 30)
4610 (insert ".............")
4611 (goto-char 102)
4612 (insert "............")
4613 (goto-char 113)
4614 (insert "")
4615 (goto-char 66)
4616 (widen)
4617 (narrow-to-region 47 38)
4618 (should
4619 (equal
4620 (test-overlay-regions)
4621 '((1 . 45)
4622 (3 . 117)
4623 (4 . 121)
4624 (7 . 121)
4625 (8 . 45)
4626 (16 . 121)
4627 (28 . 121)
4628 (28 . 121)
4629 (28 . 121))))))
4630
4631(ert-deftest overlay-autogenerated-test-29 nil
4632 (with-temp-buffer
4633 (insert "................................................................")
4634 (make-overlay 5 63 nil nil t)
4635 (make-overlay 20 28 nil t t)
4636 (make-overlay 58 53 nil t nil)
4637 (make-overlay 4 57 nil t t)
4638 (make-overlay 4 16 nil nil nil)
4639 (make-overlay 33 26 nil t nil)
4640 (make-overlay 9 32 nil t t)
4641 (make-overlay 11 8 nil nil nil)
4642 (make-overlay 59 35 nil nil t)
4643 (make-overlay 15 25 nil t t)
4644 (make-overlay 36 16 nil nil nil)
4645 (make-overlay 8 37 nil nil nil)
4646 (make-overlay 65 63 nil nil t)
4647 (make-overlay 3 20 nil nil t)
4648 (make-overlay 44 55 nil t t)
4649 (make-overlay 45 25 nil t nil)
4650 (goto-char 39)
4651 (insert "...")
4652 (goto-char 22)
4653 (insert "........")
4654 (goto-char 60)
4655 (insert ".........")
4656 (goto-char 17)
4657 (insert "............")
4658 (goto-char 13)
4659 (widen)
4660 (narrow-to-region 79 16)
4661 (goto-char 19)
4662 (delete-char 11)
4663 (goto-char 25)
4664 (insert "........")
4665 (goto-char 61)
4666 (insert "....")
4667 (goto-char 45)
4668 (widen)
4669 (narrow-to-region 73 66)
4670 (goto-char 71)
4671 (insert "............")
4672 (goto-char 81)
4673 (delete-char 2)
4674 (goto-char 73)
4675 (insert "..........")
4676 (goto-char 74)
4677 (insert "............")
4678 (goto-char 82)
4679 (delete-char 7)
4680 (goto-char 78)
4681 (delete-char 18)
4682 (goto-char 75)
4683 (insert ".........")
4684 (goto-char 66)
4685 (insert ".........")
4686 (goto-char 86)
4687 (delete-char 12)
4688 (goto-char 77)
4689 (widen)
4690 (narrow-to-region 23 55)
4691 (goto-char 43)
4692 (insert ".")
4693 (goto-char 50)
4694 (insert "..")
4695 (goto-char 25)
4696 (delete-char 18)
4697 (goto-char 33)
4698 (delete-char 7)
4699 (goto-char 26)
4700 (insert "........")
4701 (goto-char 29)
4702 (insert "...........")
4703 (goto-char 33)
4704 (insert "...")
4705 (goto-char 40)
4706 (insert "..........")
4707 (goto-char 26)
4708 (insert "")
4709 (goto-char 35)
4710 (insert ".")
4711 (goto-char 59)
4712 (insert ".")
4713 (goto-char 51)
4714 (insert "..")
4715 (goto-char 59)
4716 (insert ".............")
4717 (should
4718 (equal
4719 (test-overlay-regions)
4720 '((4 . 130)
4721 (5 . 136)
4722 (8 . 82)
4723 (9 . 82)
4724 (15 . 25)
4725 (16 . 82)
4726 (21 . 77)
4727 (25 . 105)
4728 (75 . 82))))))
4729
4730(ert-deftest overlay-autogenerated-test-30 nil
4731 (with-temp-buffer
4732 (insert "................................................................")
4733 (make-overlay 27 65 nil t t)
4734 (make-overlay 39 51 nil t t)
4735 (make-overlay 53 2 nil nil nil)
4736 (make-overlay 3 17 nil nil t)
4737 (make-overlay 35 4 nil nil t)
4738 (make-overlay 65 53 nil t nil)
4739 (make-overlay 8 21 nil t t)
4740 (make-overlay 18 62 nil t t)
4741 (make-overlay 42 59 nil nil t)
4742 (make-overlay 12 37 nil t t)
4743 (make-overlay 64 31 nil t nil)
4744 (make-overlay 39 54 nil nil t)
4745 (make-overlay 41 24 nil t nil)
4746 (make-overlay 10 21 nil nil t)
4747 (make-overlay 49 15 nil t nil)
4748 (make-overlay 49 63 nil nil t)
4749 (goto-char 43)
4750 (insert "..........")
4751 (goto-char 44)
4752 (delete-char 29)
4753 (goto-char 32)
4754 (insert "..")
4755 (goto-char 13)
4756 (insert ".")
4757 (goto-char 42)
4758 (insert ".........")
4759 (goto-char 39)
4760 (insert "..........")
4761 (goto-char 15)
4762 (insert "............")
4763 (goto-char 58)
4764 (delete-char 9)
4765 (goto-char 63)
4766 (insert ".........")
4767 (goto-char 49)
4768 (insert ".")
4769 (goto-char 28)
4770 (delete-char 51)
4771 (goto-char 12)
4772 (delete-char 6)
4773 (goto-char 20)
4774 (delete-char 2)
4775 (goto-char 7)
4776 (widen)
4777 (narrow-to-region 2 9)
4778 (goto-char 5)
4779 (insert "...............")
4780 (goto-char 18)
4781 (delete-char 1)
4782 (goto-char 4)
4783 (insert ".............")
4784 (goto-char 13)
4785 (delete-char 22)
4786 (goto-char 12)
4787 (insert "")
4788 (goto-char 3)
4789 (insert ".............")
4790 (goto-char 22)
4791 (insert "...............")
4792 (goto-char 9)
4793 (insert "....")
4794 (goto-char 8)
4795 (insert "...........")
4796 (goto-char 6)
4797 (delete-char 34)
4798 (goto-char 21)
4799 (insert "....")
4800 (goto-char 14)
4801 (insert ".....")
4802 (goto-char 20)
4803 (insert ".......")
4804 (goto-char 34)
4805 (widen)
4806 (narrow-to-region 3 2)
4807 (goto-char 3)
4808 (delete-char 0)
4809 (goto-char 2)
4810 (insert "..............")
4811 (goto-char 15)
4812 (delete-char 2)
4813 (goto-char 11)
4814 (insert "......")
4815 (should
4816 (equal
4817 (test-overlay-regions)
4818 '((2 . 68))))))
4819
4820(ert-deftest overlay-autogenerated-test-31 nil
4821 (with-temp-buffer
4822 (insert "................................................................")
4823 (make-overlay 54 64 nil nil nil)
4824 (make-overlay 49 12 nil nil t)
4825 (make-overlay 40 12 nil t nil)
4826 (make-overlay 17 38 nil nil nil)
4827 (make-overlay 21 36 nil t t)
4828 (make-overlay 8 38 nil t nil)
4829 (make-overlay 50 22 nil t nil)
4830 (make-overlay 65 15 nil nil t)
4831 (make-overlay 57 60 nil t t)
4832 (make-overlay 35 11 nil nil t)
4833 (make-overlay 49 44 nil nil t)
4834 (make-overlay 45 31 nil nil t)
4835 (make-overlay 51 24 nil t t)
4836 (make-overlay 20 14 nil nil nil)
4837 (make-overlay 6 18 nil t t)
4838 (make-overlay 25 3 nil nil nil)
4839 (goto-char 18)
4840 (delete-char 10)
4841 (goto-char 36)
4842 (delete-char 13)
4843 (goto-char 8)
4844 (delete-char 4)
4845 (goto-char 2)
4846 (delete-char 8)
4847 (goto-char 12)
4848 (delete-char 10)
4849 (goto-char 15)
4850 (delete-char 4)
4851 (goto-char 16)
4852 (insert ".........")
4853 (goto-char 17)
4854 (insert "...............")
4855 (goto-char 33)
4856 (delete-char 0)
4857 (goto-char 38)
4858 (delete-char 0)
4859 (goto-char 11)
4860 (insert "...........")
4861 (goto-char 8)
4862 (delete-char 14)
4863 (goto-char 32)
4864 (insert "........")
4865 (goto-char 40)
4866 (widen)
4867 (narrow-to-region 14 6)
4868 (goto-char 10)
4869 (delete-char 1)
4870 (goto-char 7)
4871 (widen)
4872 (narrow-to-region 18 39)
4873 (goto-char 36)
4874 (delete-char 1)
4875 (goto-char 34)
4876 (widen)
4877 (narrow-to-region 39 14)
4878 (goto-char 22)
4879 (widen)
4880 (narrow-to-region 25 21)
4881 (goto-char 23)
4882 (delete-char 2)
4883 (goto-char 23)
4884 (delete-char 0)
4885 (goto-char 23)
4886 (insert ".........")
4887 (goto-char 32)
4888 (delete-char 0)
4889 (goto-char 31)
4890 (insert ".........")
4891 (goto-char 32)
4892 (insert "...")
4893 (goto-char 30)
4894 (widen)
4895 (narrow-to-region 10 56)
4896 (goto-char 10)
4897 (insert ".........")
4898 (goto-char 38)
4899 (insert ".........")
4900 (goto-char 19)
4901 (insert "..")
4902 (goto-char 11)
4903 (insert "..............")
4904 (goto-char 66)
4905 (insert "...............")
4906 (goto-char 13)
4907 (insert "......")
4908 (should
4909 (equal
4910 (test-overlay-regions)
4911 '((2 . 41)
4912 (3 . 117)
4913 (6 . 41)
4914 (8 . 41)
4915 (9 . 41)
4916 (10 . 42)
4917 (41 . 42))))))
4918
4919(ert-deftest overlay-autogenerated-test-32 nil
4920 (with-temp-buffer
4921 (insert "................................................................")
4922 (make-overlay 35 60 nil nil t)
4923 (make-overlay 45 46 nil nil nil)
4924 (make-overlay 47 11 nil nil t)
4925 (make-overlay 12 51 nil t nil)
4926 (make-overlay 61 17 nil t nil)
4927 (make-overlay 7 24 nil t nil)
4928 (make-overlay 36 37 nil nil t)
4929 (make-overlay 5 39 nil t t)
4930 (make-overlay 5 40 nil nil t)
4931 (make-overlay 38 40 nil t t)
4932 (make-overlay 47 45 nil t nil)
4933 (make-overlay 61 48 nil nil nil)
4934 (make-overlay 23 39 nil t t)
4935 (make-overlay 11 52 nil nil nil)
4936 (make-overlay 37 35 nil nil nil)
4937 (make-overlay 19 20 nil t nil)
4938 (goto-char 43)
4939 (insert "........")
4940 (goto-char 7)
4941 (insert "")
4942 (goto-char 28)
4943 (delete-char 41)
4944 (goto-char 3)
4945 (delete-char 17)
4946 (goto-char 2)
4947 (insert ".")
4948 (goto-char 7)
4949 (insert ".........")
4950 (goto-char 21)
4951 (delete-char 4)
4952 (goto-char 13)
4953 (delete-char 1)
4954 (goto-char 2)
4955 (insert "...............")
4956 (goto-char 7)
4957 (insert "")
4958 (goto-char 14)
4959 (insert ".....")
4960 (goto-char 16)
4961 (insert ".")
4962 (goto-char 10)
4963 (insert "..............")
4964 (goto-char 16)
4965 (delete-char 18)
4966 (goto-char 1)
4967 (delete-char 36)
4968 (goto-char 1)
4969 (delete-char 0)
4970 (goto-char 1)
4971 (delete-char 0)
4972 (goto-char 1)
4973 (insert ".............")
4974 (goto-char 9)
4975 (insert ".")
4976 (goto-char 14)
4977 (insert ".....")
4978 (goto-char 9)
4979 (delete-char 0)
4980 (goto-char 15)
4981 (delete-char 0)
4982 (goto-char 6)
4983 (delete-char 4)
4984 (goto-char 11)
4985 (delete-char 5)
4986 (goto-char 5)
4987 (insert "....")
4988 (goto-char 5)
4989 (insert ".....")
4990 (goto-char 12)
4991 (insert "")
4992 (goto-char 13)
4993 (insert ".......")
4994 (goto-char 14)
4995 (insert "......")
4996 (goto-char 9)
4997 (delete-char 3)
4998 (goto-char 17)
4999 (delete-char 0)
5000 (goto-char 7)
5001 (delete-char 12)
5002 (should
5003 (equal
5004 (test-overlay-regions)
5005 '((1 . 1)
5006 (1 . 1)
5007 (1 . 1)
5008 (1 . 1)
5009 (1 . 1)
5010 (1 . 1)
5011 (1 . 1)
5012 (1 . 1)
5013 (1 . 1)
5014 (1 . 18)
5015 (1 . 18)
5016 (1 . 18)
5017 (1 . 18)
5018 (18 . 18)
5019 (18 . 18)
5020 (18 . 18))))))
5021
5022(ert-deftest overlay-autogenerated-test-33 nil
5023 (with-temp-buffer
5024 (insert "................................................................")
5025 (make-overlay 65 33 nil t nil)
5026 (make-overlay 45 54 nil t t)
5027 (make-overlay 17 38 nil t nil)
5028 (make-overlay 58 46 nil nil t)
5029 (make-overlay 21 36 nil t t)
5030 (make-overlay 31 63 nil nil t)
5031 (make-overlay 37 64 nil t t)
5032 (make-overlay 42 19 nil nil nil)
5033 (make-overlay 51 60 nil t nil)
5034 (make-overlay 47 15 nil t t)
5035 (make-overlay 57 47 nil nil nil)
5036 (make-overlay 40 45 nil nil nil)
5037 (make-overlay 44 47 nil t nil)
5038 (make-overlay 42 35 nil t nil)
5039 (make-overlay 1 65 nil nil t)
5040 (make-overlay 29 63 nil t nil)
5041 (goto-char 33)
5042 (insert "...........")
5043 (goto-char 56)
5044 (insert ".........")
5045 (goto-char 67)
5046 (insert "....")
5047 (goto-char 28)
5048 (delete-char 35)
5049 (goto-char 9)
5050 (insert "......")
5051 (goto-char 43)
5052 (delete-char 17)
5053 (goto-char 29)
5054 (insert ".......")
5055 (goto-char 20)
5056 (insert "....")
5057 (goto-char 53)
5058 (insert ".......")
5059 (goto-char 14)
5060 (widen)
5061 (narrow-to-region 38 57)
5062 (goto-char 51)
5063 (insert "")
5064 (goto-char 57)
5065 (insert ".......")
5066 (goto-char 64)
5067 (insert ".....")
5068 (goto-char 59)
5069 (delete-char 3)
5070 (goto-char 45)
5071 (delete-char 12)
5072 (goto-char 43)
5073 (insert "......")
5074 (goto-char 48)
5075 (insert "......")
5076 (goto-char 52)
5077 (insert "........")
5078 (goto-char 57)
5079 (delete-char 16)
5080 (goto-char 43)
5081 (delete-char 9)
5082 (goto-char 40)
5083 (insert "")
5084 (goto-char 39)
5085 (insert "..........")
5086 (goto-char 50)
5087 (widen)
5088 (narrow-to-region 31 27)
5089 (goto-char 27)
5090 (insert "..........")
5091 (goto-char 33)
5092 (delete-char 0)
5093 (goto-char 37)
5094 (insert "..")
5095 (goto-char 38)
5096 (delete-char 4)
5097 (goto-char 38)
5098 (insert "..........")
5099 (goto-char 45)
5100 (insert ".....")
5101 (goto-char 53)
5102 (insert "...")
5103 (goto-char 51)
5104 (insert ".")
5105 (goto-char 28)
5106 (insert "...")
5107 (should
5108 (equal
5109 (test-overlay-regions)
5110 '((1 . 93)
5111 (25 . 92)
5112 (41 . 88)
5113 (60 . 88))))))
5114
5115(ert-deftest overlay-autogenerated-test-34 nil
5116 (with-temp-buffer
5117 (insert "................................................................")
5118 (make-overlay 2 63 nil nil t)
5119 (make-overlay 54 30 nil t nil)
5120 (make-overlay 21 57 nil t nil)
5121 (make-overlay 61 19 nil nil nil)
5122 (make-overlay 55 8 nil nil t)
5123 (make-overlay 14 51 nil nil nil)
5124 (make-overlay 33 13 nil t t)
5125 (make-overlay 36 25 nil t t)
5126 (make-overlay 22 21 nil nil t)
5127 (make-overlay 21 48 nil nil t)
5128 (make-overlay 36 7 nil nil t)
5129 (make-overlay 2 40 nil nil nil)
5130 (make-overlay 21 27 nil nil t)
5131 (make-overlay 26 2 nil nil nil)
5132 (make-overlay 60 43 nil nil nil)
5133 (make-overlay 12 50 nil t t)
5134 (goto-char 44)
5135 (delete-char 6)
5136 (goto-char 5)
5137 (insert "..")
5138 (goto-char 17)
5139 (insert "........")
5140 (goto-char 48)
5141 (insert "..")
5142 (goto-char 27)
5143 (delete-char 29)
5144 (goto-char 10)
5145 (delete-char 2)
5146 (goto-char 35)
5147 (insert ".............")
5148 (goto-char 20)
5149 (delete-char 0)
5150 (goto-char 6)
5151 (insert ".")
5152 (goto-char 9)
5153 (delete-char 6)
5154 (goto-char 38)
5155 (insert ".........")
5156 (goto-char 5)
5157 (insert ".........")
5158 (goto-char 10)
5159 (delete-char 20)
5160 (goto-char 6)
5161 (delete-char 6)
5162 (goto-char 14)
5163 (insert ".............")
5164 (goto-char 31)
5165 (delete-char 10)
5166 (goto-char 20)
5167 (widen)
5168 (narrow-to-region 27 39)
5169 (goto-char 34)
5170 (delete-char 5)
5171 (goto-char 32)
5172 (delete-char 1)
5173 (goto-char 27)
5174 (insert "..")
5175 (goto-char 28)
5176 (insert "........")
5177 (goto-char 39)
5178 (insert "........")
5179 (goto-char 38)
5180 (delete-char 7)
5181 (goto-char 44)
5182 (delete-char 0)
5183 (goto-char 30)
5184 (insert "...............")
5185 (goto-char 43)
5186 (insert "............")
5187 (goto-char 56)
5188 (delete-char 1)
5189 (goto-char 65)
5190 (delete-char 3)
5191 (goto-char 36)
5192 (insert ".........")
5193 (goto-char 74)
5194 (insert ".....")
5195 (goto-char 67)
5196 (delete-char 5)
5197 (goto-char 38)
5198 (insert "..")
5199 (should
5200 (equal
5201 (test-overlay-regions)
5202 '((2 . 80)
5203 (6 . 78))))))
5204
5205(ert-deftest overlay-autogenerated-test-35 nil
5206 (with-temp-buffer
5207 (insert "................................................................")
5208 (make-overlay 38 16 nil nil nil)
5209 (make-overlay 19 22 nil t nil)
5210 (make-overlay 16 43 nil nil t)
5211 (make-overlay 27 5 nil nil nil)
5212 (make-overlay 43 34 nil t nil)
5213 (make-overlay 47 4 nil nil t)
5214 (make-overlay 1 47 nil nil t)
5215 (make-overlay 27 35 nil t nil)
5216 (make-overlay 41 41 nil nil t)
5217 (make-overlay 21 19 nil nil nil)
5218 (make-overlay 16 38 nil nil t)
5219 (make-overlay 33 39 nil t nil)
5220 (make-overlay 34 51 nil nil t)
5221 (make-overlay 45 36 nil t nil)
5222 (make-overlay 42 18 nil t t)
5223 (make-overlay 12 30 nil nil nil)
5224 (goto-char 18)
5225 (insert "")
5226 (goto-char 58)
5227 (delete-char 3)
5228 (goto-char 58)
5229 (delete-char 0)
5230 (goto-char 1)
5231 (insert ".......")
5232 (goto-char 48)
5233 (delete-char 17)
5234 (goto-char 39)
5235 (delete-char 6)
5236 (goto-char 33)
5237 (widen)
5238 (narrow-to-region 45 46)
5239 (goto-char 46)
5240 (insert "")
5241 (goto-char 46)
5242 (delete-char 0)
5243 (goto-char 46)
5244 (insert ".....")
5245 (goto-char 51)
5246 (widen)
5247 (narrow-to-region 17 26)
5248 (goto-char 25)
5249 (widen)
5250 (narrow-to-region 50 41)
5251 (goto-char 45)
5252 (insert "..............")
5253 (goto-char 59)
5254 (insert "...........")
5255 (goto-char 47)
5256 (delete-char 9)
5257 (goto-char 59)
5258 (insert "")
5259 (goto-char 46)
5260 (insert "")
5261 (goto-char 54)
5262 (delete-char 5)
5263 (goto-char 57)
5264 (widen)
5265 (narrow-to-region 57 31)
5266 (goto-char 42)
5267 (delete-char 2)
5268 (goto-char 52)
5269 (insert "....")
5270 (goto-char 44)
5271 (insert "..")
5272 (goto-char 44)
5273 (insert "...............")
5274 (goto-char 72)
5275 (delete-char 1)
5276 (goto-char 66)
5277 (delete-char 6)
5278 (goto-char 64)
5279 (delete-char 5)
5280 (goto-char 49)
5281 (delete-char 12)
5282 (goto-char 32)
5283 (insert "......")
5284 (goto-char 44)
5285 (delete-char 2)
5286 (goto-char 39)
5287 (delete-char 12)
5288 (goto-char 42)
5289 (insert "......")
5290 (goto-char 36)
5291 (widen)
5292 (narrow-to-region 14 47)
5293 (should
5294 (equal
5295 (test-overlay-regions)
5296 '((1 . 39)
5297 (11 . 39)
5298 (12 . 39)
5299 (19 . 39)
5300 (23 . 39)
5301 (23 . 39)
5302 (23 . 39)
5303 (25 . 39)
5304 (26 . 28)
5305 (26 . 29)
5306 (39 . 39)
5307 (39 . 39)
5308 (39 . 39)
5309 (39 . 39)
5310 (39 . 39)
5311 (39 . 39))))))
5312
5313(ert-deftest overlay-autogenerated-test-36 nil
5314 (with-temp-buffer
5315 (insert "................................................................")
5316 (make-overlay 1 38 nil t t)
5317 (make-overlay 58 34 nil t nil)
5318 (make-overlay 6 33 nil nil t)
5319 (make-overlay 63 54 nil nil t)
5320 (make-overlay 54 54 nil t t)
5321 (make-overlay 21 61 nil nil nil)
5322 (make-overlay 64 55 nil nil t)
5323 (make-overlay 28 65 nil nil t)
5324 (make-overlay 32 51 nil t nil)
5325 (make-overlay 36 38 nil nil nil)
5326 (make-overlay 35 21 nil nil nil)
5327 (make-overlay 65 48 nil nil nil)
5328 (make-overlay 32 27 nil nil t)
5329 (make-overlay 27 55 nil t t)
5330 (make-overlay 30 22 nil t nil)
5331 (make-overlay 14 58 nil t nil)
5332 (goto-char 40)
5333 (delete-char 7)
5334 (goto-char 42)
5335 (insert "......")
5336 (goto-char 11)
5337 (widen)
5338 (narrow-to-region 64 9)
5339 (goto-char 21)
5340 (delete-char 23)
5341 (goto-char 24)
5342 (insert "...")
5343 (goto-char 13)
5344 (insert "..........")
5345 (goto-char 12)
5346 (delete-char 5)
5347 (goto-char 10)
5348 (delete-char 0)
5349 (goto-char 21)
5350 (widen)
5351 (narrow-to-region 9 5)
5352 (goto-char 6)
5353 (delete-char 0)
5354 (goto-char 9)
5355 (delete-char 0)
5356 (goto-char 9)
5357 (delete-char 0)
5358 (goto-char 7)
5359 (insert "............")
5360 (goto-char 9)
5361 (insert "...")
5362 (goto-char 18)
5363 (insert ".")
5364 (goto-char 23)
5365 (delete-char 1)
5366 (goto-char 9)
5367 (insert "....")
5368 (goto-char 6)
5369 (insert ".....")
5370 (goto-char 23)
5371 (widen)
5372 (narrow-to-region 28 1)
5373 (goto-char 6)
5374 (insert "...........")
5375 (goto-char 30)
5376 (delete-char 8)
5377 (goto-char 2)
5378 (insert ".")
5379 (goto-char 18)
5380 (insert "......")
5381 (goto-char 5)
5382 (delete-char 9)
5383 (goto-char 5)
5384 (delete-char 20)
5385 (goto-char 4)
5386 (delete-char 3)
5387 (goto-char 3)
5388 (delete-char 2)
5389 (goto-char 3)
5390 (delete-char 0)
5391 (goto-char 1)
5392 (insert "......")
5393 (goto-char 8)
5394 (widen)
5395 (narrow-to-region 39 2)
5396 (goto-char 13)
5397 (delete-char 12)
5398 (goto-char 24)
5399 (delete-char 0)
5400 (should
5401 (equal
5402 (test-overlay-regions)
5403 '((7 . 20)
5404 (9 . 20)
5405 (13 . 36)
5406 (20 . 20)
5407 (20 . 20)
5408 (20 . 20)
5409 (20 . 20)
5410 (20 . 29)
5411 (20 . 33)
5412 (20 . 36)
5413 (20 . 39)
5414 (20 . 43)
5415 (20 . 43))))))
5416
5417(ert-deftest overlay-autogenerated-test-37 nil
5418 (with-temp-buffer
5419 (insert "................................................................")
5420 (make-overlay 26 30 nil nil nil)
5421 (make-overlay 55 50 nil nil t)
5422 (make-overlay 43 54 nil nil t)
5423 (make-overlay 53 48 nil nil nil)
5424 (make-overlay 37 51 nil nil t)
5425 (make-overlay 15 30 nil nil nil)
5426 (make-overlay 2 24 nil t t)
5427 (make-overlay 56 61 nil t nil)
5428 (make-overlay 65 46 nil t nil)
5429 (make-overlay 28 47 nil t nil)
5430 (make-overlay 21 24 nil t t)
5431 (make-overlay 17 13 nil t t)
5432 (make-overlay 7 44 nil t nil)
5433 (make-overlay 28 63 nil nil nil)
5434 (make-overlay 22 16 nil t t)
5435 (make-overlay 26 44 nil t t)
5436 (goto-char 57)
5437 (delete-char 6)
5438 (goto-char 42)
5439 (insert ".....")
5440 (goto-char 63)
5441 (insert ".............")
5442 (goto-char 17)
5443 (insert "")
5444 (goto-char 57)
5445 (insert "...........")
5446 (goto-char 3)
5447 (delete-char 47)
5448 (goto-char 15)
5449 (insert ".............")
5450 (goto-char 28)
5451 (insert "")
5452 (goto-char 17)
5453 (delete-char 31)
5454 (goto-char 7)
5455 (delete-char 16)
5456 (goto-char 2)
5457 (insert "...........")
5458 (goto-char 2)
5459 (insert "..")
5460 (goto-char 18)
5461 (widen)
5462 (narrow-to-region 20 8)
5463 (goto-char 13)
5464 (widen)
5465 (narrow-to-region 12 10)
5466 (goto-char 10)
5467 (delete-char 1)
5468 (goto-char 11)
5469 (delete-char 0)
5470 (goto-char 10)
5471 (insert "...")
5472 (goto-char 11)
5473 (delete-char 0)
5474 (goto-char 13)
5475 (insert "..")
5476 (goto-char 16)
5477 (delete-char 0)
5478 (goto-char 10)
5479 (delete-char 2)
5480 (goto-char 11)
5481 (insert ".....")
5482 (goto-char 16)
5483 (widen)
5484 (narrow-to-region 6 13)
5485 (goto-char 10)
5486 (insert "..")
5487 (goto-char 6)
5488 (delete-char 6)
5489 (goto-char 8)
5490 (insert "...............")
5491 (goto-char 21)
5492 (delete-char 0)
5493 (goto-char 21)
5494 (widen)
5495 (narrow-to-region 36 11)
5496 (goto-char 12)
5497 (insert "...............")
5498 (goto-char 19)
5499 (insert ".......")
5500 (goto-char 56)
5501 (delete-char 2)
5502 (goto-char 42)
5503 (delete-char 11)
5504 (should
5505 (equal
5506 (test-overlay-regions)
5507 '((44 . 45))))))
5508
5509(ert-deftest overlay-autogenerated-test-38 nil
5510 (with-temp-buffer
5511 (insert "................................................................")
5512 (make-overlay 29 13 nil t t)
5513 (make-overlay 19 28 nil nil t)
5514 (make-overlay 47 33 nil nil nil)
5515 (make-overlay 8 44 nil t nil)
5516 (make-overlay 48 4 nil t nil)
5517 (make-overlay 8 20 nil t t)
5518 (make-overlay 38 31 nil nil t)
5519 (make-overlay 17 65 nil nil t)
5520 (make-overlay 49 31 nil nil nil)
5521 (make-overlay 39 19 nil nil t)
5522 (make-overlay 40 49 nil t t)
5523 (make-overlay 24 16 nil t t)
5524 (make-overlay 4 41 nil t nil)
5525 (make-overlay 61 42 nil t nil)
5526 (make-overlay 46 11 nil nil nil)
5527 (make-overlay 1 43 nil nil t)
5528 (goto-char 62)
5529 (delete-char 2)
5530 (goto-char 25)
5531 (widen)
5532 (narrow-to-region 30 38)
5533 (goto-char 37)
5534 (delete-char 1)
5535 (goto-char 37)
5536 (insert "...........")
5537 (goto-char 41)
5538 (delete-char 3)
5539 (goto-char 39)
5540 (delete-char 5)
5541 (goto-char 39)
5542 (widen)
5543 (narrow-to-region 31 9)
5544 (goto-char 11)
5545 (insert "..............")
5546 (goto-char 9)
5547 (widen)
5548 (narrow-to-region 62 30)
5549 (goto-char 32)
5550 (widen)
5551 (narrow-to-region 17 48)
5552 (goto-char 39)
5553 (delete-char 7)
5554 (goto-char 24)
5555 (delete-char 8)
5556 (goto-char 19)
5557 (insert "")
5558 (goto-char 25)
5559 (delete-char 5)
5560 (goto-char 28)
5561 (delete-char 0)
5562 (goto-char 22)
5563 (widen)
5564 (narrow-to-region 52 35)
5565 (goto-char 49)
5566 (delete-char 0)
5567 (goto-char 49)
5568 (delete-char 3)
5569 (goto-char 48)
5570 (insert "...........")
5571 (goto-char 37)
5572 (delete-char 23)
5573 (goto-char 36)
5574 (delete-char 0)
5575 (goto-char 35)
5576 (insert "....")
5577 (goto-char 35)
5578 (insert "..")
5579 (goto-char 39)
5580 (delete-char 4)
5581 (goto-char 39)
5582 (delete-char 0)
5583 (goto-char 36)
5584 (delete-char 3)
5585 (goto-char 36)
5586 (delete-char 0)
5587 (goto-char 36)
5588 (delete-char 0)
5589 (goto-char 36)
5590 (delete-char 0)
5591 (goto-char 36)
5592 (insert ".....")
5593 (goto-char 38)
5594 (delete-char 1)
5595 (goto-char 35)
5596 (delete-char 3)
5597 (should
5598 (equal
5599 (test-overlay-regions)
5600 '((1 . 37)
5601 (24 . 44)
5602 (25 . 37))))))
5603
5604(ert-deftest overlay-autogenerated-test-39 nil
5605 (with-temp-buffer
5606 (insert "................................................................")
5607 (make-overlay 15 49 nil t t)
5608 (make-overlay 27 20 nil t nil)
5609 (make-overlay 55 50 nil t nil)
5610 (make-overlay 17 5 nil t t)
5611 (make-overlay 26 56 nil nil t)
5612 (make-overlay 42 11 nil t t)
5613 (make-overlay 24 35 nil nil t)
5614 (make-overlay 47 45 nil t t)
5615 (make-overlay 37 12 nil nil t)
5616 (make-overlay 17 25 nil t nil)
5617 (make-overlay 32 53 nil nil nil)
5618 (make-overlay 20 34 nil nil t)
5619 (make-overlay 56 58 nil nil t)
5620 (make-overlay 42 31 nil nil t)
5621 (make-overlay 22 55 nil t t)
5622 (make-overlay 55 11 nil t nil)
5623 (goto-char 16)
5624 (insert ".............")
5625 (goto-char 30)
5626 (insert ".")
5627 (goto-char 12)
5628 (delete-char 56)
5629 (goto-char 9)
5630 (insert ".............")
5631 (goto-char 6)
5632 (insert "....")
5633 (goto-char 19)
5634 (delete-char 19)
5635 (goto-char 19)
5636 (insert "...............")
5637 (goto-char 13)
5638 (delete-char 21)
5639 (goto-char 7)
5640 (delete-char 0)
5641 (goto-char 14)
5642 (widen)
5643 (narrow-to-region 5 6)
5644 (goto-char 5)
5645 (delete-char 0)
5646 (goto-char 6)
5647 (insert "......")
5648 (goto-char 10)
5649 (delete-char 0)
5650 (goto-char 7)
5651 (widen)
5652 (narrow-to-region 2 6)
5653 (goto-char 2)
5654 (insert "..........")
5655 (goto-char 2)
5656 (delete-char 9)
5657 (goto-char 7)
5658 (insert "...")
5659 (goto-char 9)
5660 (insert "...")
5661 (goto-char 10)
5662 (insert "......")
5663 (goto-char 4)
5664 (delete-char 14)
5665 (goto-char 4)
5666 (insert ".")
5667 (goto-char 5)
5668 (insert "..............")
5669 (goto-char 13)
5670 (insert "......")
5671 (goto-char 10)
5672 (insert "......")
5673 (goto-char 20)
5674 (insert "............")
5675 (goto-char 16)
5676 (widen)
5677 (narrow-to-region 3 32)
5678 (goto-char 18)
5679 (insert "..")
5680 (goto-char 6)
5681 (insert "......")
5682 (goto-char 38)
5683 (delete-char 0)
5684 (goto-char 31)
5685 (insert "............")
5686 (goto-char 28)
5687 (insert "")
5688 (goto-char 9)
5689 (delete-char 23)
5690 (should
5691 (equal
5692 (test-overlay-regions)
5693 'nil))))
5694
5695(ert-deftest overlay-autogenerated-test-40 nil
5696 (with-temp-buffer
5697 (insert "................................................................")
5698 (make-overlay 52 3 nil t nil)
5699 (make-overlay 35 41 nil t t)
5700 (make-overlay 4 2 nil t nil)
5701 (make-overlay 51 48 nil nil t)
5702 (make-overlay 44 57 nil t t)
5703 (make-overlay 13 32 nil nil nil)
5704 (make-overlay 46 29 nil t nil)
5705 (make-overlay 28 13 nil t nil)
5706 (make-overlay 10 65 nil t t)
5707 (make-overlay 41 48 nil nil t)
5708 (make-overlay 36 44 nil nil t)
5709 (make-overlay 29 61 nil t nil)
5710 (make-overlay 25 24 nil nil t)
5711 (make-overlay 22 45 nil nil t)
5712 (make-overlay 37 55 nil nil t)
5713 (make-overlay 36 39 nil nil nil)
5714 (goto-char 16)
5715 (delete-char 48)
5716 (goto-char 17)
5717 (delete-char 0)
5718 (goto-char 7)
5719 (insert "..............")
5720 (goto-char 30)
5721 (insert "........")
5722 (goto-char 11)
5723 (insert "..........")
5724 (goto-char 5)
5725 (delete-char 14)
5726 (goto-char 19)
5727 (insert ".")
5728 (goto-char 27)
5729 (insert "..")
5730 (goto-char 35)
5731 (delete-char 1)
5732 (goto-char 29)
5733 (delete-char 0)
5734 (goto-char 33)
5735 (delete-char 2)
5736 (goto-char 33)
5737 (insert "..")
5738 (goto-char 28)
5739 (insert ".........")
5740 (goto-char 30)
5741 (delete-char 4)
5742 (goto-char 40)
5743 (delete-char 1)
5744 (goto-char 15)
5745 (widen)
5746 (narrow-to-region 40 8)
5747 (goto-char 10)
5748 (delete-char 13)
5749 (goto-char 11)
5750 (delete-char 5)
5751 (goto-char 15)
5752 (insert "........")
5753 (goto-char 26)
5754 (delete-char 4)
5755 (goto-char 11)
5756 (delete-char 1)
5757 (goto-char 14)
5758 (insert "............")
5759 (goto-char 33)
5760 (insert ".")
5761 (goto-char 10)
5762 (insert "...")
5763 (goto-char 30)
5764 (widen)
5765 (narrow-to-region 28 9)
5766 (goto-char 27)
5767 (delete-char 0)
5768 (goto-char 27)
5769 (delete-char 1)
5770 (goto-char 26)
5771 (insert "..")
5772 (goto-char 27)
5773 (insert "..")
5774 (goto-char 20)
5775 (delete-char 5)
5776 (goto-char 12)
5777 (widen)
5778 (narrow-to-region 40 30)
5779 (goto-char 37)
5780 (delete-char 3)
5781 (should
5782 (equal
5783 (test-overlay-regions)
5784 '((13 . 37)
5785 (14 . 37)
5786 (14 . 37)
5787 (14 . 37)
5788 (14 . 37)
5789 (14 . 37)
5790 (14 . 37)
5791 (37 . 37)
5792 (37 . 37))))))
5793
5794(ert-deftest overlay-autogenerated-test-41 nil
5795 (with-temp-buffer
5796 (insert "................................................................")
5797 (make-overlay 28 48 nil nil t)
5798 (make-overlay 30 11 nil nil t)
5799 (make-overlay 7 12 nil t nil)
5800 (make-overlay 65 35 nil t nil)
5801 (make-overlay 22 61 nil t nil)
5802 (make-overlay 37 42 nil nil nil)
5803 (make-overlay 33 38 nil nil t)
5804 (make-overlay 48 45 nil t t)
5805 (make-overlay 45 62 nil t nil)
5806 (make-overlay 63 7 nil nil t)
5807 (make-overlay 23 42 nil t nil)
5808 (make-overlay 21 4 nil t nil)
5809 (make-overlay 64 41 nil t nil)
5810 (make-overlay 20 33 nil t t)
5811 (make-overlay 41 26 nil t nil)
5812 (make-overlay 43 31 nil t t)
5813 (goto-char 55)
5814 (delete-char 3)
5815 (goto-char 12)
5816 (insert "..")
5817 (goto-char 62)
5818 (insert "")
5819 (goto-char 24)
5820 (delete-char 2)
5821 (goto-char 41)
5822 (insert "............")
5823 (goto-char 2)
5824 (insert ".")
5825 (goto-char 55)
5826 (insert "........")
5827 (goto-char 67)
5828 (delete-char 6)
5829 (goto-char 58)
5830 (delete-char 10)
5831 (goto-char 29)
5832 (insert "")
5833 (goto-char 6)
5834 (widen)
5835 (narrow-to-region 44 45)
5836 (goto-char 44)
5837 (delete-char 1)
5838 (goto-char 44)
5839 (widen)
5840 (narrow-to-region 24 37)
5841 (goto-char 30)
5842 (delete-char 7)
5843 (goto-char 27)
5844 (insert "......")
5845 (goto-char 35)
5846 (delete-char 0)
5847 (goto-char 32)
5848 (insert "...............")
5849 (goto-char 37)
5850 (delete-char 9)
5851 (goto-char 40)
5852 (insert "..........")
5853 (goto-char 35)
5854 (insert "......")
5855 (goto-char 25)
5856 (delete-char 7)
5857 (goto-char 40)
5858 (delete-char 4)
5859 (goto-char 25)
5860 (delete-char 14)
5861 (goto-char 28)
5862 (insert "")
5863 (goto-char 28)
5864 (widen)
5865 (narrow-to-region 17 43)
5866 (goto-char 20)
5867 (insert "..........")
5868 (goto-char 22)
5869 (delete-char 2)
5870 (goto-char 48)
5871 (insert "............")
5872 (goto-char 47)
5873 (insert ".........")
5874 (goto-char 69)
5875 (widen)
5876 (narrow-to-region 52 25)
5877 (goto-char 26)
5878 (insert "......")
5879 (goto-char 53)
5880 (insert "..")
5881 (should
5882 (equal
5883 (test-overlay-regions)
5884 '((5 . 38)
5885 (8 . 97)
5886 (12 . 47)
5887 (37 . 47)
5888 (39 . 52)
5889 (39 . 87)
5890 (39 . 95)
5891 (46 . 90)
5892 (47 . 49)
5893 (47 . 90)
5894 (47 . 99)
5895 (48 . 87))))))
5896
5897(ert-deftest overlay-autogenerated-test-42 nil
5898 (with-temp-buffer
5899 (insert "................................................................")
5900 (make-overlay 20 23 nil nil nil)
5901 (make-overlay 45 51 nil t nil)
5902 (make-overlay 34 58 nil t nil)
5903 (make-overlay 27 11 nil nil nil)
5904 (make-overlay 14 8 nil t t)
5905 (make-overlay 64 43 nil t nil)
5906 (make-overlay 61 56 nil nil t)
5907 (make-overlay 28 14 nil t nil)
5908 (make-overlay 21 46 nil t t)
5909 (make-overlay 30 34 nil t t)
5910 (make-overlay 47 40 nil nil nil)
5911 (make-overlay 5 44 nil t t)
5912 (make-overlay 11 45 nil nil nil)
5913 (make-overlay 65 8 nil nil t)
5914 (make-overlay 47 54 nil t t)
5915 (make-overlay 37 57 nil t nil)
5916 (goto-char 11)
5917 (insert "....")
5918 (goto-char 65)
5919 (delete-char 0)
5920 (goto-char 56)
5921 (delete-char 4)
5922 (goto-char 11)
5923 (delete-char 2)
5924 (goto-char 23)
5925 (insert ".............")
5926 (goto-char 2)
5927 (insert "............")
5928 (goto-char 84)
5929 (delete-char 1)
5930 (goto-char 10)
5931 (insert "..............")
5932 (goto-char 19)
5933 (insert "............")
5934 (goto-char 69)
5935 (delete-char 6)
5936 (goto-char 15)
5937 (insert "........")
5938 (goto-char 104)
5939 (insert "")
5940 (goto-char 94)
5941 (delete-char 11)
5942 (goto-char 66)
5943 (insert ".....")
5944 (goto-char 67)
5945 (insert "")
5946 (goto-char 53)
5947 (delete-char 22)
5948 (goto-char 42)
5949 (insert ".")
5950 (goto-char 38)
5951 (delete-char 13)
5952 (goto-char 27)
5953 (insert "......")
5954 (goto-char 16)
5955 (insert "............")
5956 (goto-char 71)
5957 (widen)
5958 (narrow-to-region 59 15)
5959 (goto-char 46)
5960 (insert "..")
5961 (goto-char 20)
5962 (widen)
5963 (narrow-to-region 95 93)
5964 (goto-char 94)
5965 (insert ".............")
5966 (goto-char 103)
5967 (widen)
5968 (narrow-to-region 97 7)
5969 (goto-char 93)
5970 (insert "....")
5971 (goto-char 85)
5972 (insert "...........")
5973 (goto-char 69)
5974 (delete-char 24)
5975 (goto-char 87)
5976 (insert ".............")
5977 (goto-char 7)
5978 (delete-char 28)
5979 (goto-char 65)
5980 (delete-char 8)
5981 (goto-char 48)
5982 (insert "......")
5983 (should
5984 (equal
5985 (test-overlay-regions)
5986 '((31 . 44)
5987 (33 . 33)
5988 (33 . 41)
5989 (33 . 41)
5990 (33 . 41)
5991 (33 . 41)
5992 (33 . 82)
5993 (40 . 44)
5994 (41 . 41)
5995 (41 . 41)
5996 (41 . 47)
5997 (41 . 48)
5998 (44 . 45)
5999 (44 . 46)
6000 (44 . 63)
6001 (46 . 57))))))
6002
6003(ert-deftest overlay-autogenerated-test-43 nil
6004 (with-temp-buffer
6005 (insert "................................................................")
6006 (make-overlay 8 53 nil t nil)
6007 (make-overlay 11 50 nil t nil)
6008 (make-overlay 1 30 nil nil nil)
6009 (make-overlay 54 15 nil t t)
6010 (make-overlay 22 30 nil nil nil)
6011 (make-overlay 1 33 nil nil nil)
6012 (make-overlay 18 15 nil t nil)
6013 (make-overlay 43 39 nil nil t)
6014 (make-overlay 43 17 nil t nil)
6015 (make-overlay 2 29 nil t nil)
6016 (make-overlay 57 42 nil t nil)
6017 (make-overlay 40 1 nil nil nil)
6018 (make-overlay 8 64 nil nil nil)
6019 (make-overlay 64 15 nil nil nil)
6020 (make-overlay 9 11 nil nil t)
6021 (make-overlay 40 21 nil t nil)
6022 (goto-char 5)
6023 (delete-char 37)
6024 (goto-char 25)
6025 (delete-char 2)
6026 (goto-char 17)
6027 (insert "...........")
6028 (goto-char 19)
6029 (widen)
6030 (narrow-to-region 20 20)
6031 (goto-char 20)
6032 (delete-char 0)
6033 (goto-char 20)
6034 (insert "..........")
6035 (goto-char 24)
6036 (delete-char 5)
6037 (goto-char 24)
6038 (insert "...")
6039 (goto-char 28)
6040 (widen)
6041 (narrow-to-region 20 36)
6042 (goto-char 26)
6043 (delete-char 2)
6044 (goto-char 31)
6045 (insert ".............")
6046 (goto-char 22)
6047 (insert ".....")
6048 (goto-char 38)
6049 (delete-char 0)
6050 (goto-char 31)
6051 (delete-char 4)
6052 (goto-char 27)
6053 (insert "...")
6054 (goto-char 23)
6055 (widen)
6056 (narrow-to-region 37 20)
6057 (goto-char 22)
6058 (insert ".............")
6059 (goto-char 33)
6060 (insert "......")
6061 (goto-char 43)
6062 (insert "............")
6063 (goto-char 59)
6064 (insert ".......")
6065 (goto-char 25)
6066 (delete-char 26)
6067 (goto-char 49)
6068 (insert ".........")
6069 (goto-char 50)
6070 (insert ".......")
6071 (goto-char 39)
6072 (widen)
6073 (narrow-to-region 54 86)
6074 (goto-char 64)
6075 (insert "...............")
6076 (goto-char 83)
6077 (insert "............")
6078 (goto-char 70)
6079 (insert "........")
6080 (goto-char 58)
6081 (insert "..............")
6082 (goto-char 83)
6083 (insert "............")
6084 (goto-char 83)
6085 (insert "..........")
6086 (goto-char 69)
6087 (delete-char 75)
6088 (goto-char 75)
6089 (delete-char 3)
6090 (should
6091 (equal
6092 (test-overlay-regions)
6093 '((5 . 75)
6094 (5 . 75)
6095 (5 . 80)
6096 (5 . 80))))))
6097
6098(ert-deftest overlay-autogenerated-test-44 nil
6099 (with-temp-buffer
6100 (insert "................................................................")
6101 (make-overlay 8 48 nil nil t)
6102 (make-overlay 52 38 nil nil nil)
6103 (make-overlay 3 63 nil nil nil)
6104 (make-overlay 44 15 nil nil t)
6105 (make-overlay 27 44 nil nil t)
6106 (make-overlay 43 9 nil nil t)
6107 (make-overlay 11 27 nil t nil)
6108 (make-overlay 36 41 nil nil t)
6109 (make-overlay 23 25 nil t t)
6110 (make-overlay 19 60 nil t t)
6111 (make-overlay 11 55 nil t nil)
6112 (make-overlay 59 2 nil t nil)
6113 (make-overlay 32 64 nil t nil)
6114 (make-overlay 15 8 nil nil nil)
6115 (make-overlay 61 15 nil nil nil)
6116 (make-overlay 64 30 nil t t)
6117 (goto-char 42)
6118 (delete-char 20)
6119 (goto-char 44)
6120 (delete-char 1)
6121 (goto-char 43)
6122 (insert "...........")
6123 (goto-char 43)
6124 (delete-char 1)
6125 (goto-char 28)
6126 (delete-char 8)
6127 (goto-char 37)
6128 (delete-char 9)
6129 (goto-char 4)
6130 (delete-char 30)
6131 (goto-char 6)
6132 (delete-char 0)
6133 (goto-char 7)
6134 (delete-char 0)
6135 (goto-char 2)
6136 (delete-char 2)
6137 (goto-char 5)
6138 (delete-char 0)
6139 (goto-char 5)
6140 (delete-char 0)
6141 (goto-char 2)
6142 (insert ".....")
6143 (goto-char 10)
6144 (insert "...........")
6145 (goto-char 21)
6146 (insert "...")
6147 (goto-char 10)
6148 (delete-char 13)
6149 (goto-char 9)
6150 (insert "..........")
6151 (goto-char 16)
6152 (delete-char 1)
6153 (goto-char 16)
6154 (delete-char 4)
6155 (goto-char 16)
6156 (delete-char 0)
6157 (goto-char 14)
6158 (delete-char 1)
6159 (goto-char 3)
6160 (widen)
6161 (narrow-to-region 2 9)
6162 (goto-char 2)
6163 (insert "")
6164 (goto-char 2)
6165 (insert ".............")
6166 (goto-char 17)
6167 (insert "....")
6168 (goto-char 12)
6169 (insert "........")
6170 (goto-char 8)
6171 (widen)
6172 (narrow-to-region 32 23)
6173 (goto-char 29)
6174 (insert ".....")
6175 (goto-char 35)
6176 (delete-char 2)
6177 (goto-char 27)
6178 (delete-char 7)
6179 (goto-char 23)
6180 (widen)
6181 (narrow-to-region 4 14)
6182 (goto-char 8)
6183 (insert "...............")
6184 (should
6185 (equal
6186 (test-overlay-regions)
6187 '((2 . 43)
6188 (2 . 43)
6189 (2 . 43)
6190 (2 . 43)
6191 (2 . 43)
6192 (2 . 44))))))
6193
6194(ert-deftest overlay-autogenerated-test-45 nil
6195 (with-temp-buffer
6196 (insert "................................................................")
6197 (make-overlay 15 48 nil nil nil)
6198 (make-overlay 1 47 nil t nil)
6199 (make-overlay 43 4 nil t t)
6200 (make-overlay 9 45 nil t t)
6201 (make-overlay 1 25 nil t t)
6202 (make-overlay 5 46 nil t t)
6203 (make-overlay 7 14 nil t nil)
6204 (make-overlay 1 53 nil nil t)
6205 (make-overlay 13 41 nil t nil)
6206 (make-overlay 5 31 nil t t)
6207 (make-overlay 26 10 nil nil nil)
6208 (make-overlay 56 37 nil nil nil)
6209 (make-overlay 23 15 nil t nil)
6210 (make-overlay 62 30 nil t t)
6211 (make-overlay 2 35 nil t t)
6212 (make-overlay 46 41 nil nil nil)
6213 (goto-char 65)
6214 (delete-char 0)
6215 (goto-char 55)
6216 (insert "...........")
6217 (goto-char 22)
6218 (insert "")
6219 (goto-char 73)
6220 (delete-char 3)
6221 (goto-char 43)
6222 (widen)
6223 (narrow-to-region 54 63)
6224 (goto-char 56)
6225 (insert "......")
6226 (goto-char 61)
6227 (delete-char 3)
6228 (goto-char 65)
6229 (insert "......")
6230 (goto-char 66)
6231 (insert ".....")
6232 (goto-char 62)
6233 (insert ".")
6234 (goto-char 74)
6235 (insert ".........")
6236 (goto-char 76)
6237 (delete-char 4)
6238 (goto-char 56)
6239 (widen)
6240 (narrow-to-region 2 46)
6241 (goto-char 43)
6242 (insert "...........")
6243 (goto-char 20)
6244 (delete-char 4)
6245 (goto-char 38)
6246 (delete-char 7)
6247 (goto-char 25)
6248 (delete-char 21)
6249 (goto-char 12)
6250 (insert ".........")
6251 (goto-char 19)
6252 (widen)
6253 (narrow-to-region 72 61)
6254 (goto-char 63)
6255 (insert "")
6256 (goto-char 65)
6257 (delete-char 4)
6258 (goto-char 61)
6259 (delete-char 5)
6260 (goto-char 63)
6261 (delete-char 0)
6262 (goto-char 63)
6263 (delete-char 0)
6264 (goto-char 62)
6265 (delete-char 0)
6266 (goto-char 61)
6267 (insert "............")
6268 (goto-char 72)
6269 (insert "..............")
6270 (goto-char 62)
6271 (delete-char 7)
6272 (goto-char 71)
6273 (delete-char 5)
6274 (goto-char 75)
6275 (widen)
6276 (narrow-to-region 29 8)
6277 (goto-char 17)
6278 (delete-char 2)
6279 (goto-char 27)
6280 (insert "........")
6281 (should
6282 (equal
6283 (test-overlay-regions)
6284 '((1 . 36)
6285 (1 . 41)
6286 (1 . 47)
6287 (2 . 40)
6288 (4 . 40)
6289 (5 . 40)
6290 (5 . 40)
6291 (7 . 21)
6292 (9 . 40)
6293 (10 . 37)
6294 (20 . 40)
6295 (22 . 27)
6296 (22 . 42))))))
6297
6298(ert-deftest overlay-autogenerated-test-46 nil
6299 (with-temp-buffer
6300 (insert "................................................................")
6301 (make-overlay 2 43 nil nil t)
6302 (make-overlay 44 40 nil nil t)
6303 (make-overlay 49 14 nil nil t)
6304 (make-overlay 6 55 nil nil nil)
6305 (make-overlay 13 52 nil t t)
6306 (make-overlay 40 54 nil t nil)
6307 (make-overlay 51 41 nil nil t)
6308 (make-overlay 7 28 nil nil t)
6309 (make-overlay 10 47 nil nil t)
6310 (make-overlay 63 21 nil t nil)
6311 (make-overlay 4 55 nil nil nil)
6312 (make-overlay 52 58 nil t nil)
6313 (make-overlay 62 11 nil t t)
6314 (make-overlay 22 49 nil t nil)
6315 (make-overlay 23 65 nil nil nil)
6316 (make-overlay 50 33 nil nil t)
6317 (goto-char 22)
6318 (insert "..............")
6319 (goto-char 12)
6320 (insert "....")
6321 (goto-char 25)
6322 (delete-char 16)
6323 (goto-char 14)
6324 (delete-char 53)
6325 (goto-char 2)
6326 (insert "............")
6327 (goto-char 20)
6328 (delete-char 5)
6329 (goto-char 11)
6330 (delete-char 7)
6331 (goto-char 9)
6332 (widen)
6333 (narrow-to-region 11 7)
6334 (goto-char 8)
6335 (insert "...............")
6336 (goto-char 12)
6337 (delete-char 4)
6338 (goto-char 21)
6339 (insert "...")
6340 (goto-char 20)
6341 (delete-char 5)
6342 (goto-char 7)
6343 (delete-char 3)
6344 (goto-char 16)
6345 (delete-char 0)
6346 (goto-char 12)
6347 (delete-char 1)
6348 (goto-char 15)
6349 (delete-char 0)
6350 (goto-char 7)
6351 (insert "..............")
6352 (goto-char 17)
6353 (insert "...........")
6354 (goto-char 15)
6355 (insert "............")
6356 (goto-char 20)
6357 (delete-char 5)
6358 (goto-char 7)
6359 (insert "....")
6360 (goto-char 37)
6361 (delete-char 7)
6362 (goto-char 8)
6363 (insert "..........")
6364 (goto-char 47)
6365 (insert ".............")
6366 (goto-char 65)
6367 (insert ".......")
6368 (goto-char 39)
6369 (delete-char 26)
6370 (goto-char 14)
6371 (delete-char 2)
6372 (goto-char 27)
6373 (insert ".............")
6374 (goto-char 17)
6375 (widen)
6376 (narrow-to-region 54 32)
6377 (goto-char 40)
6378 (widen)
6379 (narrow-to-region 10 3)
6380 (goto-char 7)
6381 (insert "........")
6382 (goto-char 13)
6383 (insert "..............")
6384 (should
6385 (equal
6386 (test-overlay-regions)
6387 '((2 . 85))))))
6388
6389(ert-deftest overlay-autogenerated-test-47 nil
6390 (with-temp-buffer
6391 (insert "................................................................")
6392 (make-overlay 58 62 nil t nil)
6393 (make-overlay 14 38 nil nil nil)
6394 (make-overlay 63 44 nil t t)
6395 (make-overlay 41 41 nil nil t)
6396 (make-overlay 19 39 nil nil nil)
6397 (make-overlay 10 49 nil t t)
6398 (make-overlay 56 38 nil t t)
6399 (make-overlay 23 38 nil nil t)
6400 (make-overlay 1 64 nil nil t)
6401 (make-overlay 21 3 nil t nil)
6402 (make-overlay 1 1 nil nil t)
6403 (make-overlay 27 61 nil nil nil)
6404 (make-overlay 29 59 nil nil nil)
6405 (make-overlay 37 30 nil t nil)
6406 (make-overlay 47 21 nil nil t)
6407 (make-overlay 34 26 nil t nil)
6408 (goto-char 6)
6409 (delete-char 44)
6410 (goto-char 8)
6411 (delete-char 0)
6412 (goto-char 8)
6413 (insert "....")
6414 (goto-char 17)
6415 (delete-char 2)
6416 (goto-char 12)
6417 (insert "...")
6418 (goto-char 20)
6419 (insert "")
6420 (goto-char 2)
6421 (delete-char 20)
6422 (goto-char 1)
6423 (insert ".........")
6424 (goto-char 7)
6425 (insert ".............")
6426 (goto-char 27)
6427 (delete-char 0)
6428 (goto-char 15)
6429 (insert "..........")
6430 (goto-char 36)
6431 (insert "..............")
6432 (goto-char 26)
6433 (insert "..............")
6434 (goto-char 63)
6435 (insert "...........")
6436 (goto-char 9)
6437 (insert "............")
6438 (goto-char 71)
6439 (delete-char 17)
6440 (goto-char 36)
6441 (insert "....")
6442 (goto-char 45)
6443 (delete-char 31)
6444 (goto-char 28)
6445 (delete-char 8)
6446 (goto-char 10)
6447 (delete-char 16)
6448 (goto-char 14)
6449 (delete-char 4)
6450 (goto-char 16)
6451 (delete-char 0)
6452 (goto-char 15)
6453 (insert "")
6454 (goto-char 14)
6455 (delete-char 1)
6456 (goto-char 10)
6457 (delete-char 2)
6458 (goto-char 6)
6459 (delete-char 0)
6460 (goto-char 1)
6461 (insert ".........")
6462 (goto-char 23)
6463 (insert "......")
6464 (goto-char 25)
6465 (insert "..........")
6466 (goto-char 25)
6467 (widen)
6468 (narrow-to-region 10 30)
6469 (goto-char 21)
6470 (delete-char 1)
6471 (goto-char 17)
6472 (insert "..........")
6473 (should
6474 (equal
6475 (test-overlay-regions)
6476 '((1 . 48)
6477 (1 . 48)
6478 (32 . 32)
6479 (32 . 32)
6480 (32 . 32)
6481 (32 . 32)
6482 (32 . 32)
6483 (32 . 32)
6484 (32 . 32)
6485 (32 . 32)
6486 (32 . 48)
6487 (32 . 48)
6488 (32 . 48))))))
6489
6490(ert-deftest overlay-autogenerated-test-48 nil
6491 (with-temp-buffer
6492 (insert "................................................................")
6493 (make-overlay 1 11 nil nil nil)
6494 (make-overlay 35 29 nil t t)
6495 (make-overlay 24 46 nil nil t)
6496 (make-overlay 15 43 nil nil t)
6497 (make-overlay 51 49 nil t t)
6498 (make-overlay 25 43 nil t nil)
6499 (make-overlay 23 59 nil nil nil)
6500 (make-overlay 10 4 nil t nil)
6501 (make-overlay 40 45 nil nil nil)
6502 (make-overlay 42 43 nil nil t)
6503 (make-overlay 20 38 nil t nil)
6504 (make-overlay 17 49 nil nil nil)
6505 (make-overlay 9 25 nil nil t)
6506 (make-overlay 13 19 nil nil nil)
6507 (make-overlay 44 31 nil t nil)
6508 (make-overlay 12 65 nil nil t)
6509 (goto-char 59)
6510 (widen)
6511 (narrow-to-region 28 14)
6512 (goto-char 26)
6513 (insert "...")
6514 (goto-char 30)
6515 (delete-char 1)
6516 (goto-char 23)
6517 (insert "...")
6518 (goto-char 27)
6519 (widen)
6520 (narrow-to-region 45 67)
6521 (goto-char 50)
6522 (insert "...............")
6523 (goto-char 59)
6524 (insert "..............")
6525 (goto-char 55)
6526 (insert ".............")
6527 (goto-char 106)
6528 (delete-char 0)
6529 (goto-char 97)
6530 (delete-char 10)
6531 (goto-char 67)
6532 (delete-char 16)
6533 (goto-char 76)
6534 (insert "..............")
6535 (goto-char 71)
6536 (insert ".............")
6537 (goto-char 110)
6538 (delete-char 0)
6539 (goto-char 56)
6540 (delete-char 38)
6541 (goto-char 61)
6542 (delete-char 10)
6543 (goto-char 56)
6544 (delete-char 5)
6545 (goto-char 49)
6546 (insert ".......")
6547 (goto-char 62)
6548 (insert "...")
6549 (goto-char 54)
6550 (insert "..........")
6551 (goto-char 47)
6552 (delete-char 10)
6553 (goto-char 47)
6554 (delete-char 20)
6555 (goto-char 46)
6556 (insert ".............")
6557 (goto-char 56)
6558 (insert "...........")
6559 (goto-char 70)
6560 (delete-char 1)
6561 (goto-char 62)
6562 (widen)
6563 (narrow-to-region 50 64)
6564 (goto-char 60)
6565 (insert "..")
6566 (goto-char 55)
6567 (delete-char 6)
6568 (goto-char 60)
6569 (insert ".............")
6570 (goto-char 61)
6571 (delete-char 9)
6572 (goto-char 64)
6573 (delete-char 0)
6574 (goto-char 53)
6575 (widen)
6576 (narrow-to-region 15 62)
6577 (should
6578 (equal
6579 (test-overlay-regions)
6580 '((9 . 28)
6581 (12 . 73)
6582 (13 . 19)
6583 (15 . 70)
6584 (17 . 70)
6585 (20 . 43)
6586 (23 . 70)
6587 (27 . 70)
6588 (28 . 70)
6589 (34 . 40)
6590 (36 . 70)
6591 (45 . 70))))))
6592
6593(ert-deftest overlay-autogenerated-test-49 nil
6594 (with-temp-buffer
6595 (insert "................................................................")
6596 (make-overlay 24 10 nil nil t)
6597 (make-overlay 53 23 nil t nil)
6598 (make-overlay 53 9 nil nil t)
6599 (make-overlay 65 64 nil t t)
6600 (make-overlay 48 2 nil nil t)
6601 (make-overlay 12 58 nil nil t)
6602 (make-overlay 64 64 nil nil nil)
6603 (make-overlay 26 13 nil t t)
6604 (make-overlay 46 26 nil nil t)
6605 (make-overlay 28 59 nil t t)
6606 (make-overlay 33 52 nil nil nil)
6607 (make-overlay 39 8 nil t t)
6608 (make-overlay 9 59 nil t t)
6609 (make-overlay 50 45 nil nil t)
6610 (make-overlay 41 53 nil nil t)
6611 (make-overlay 51 51 nil t nil)
6612 (goto-char 61)
6613 (insert "..............")
6614 (goto-char 19)
6615 (widen)
6616 (narrow-to-region 10 65)
6617 (goto-char 65)
6618 (delete-char 0)
6619 (goto-char 11)
6620 (insert "...............")
6621 (goto-char 77)
6622 (delete-char 0)
6623 (goto-char 51)
6624 (insert "...")
6625 (goto-char 75)
6626 (insert ".....")
6627 (goto-char 77)
6628 (delete-char 11)
6629 (goto-char 45)
6630 (delete-char 0)
6631 (goto-char 24)
6632 (widen)
6633 (narrow-to-region 33 52)
6634 (goto-char 46)
6635 (insert "..............")
6636 (goto-char 46)
6637 (insert "..........")
6638 (goto-char 39)
6639 (widen)
6640 (narrow-to-region 46 77)
6641 (goto-char 77)
6642 (insert "..............")
6643 (goto-char 54)
6644 (insert ".......")
6645 (goto-char 87)
6646 (insert ".")
6647 (goto-char 70)
6648 (delete-char 16)
6649 (goto-char 79)
6650 (delete-char 0)
6651 (goto-char 73)
6652 (widen)
6653 (narrow-to-region 74 100)
6654 (goto-char 91)
6655 (insert ".............")
6656 (goto-char 80)
6657 (delete-char 11)
6658 (goto-char 82)
6659 (insert "......")
6660 (goto-char 108)
6661 (delete-char 0)
6662 (goto-char 104)
6663 (insert ".....")
6664 (goto-char 100)
6665 (delete-char 1)
6666 (goto-char 90)
6667 (insert ".............")
6668 (goto-char 99)
6669 (insert ".............")
6670 (goto-char 124)
6671 (insert "..............")
6672 (goto-char 114)
6673 (insert "....")
6674 (goto-char 134)
6675 (delete-char 0)
6676 (goto-char 89)
6677 (delete-char 65)
6678 (goto-char 75)
6679 (delete-char 16)
6680 (should
6681 (equal
6682 (test-overlay-regions)
6683 '((2 . 75)
6684 (8 . 75)
6685 (9 . 76)
6686 (9 . 82)
6687 (27 . 82)
6688 (38 . 76)
6689 (41 . 75)
6690 (43 . 82)
6691 (70 . 75))))))
6692
6693(ert-deftest overlay-autogenerated-test-50 nil
6694 (with-temp-buffer
6695 (insert "................................................................")
6696 (make-overlay 29 53 nil t t)
6697 (make-overlay 65 64 nil nil nil)
6698 (make-overlay 3 31 nil nil t)
6699 (make-overlay 45 59 nil t nil)
6700 (make-overlay 60 37 nil t t)
6701 (make-overlay 7 5 nil t t)
6702 (make-overlay 37 24 nil nil nil)
6703 (make-overlay 45 20 nil nil nil)
6704 (make-overlay 33 42 nil nil t)
6705 (make-overlay 47 57 nil t nil)
6706 (make-overlay 14 49 nil t t)
6707 (make-overlay 14 30 nil t nil)
6708 (make-overlay 21 40 nil t t)
6709 (make-overlay 5 45 nil t t)
6710 (make-overlay 59 40 nil t t)
6711 (make-overlay 37 52 nil nil nil)
6712 (goto-char 48)
6713 (insert "")
6714 (goto-char 7)
6715 (insert ".........")
6716 (goto-char 31)
6717 (insert "...........")
6718 (goto-char 41)
6719 (delete-char 7)
6720 (goto-char 21)
6721 (delete-char 11)
6722 (goto-char 41)
6723 (widen)
6724 (narrow-to-region 51 53)
6725 (goto-char 52)
6726 (insert ".....")
6727 (goto-char 55)
6728 (widen)
6729 (narrow-to-region 18 24)
6730 (goto-char 23)
6731 (widen)
6732 (narrow-to-region 39 38)
6733 (goto-char 38)
6734 (insert ".............")
6735 (goto-char 41)
6736 (insert "......")
6737 (goto-char 38)
6738 (insert "..............")
6739 (goto-char 52)
6740 (insert "...............")
6741 (goto-char 78)
6742 (delete-char 5)
6743 (goto-char 50)
6744 (insert "..........")
6745 (goto-char 50)
6746 (delete-char 3)
6747 (goto-char 85)
6748 (widen)
6749 (narrow-to-region 86 1)
6750 (goto-char 5)
6751 (insert "....")
6752 (goto-char 69)
6753 (insert "...........")
6754 (goto-char 94)
6755 (insert "......")
6756 (goto-char 98)
6757 (delete-char 7)
6758 (goto-char 46)
6759 (insert "...............")
6760 (goto-char 79)
6761 (insert "............")
6762 (goto-char 89)
6763 (insert "")
6764 (goto-char 14)
6765 (delete-char 63)
6766 (goto-char 20)
6767 (insert ".........")
6768 (goto-char 34)
6769 (insert "...")
6770 (goto-char 53)
6771 (delete-char 14)
6772 (goto-char 6)
6773 (widen)
6774 (narrow-to-region 6 52)
6775 (goto-char 42)
6776 (insert "...........")
6777 (goto-char 40)
6778 (insert ".......")
6779 (goto-char 46)
6780 (widen)
6781 (narrow-to-region 1 68)
6782 (should
6783 (equal
6784 (test-overlay-regions)
6785 '((3 . 14)
6786 (9 . 14)
6787 (9 . 91)
6788 (14 . 14)
6789 (14 . 83)
6790 (14 . 86)
6791 (14 . 88)
6792 (14 . 91)
6793 (14 . 95)
6794 (14 . 104))))))
6795
6796(ert-deftest overlay-autogenerated-test-51 nil
6797 (with-temp-buffer
6798 (insert "................................................................")
6799 (make-overlay 14 5 nil t nil)
6800 (make-overlay 62 34 nil nil t)
6801 (make-overlay 7 62 nil nil t)
6802 (make-overlay 23 12 nil t t)
6803 (make-overlay 16 4 nil nil nil)
6804 (make-overlay 24 15 nil nil nil)
6805 (make-overlay 6 6 nil t t)
6806 (make-overlay 25 64 nil t t)
6807 (make-overlay 23 6 nil t t)
6808 (make-overlay 55 64 nil nil nil)
6809 (make-overlay 8 62 nil nil t)
6810 (make-overlay 65 65 nil nil nil)
6811 (make-overlay 57 51 nil t t)
6812 (make-overlay 35 8 nil t nil)
6813 (make-overlay 55 13 nil nil t)
6814 (make-overlay 60 62 nil nil t)
6815 (goto-char 12)
6816 (insert "..")
6817 (goto-char 66)
6818 (insert "............")
6819 (goto-char 32)
6820 (insert "..")
6821 (goto-char 27)
6822 (insert ".........")
6823 (goto-char 8)
6824 (insert ".............")
6825 (goto-char 79)
6826 (insert ".")
6827 (goto-char 47)
6828 (insert "....")
6829 (goto-char 49)
6830 (insert "...")
6831 (goto-char 81)
6832 (insert "....")
6833 (goto-char 112)
6834 (delete-char 0)
6835 (goto-char 97)
6836 (insert ".....")
6837 (goto-char 109)
6838 (delete-char 5)
6839 (goto-char 20)
6840 (insert ".....")
6841 (goto-char 59)
6842 (delete-char 33)
6843 (goto-char 87)
6844 (insert ".............")
6845 (goto-char 98)
6846 (insert "....")
6847 (goto-char 22)
6848 (delete-char 36)
6849 (goto-char 45)
6850 (insert "..............")
6851 (goto-char 42)
6852 (delete-char 29)
6853 (goto-char 51)
6854 (widen)
6855 (narrow-to-region 39 41)
6856 (goto-char 39)
6857 (delete-char 2)
6858 (goto-char 39)
6859 (insert ".............")
6860 (goto-char 51)
6861 (insert "......")
6862 (goto-char 52)
6863 (insert "...............")
6864 (goto-char 56)
6865 (widen)
6866 (narrow-to-region 59 20)
6867 (goto-char 56)
6868 (insert "............")
6869 (goto-char 57)
6870 (insert ".")
6871 (goto-char 37)
6872 (delete-char 12)
6873 (goto-char 39)
6874 (delete-char 11)
6875 (goto-char 38)
6876 (delete-char 8)
6877 (goto-char 36)
6878 (widen)
6879 (narrow-to-region 65 26)
6880 (goto-char 40)
6881 (widen)
6882 (narrow-to-region 27 55)
6883 (should
6884 (equal
6885 (test-overlay-regions)
6886 '((7 . 55)
6887 (8 . 55)
6888 (22 . 29)
6889 (23 . 55)
6890 (23 . 56)
6891 (24 . 31)
6892 (29 . 56)
6893 (37 . 55))))))
6894
6895(ert-deftest overlay-autogenerated-test-52 nil
6896 (with-temp-buffer
6897 (insert "................................................................")
6898 (make-overlay 58 32 nil nil nil)
6899 (make-overlay 44 54 nil nil t)
6900 (make-overlay 27 50 nil nil nil)
6901 (make-overlay 55 35 nil nil t)
6902 (make-overlay 40 46 nil nil t)
6903 (make-overlay 56 63 nil t nil)
6904 (make-overlay 29 48 nil nil nil)
6905 (make-overlay 45 24 nil t nil)
6906 (make-overlay 60 25 nil t nil)
6907 (make-overlay 55 41 nil t nil)
6908 (make-overlay 55 1 nil nil t)
6909 (make-overlay 30 45 nil t t)
6910 (make-overlay 26 19 nil nil t)
6911 (make-overlay 61 5 nil nil nil)
6912 (make-overlay 33 5 nil nil nil)
6913 (make-overlay 42 18 nil t nil)
6914 (goto-char 55)
6915 (insert ".")
6916 (goto-char 49)
6917 (delete-char 12)
6918 (goto-char 41)
6919 (insert "..........")
6920 (goto-char 27)
6921 (insert ".....")
6922 (goto-char 58)
6923 (insert "...........")
6924 (goto-char 24)
6925 (delete-char 23)
6926 (goto-char 47)
6927 (delete-char 9)
6928 (goto-char 4)
6929 (insert "...")
6930 (goto-char 10)
6931 (delete-char 32)
6932 (goto-char 4)
6933 (insert "..............")
6934 (goto-char 29)
6935 (insert "....")
6936 (goto-char 28)
6937 (delete-char 2)
6938 (goto-char 34)
6939 (insert "...........")
6940 (goto-char 9)
6941 (insert "......")
6942 (goto-char 5)
6943 (insert "")
6944 (goto-char 45)
6945 (delete-char 1)
6946 (goto-char 18)
6947 (insert ".........")
6948 (goto-char 36)
6949 (delete-char 5)
6950 (goto-char 15)
6951 (delete-char 27)
6952 (goto-char 15)
6953 (delete-char 10)
6954 (goto-char 16)
6955 (delete-char 2)
6956 (goto-char 16)
6957 (widen)
6958 (narrow-to-region 10 2)
6959 (goto-char 9)
6960 (delete-char 1)
6961 (goto-char 3)
6962 (delete-char 2)
6963 (goto-char 2)
6964 (widen)
6965 (narrow-to-region 9 10)
6966 (goto-char 9)
6967 (insert "...........")
6968 (goto-char 19)
6969 (delete-char 0)
6970 (goto-char 14)
6971 (delete-char 3)
6972 (goto-char 11)
6973 (delete-char 2)
6974 (goto-char 9)
6975 (delete-char 6)
6976 (goto-char 9)
6977 (delete-char 0)
6978 (goto-char 10)
6979 (insert "....")
6980 (should
6981 (equal
6982 (test-overlay-regions)
6983 '((1 . 17))))))
6984
6985(ert-deftest overlay-autogenerated-test-53 nil
6986 (with-temp-buffer
6987 (insert "................................................................")
6988 (make-overlay 10 30 nil nil nil)
6989 (make-overlay 11 57 nil t nil)
6990 (make-overlay 59 56 nil nil t)
6991 (make-overlay 20 37 nil nil t)
6992 (make-overlay 41 29 nil nil nil)
6993 (make-overlay 31 10 nil nil t)
6994 (make-overlay 6 36 nil nil nil)
6995 (make-overlay 12 54 nil nil nil)
6996 (make-overlay 25 26 nil t t)
6997 (make-overlay 21 19 nil nil t)
6998 (make-overlay 1 21 nil nil t)
6999 (make-overlay 48 51 nil nil nil)
7000 (make-overlay 54 55 nil t nil)
7001 (make-overlay 64 48 nil t t)
7002 (make-overlay 56 25 nil nil t)
7003 (make-overlay 12 60 nil t nil)
7004 (goto-char 41)
7005 (delete-char 1)
7006 (goto-char 63)
7007 (insert "")
7008 (goto-char 14)
7009 (delete-char 5)
7010 (goto-char 11)
7011 (insert "..............")
7012 (goto-char 41)
7013 (widen)
7014 (narrow-to-region 12 1)
7015 (goto-char 1)
7016 (delete-char 3)
7017 (goto-char 9)
7018 (delete-char 0)
7019 (goto-char 5)
7020 (insert "..............")
7021 (goto-char 1)
7022 (insert "..........")
7023 (goto-char 29)
7024 (insert "...............")
7025 (goto-char 4)
7026 (insert "..")
7027 (goto-char 31)
7028 (delete-char 15)
7029 (goto-char 31)
7030 (insert "")
7031 (goto-char 27)
7032 (insert "......")
7033 (goto-char 6)
7034 (insert "...")
7035 (goto-char 23)
7036 (widen)
7037 (narrow-to-region 23 47)
7038 (goto-char 37)
7039 (delete-char 2)
7040 (goto-char 35)
7041 (delete-char 5)
7042 (goto-char 38)
7043 (delete-char 2)
7044 (goto-char 30)
7045 (insert ".......")
7046 (goto-char 45)
7047 (widen)
7048 (narrow-to-region 13 2)
7049 (goto-char 9)
7050 (delete-char 1)
7051 (goto-char 3)
7052 (insert ".....")
7053 (goto-char 2)
7054 (insert "...............")
7055 (goto-char 16)
7056 (delete-char 5)
7057 (goto-char 20)
7058 (insert ".....")
7059 (goto-char 26)
7060 (delete-char 0)
7061 (goto-char 26)
7062 (widen)
7063 (narrow-to-region 76 98)
7064 (goto-char 88)
7065 (insert ".........")
7066 (goto-char 92)
7067 (insert ".")
7068 (goto-char 108)
7069 (delete-char 0)
7070 (goto-char 103)
7071 (delete-char 3)
7072 (should
7073 (equal
7074 (test-overlay-regions)
7075 '((1 . 79)
7076 (37 . 103)
7077 (61 . 88)
7078 (61 . 99)
7079 (74 . 121)
7080 (75 . 118)
7081 (75 . 124)
7082 (77 . 79)
7083 (78 . 103)
7084 (83 . 84)
7085 (83 . 120)
7086 (87 . 106))))))
7087
7088(ert-deftest overlay-autogenerated-test-54 nil
7089 (with-temp-buffer
7090 (insert "................................................................")
7091 (make-overlay 58 36 nil t t)
7092 (make-overlay 55 49 nil nil t)
7093 (make-overlay 12 25 nil nil t)
7094 (make-overlay 16 37 nil t t)
7095 (make-overlay 42 25 nil t t)
7096 (make-overlay 8 41 nil t t)
7097 (make-overlay 13 27 nil nil t)
7098 (make-overlay 52 22 nil t nil)
7099 (make-overlay 36 17 nil t nil)
7100 (make-overlay 1 52 nil t nil)
7101 (make-overlay 55 5 nil nil t)
7102 (make-overlay 50 50 nil t nil)
7103 (make-overlay 32 15 nil t nil)
7104 (make-overlay 39 26 nil t nil)
7105 (make-overlay 26 4 nil nil nil)
7106 (make-overlay 38 47 nil t t)
7107 (goto-char 23)
7108 (insert ".")
7109 (goto-char 57)
7110 (delete-char 6)
7111 (goto-char 54)
7112 (insert "..............")
7113 (goto-char 46)
7114 (insert "...............")
7115 (goto-char 29)
7116 (insert ".......")
7117 (goto-char 58)
7118 (delete-char 21)
7119 (goto-char 45)
7120 (delete-char 4)
7121 (goto-char 50)
7122 (delete-char 4)
7123 (goto-char 20)
7124 (insert ".........")
7125 (goto-char 16)
7126 (insert "......")
7127 (goto-char 17)
7128 (insert ".....")
7129 (goto-char 63)
7130 (insert "........")
7131 (goto-char 83)
7132 (insert "....")
7133 (goto-char 73)
7134 (delete-char 8)
7135 (goto-char 69)
7136 (insert "...........")
7137 (goto-char 48)
7138 (widen)
7139 (narrow-to-region 19 31)
7140 (goto-char 22)
7141 (delete-char 3)
7142 (goto-char 23)
7143 (delete-char 5)
7144 (goto-char 20)
7145 (insert "............")
7146 (goto-char 23)
7147 (delete-char 11)
7148 (goto-char 19)
7149 (insert "..........")
7150 (goto-char 23)
7151 (insert "........")
7152 (goto-char 38)
7153 (delete-char 1)
7154 (goto-char 33)
7155 (delete-char 5)
7156 (goto-char 27)
7157 (insert "..........")
7158 (goto-char 35)
7159 (delete-char 8)
7160 (goto-char 35)
7161 (insert ".")
7162 (goto-char 20)
7163 (insert "......")
7164 (goto-char 22)
7165 (delete-char 22)
7166 (goto-char 23)
7167 (delete-char 0)
7168 (goto-char 22)
7169 (widen)
7170 (narrow-to-region 1 41)
7171 (goto-char 13)
7172 (insert ".......")
7173 (should
7174 (equal
7175 (test-overlay-regions)
7176 '((1 . 83)
7177 (4 . 46)
7178 (5 . 97)
7179 (8 . 83)
7180 (12 . 45)
7181 (13 . 47)
7182 (22 . 59)
7183 (30 . 82)
7184 (30 . 83)
7185 (41 . 83)
7186 (45 . 83)
7187 (46 . 83))))))
7188
7189(ert-deftest overlay-autogenerated-test-55 nil
7190 (with-temp-buffer
7191 (insert "................................................................")
7192 (make-overlay 58 20 nil nil nil)
7193 (make-overlay 60 33 nil t nil)
7194 (make-overlay 6 27 nil nil nil)
7195 (make-overlay 53 31 nil nil t)
7196 (make-overlay 30 55 nil t t)
7197 (make-overlay 4 64 nil t t)
7198 (make-overlay 51 31 nil nil t)
7199 (make-overlay 4 65 nil t t)
7200 (make-overlay 57 62 nil t t)
7201 (make-overlay 28 7 nil nil t)
7202 (make-overlay 61 48 nil t nil)
7203 (make-overlay 23 54 nil nil t)
7204 (make-overlay 47 49 nil nil nil)
7205 (make-overlay 12 52 nil t nil)
7206 (make-overlay 39 57 nil t t)
7207 (make-overlay 28 61 nil nil t)
7208 (goto-char 8)
7209 (insert "..............")
7210 (goto-char 63)
7211 (delete-char 3)
7212 (goto-char 67)
7213 (delete-char 6)
7214 (goto-char 3)
7215 (widen)
7216 (narrow-to-region 10 67)
7217 (goto-char 43)
7218 (insert ".............")
7219 (goto-char 20)
7220 (insert "...............")
7221 (goto-char 18)
7222 (insert "..")
7223 (goto-char 37)
7224 (delete-char 47)
7225 (goto-char 34)
7226 (insert "..............")
7227 (goto-char 31)
7228 (delete-char 2)
7229 (goto-char 16)
7230 (widen)
7231 (narrow-to-region 29 36)
7232 (goto-char 31)
7233 (delete-char 2)
7234 (goto-char 31)
7235 (insert ".......")
7236 (goto-char 40)
7237 (delete-char 0)
7238 (goto-char 32)
7239 (widen)
7240 (narrow-to-region 40 19)
7241 (goto-char 40)
7242 (insert "..")
7243 (goto-char 37)
7244 (delete-char 0)
7245 (goto-char 40)
7246 (delete-char 1)
7247 (goto-char 34)
7248 (delete-char 4)
7249 (goto-char 33)
7250 (insert "..............")
7251 (goto-char 19)
7252 (widen)
7253 (narrow-to-region 78 70)
7254 (goto-char 77)
7255 (insert ".........")
7256 (goto-char 80)
7257 (delete-char 1)
7258 (goto-char 73)
7259 (delete-char 3)
7260 (goto-char 70)
7261 (insert ".........")
7262 (goto-char 75)
7263 (delete-char 10)
7264 (goto-char 74)
7265 (delete-char 3)
7266 (goto-char 73)
7267 (insert "...............")
7268 (goto-char 90)
7269 (insert "......")
7270 (goto-char 94)
7271 (insert "..............")
7272 (goto-char 101)
7273 (insert "........")
7274 (goto-char 111)
7275 (insert "........")
7276 (should
7277 (equal
7278 (test-overlay-regions)
7279 '((4 . 132)
7280 (4 . 133)
7281 (65 . 89)
7282 (65 . 89)
7283 (65 . 89)
7284 (65 . 89)
7285 (65 . 129)
7286 (65 . 130)
7287 (65 . 130)
7288 (65 . 130)
7289 (65 . 130)
7290 (89 . 89)
7291 (89 . 130))))))
7292
7293(ert-deftest overlay-autogenerated-test-56 nil
7294 (with-temp-buffer
7295 (insert "................................................................")
7296 (make-overlay 7 14 nil nil t)
7297 (make-overlay 10 10 nil nil t)
7298 (make-overlay 21 23 nil nil t)
7299 (make-overlay 4 44 nil t nil)
7300 (make-overlay 42 16 nil t t)
7301 (make-overlay 1 57 nil t nil)
7302 (make-overlay 15 27 nil nil nil)
7303 (make-overlay 31 1 nil t nil)
7304 (make-overlay 56 45 nil t t)
7305 (make-overlay 46 19 nil t nil)
7306 (make-overlay 15 6 nil nil nil)
7307 (make-overlay 31 26 nil nil t)
7308 (make-overlay 39 41 nil t t)
7309 (make-overlay 52 48 nil nil t)
7310 (make-overlay 44 2 nil t nil)
7311 (make-overlay 60 7 nil nil t)
7312 (goto-char 49)
7313 (delete-char 11)
7314 (goto-char 43)
7315 (delete-char 9)
7316 (goto-char 42)
7317 (delete-char 2)
7318 (goto-char 12)
7319 (insert "...........")
7320 (goto-char 36)
7321 (insert ".........")
7322 (goto-char 1)
7323 (insert "......")
7324 (goto-char 67)
7325 (delete-char 0)
7326 (goto-char 47)
7327 (insert ".............")
7328 (goto-char 57)
7329 (insert "........")
7330 (goto-char 22)
7331 (widen)
7332 (narrow-to-region 75 33)
7333 (goto-char 41)
7334 (delete-char 28)
7335 (goto-char 43)
7336 (delete-char 0)
7337 (goto-char 33)
7338 (delete-char 5)
7339 (goto-char 38)
7340 (insert "..")
7341 (goto-char 42)
7342 (delete-char 0)
7343 (goto-char 38)
7344 (delete-char 0)
7345 (goto-char 38)
7346 (insert "............")
7347 (goto-char 51)
7348 (insert ".......")
7349 (goto-char 48)
7350 (insert "..")
7351 (goto-char 55)
7352 (insert ".")
7353 (goto-char 33)
7354 (delete-char 8)
7355 (goto-char 42)
7356 (insert "..")
7357 (goto-char 45)
7358 (insert "..")
7359 (goto-char 59)
7360 (insert ".............")
7361 (goto-char 53)
7362 (insert ".......")
7363 (goto-char 81)
7364 (delete-char 0)
7365 (goto-char 44)
7366 (delete-char 36)
7367 (goto-char 38)
7368 (delete-char 8)
7369 (goto-char 33)
7370 (insert ".............")
7371 (goto-char 41)
7372 (insert "..............")
7373 (goto-char 65)
7374 (insert "...............")
7375 (goto-char 61)
7376 (insert "...")
7377 (should
7378 (equal
7379 (test-overlay-regions)
7380 '((7 . 86)
7381 (7 . 97)
7382 (8 . 97)
7383 (10 . 97)
7384 (13 . 97)
7385 (32 . 68)
7386 (33 . 60)
7387 (60 . 97)
7388 (60 . 97)
7389 (68 . 86))))))
7390
7391(ert-deftest overlay-autogenerated-test-57 nil
7392 (with-temp-buffer
7393 (insert "................................................................")
7394 (make-overlay 52 31 nil t nil)
7395 (make-overlay 39 17 nil t nil)
7396 (make-overlay 19 20 nil t t)
7397 (make-overlay 18 3 nil nil t)
7398 (make-overlay 19 47 nil nil t)
7399 (make-overlay 38 54 nil nil nil)
7400 (make-overlay 30 51 nil nil t)
7401 (make-overlay 29 60 nil t t)
7402 (make-overlay 57 38 nil nil nil)
7403 (make-overlay 13 41 nil t nil)
7404 (make-overlay 9 44 nil t nil)
7405 (make-overlay 30 55 nil t nil)
7406 (make-overlay 33 10 nil nil nil)
7407 (make-overlay 14 35 nil nil t)
7408 (make-overlay 53 50 nil t nil)
7409 (make-overlay 25 28 nil nil t)
7410 (goto-char 40)
7411 (insert "..")
7412 (goto-char 64)
7413 (insert "........")
7414 (goto-char 47)
7415 (insert "............")
7416 (goto-char 65)
7417 (delete-char 0)
7418 (goto-char 86)
7419 (delete-char 1)
7420 (goto-char 59)
7421 (delete-char 11)
7422 (goto-char 64)
7423 (delete-char 8)
7424 (goto-char 53)
7425 (delete-char 0)
7426 (goto-char 28)
7427 (delete-char 8)
7428 (goto-char 6)
7429 (delete-char 33)
7430 (goto-char 14)
7431 (delete-char 2)
7432 (goto-char 2)
7433 (delete-char 10)
7434 (goto-char 3)
7435 (insert "..")
7436 (goto-char 5)
7437 (insert ".........")
7438 (goto-char 1)
7439 (insert "........")
7440 (goto-char 10)
7441 (delete-char 4)
7442 (goto-char 26)
7443 (insert "........")
7444 (goto-char 23)
7445 (insert "....")
7446 (goto-char 1)
7447 (widen)
7448 (narrow-to-region 15 23)
7449 (goto-char 19)
7450 (insert "...")
7451 (goto-char 24)
7452 (delete-char 0)
7453 (goto-char 19)
7454 (insert ".......")
7455 (goto-char 18)
7456 (insert "..")
7457 (goto-char 33)
7458 (insert "...")
7459 (goto-char 32)
7460 (insert "...............")
7461 (goto-char 29)
7462 (delete-char 10)
7463 (goto-char 29)
7464 (insert "..........")
7465 (goto-char 50)
7466 (insert "")
7467 (goto-char 16)
7468 (insert ".........")
7469 (goto-char 52)
7470 (widen)
7471 (narrow-to-region 59 15)
7472 (goto-char 35)
7473 (delete-char 4)
7474 (goto-char 18)
7475 (insert "....")
7476 (should
7477 (equal
7478 (test-overlay-regions)
7479 '((10 . 57)
7480 (10 . 57)
7481 (10 . 57)
7482 (10 . 60)
7483 (10 . 60)
7484 (10 . 61)
7485 (10 . 68)
7486 (57 . 57))))))
7487
7488(ert-deftest overlay-autogenerated-test-58 nil
7489 (with-temp-buffer
7490 (insert "................................................................")
7491 (make-overlay 8 16 nil t nil)
7492 (make-overlay 57 27 nil nil nil)
7493 (make-overlay 15 62 nil nil nil)
7494 (make-overlay 32 33 nil nil t)
7495 (make-overlay 47 27 nil nil t)
7496 (make-overlay 41 4 nil nil t)
7497 (make-overlay 57 61 nil t nil)
7498 (make-overlay 18 43 nil nil t)
7499 (make-overlay 64 51 nil t t)
7500 (make-overlay 44 26 nil nil nil)
7501 (make-overlay 9 13 nil nil t)
7502 (make-overlay 41 65 nil nil t)
7503 (make-overlay 23 13 nil t t)
7504 (make-overlay 26 59 nil t t)
7505 (make-overlay 65 65 nil t t)
7506 (make-overlay 15 7 nil nil nil)
7507 (goto-char 41)
7508 (insert "........")
7509 (goto-char 35)
7510 (delete-char 14)
7511 (goto-char 32)
7512 (widen)
7513 (narrow-to-region 23 46)
7514 (goto-char 41)
7515 (delete-char 5)
7516 (goto-char 29)
7517 (delete-char 10)
7518 (goto-char 31)
7519 (insert ".")
7520 (goto-char 29)
7521 (insert "........")
7522 (goto-char 27)
7523 (delete-char 7)
7524 (goto-char 29)
7525 (insert "")
7526 (goto-char 24)
7527 (insert "............")
7528 (goto-char 43)
7529 (delete-char 1)
7530 (goto-char 31)
7531 (delete-char 9)
7532 (goto-char 34)
7533 (widen)
7534 (narrow-to-region 20 14)
7535 (goto-char 20)
7536 (delete-char 0)
7537 (goto-char 17)
7538 (insert "...........")
7539 (goto-char 31)
7540 (delete-char 0)
7541 (goto-char 16)
7542 (insert "...........")
7543 (goto-char 17)
7544 (delete-char 8)
7545 (goto-char 23)
7546 (delete-char 5)
7547 (goto-char 20)
7548 (insert "..........")
7549 (goto-char 33)
7550 (widen)
7551 (narrow-to-region 16 29)
7552 (goto-char 24)
7553 (insert "...............")
7554 (goto-char 44)
7555 (delete-char 0)
7556 (goto-char 30)
7557 (insert "....")
7558 (goto-char 27)
7559 (widen)
7560 (narrow-to-region 4 22)
7561 (goto-char 10)
7562 (insert "..............")
7563 (goto-char 36)
7564 (insert "..")
7565 (goto-char 10)
7566 (delete-char 21)
7567 (goto-char 14)
7568 (delete-char 1)
7569 (goto-char 14)
7570 (insert "...........")
7571 (goto-char 12)
7572 (insert "........")
7573 (goto-char 32)
7574 (insert "........")
7575 (should
7576 (equal
7577 (test-overlay-regions)
7578 '((4 . 92)
7579 (7 . 10)
7580 (8 . 10)
7581 (9 . 10)
7582 (10 . 82)
7583 (10 . 104))))))
7584
7585(ert-deftest overlay-autogenerated-test-59 nil
7586 (with-temp-buffer
7587 (insert "................................................................")
7588 (make-overlay 46 30 nil t t)
7589 (make-overlay 3 26 nil nil nil)
7590 (make-overlay 36 28 nil t t)
7591 (make-overlay 49 49 nil t t)
7592 (make-overlay 27 61 nil t nil)
7593 (make-overlay 14 16 nil nil nil)
7594 (make-overlay 50 61 nil t nil)
7595 (make-overlay 59 63 nil nil nil)
7596 (make-overlay 36 34 nil t nil)
7597 (make-overlay 35 29 nil nil nil)
7598 (make-overlay 5 65 nil nil nil)
7599 (make-overlay 20 61 nil nil t)
7600 (make-overlay 10 42 nil nil nil)
7601 (make-overlay 47 49 nil nil t)
7602 (make-overlay 12 4 nil nil nil)
7603 (make-overlay 32 24 nil t t)
7604 (goto-char 11)
7605 (insert ".")
7606 (goto-char 32)
7607 (delete-char 2)
7608 (goto-char 61)
7609 (insert ".........")
7610 (goto-char 36)
7611 (insert "........")
7612 (goto-char 55)
7613 (widen)
7614 (narrow-to-region 8 55)
7615 (goto-char 21)
7616 (insert "....")
7617 (goto-char 32)
7618 (delete-char 15)
7619 (goto-char 30)
7620 (delete-char 5)
7621 (goto-char 31)
7622 (insert "......")
7623 (goto-char 18)
7624 (insert "..")
7625 (goto-char 14)
7626 (insert ".............")
7627 (goto-char 34)
7628 (insert "............")
7629 (goto-char 51)
7630 (widen)
7631 (narrow-to-region 58 31)
7632 (goto-char 50)
7633 (delete-char 5)
7634 (goto-char 53)
7635 (insert ".........")
7636 (goto-char 56)
7637 (insert "...............")
7638 (goto-char 45)
7639 (delete-char 1)
7640 (goto-char 67)
7641 (insert "............")
7642 (goto-char 84)
7643 (insert "")
7644 (goto-char 39)
7645 (delete-char 27)
7646 (goto-char 39)
7647 (delete-char 21)
7648 (goto-char 32)
7649 (insert "............")
7650 (goto-char 36)
7651 (widen)
7652 (narrow-to-region 7 37)
7653 (goto-char 11)
7654 (insert ".......")
7655 (goto-char 21)
7656 (delete-char 13)
7657 (goto-char 15)
7658 (insert "....")
7659 (goto-char 9)
7660 (insert ".............")
7661 (goto-char 13)
7662 (delete-char 21)
7663 (goto-char 21)
7664 (delete-char 6)
7665 (goto-char 16)
7666 (insert ".......")
7667 (goto-char 22)
7668 (insert "")
7669 (goto-char 27)
7670 (delete-char 0)
7671 (should
7672 (equal
7673 (test-overlay-regions)
7674 '((3 . 42)
7675 (4 . 16)
7676 (5 . 83)
7677 (13 . 51)
7678 (25 . 27))))))
7679
7680(ert-deftest overlay-autogenerated-test-60 nil
7681 (with-temp-buffer
7682 (insert "................................................................")
7683 (make-overlay 38 32 nil t nil)
7684 (make-overlay 32 42 nil t nil)
7685 (make-overlay 29 11 nil nil t)
7686 (make-overlay 52 22 nil t t)
7687 (make-overlay 39 59 nil t nil)
7688 (make-overlay 41 30 nil t t)
7689 (make-overlay 29 61 nil nil t)
7690 (make-overlay 11 45 nil nil nil)
7691 (make-overlay 46 17 nil nil t)
7692 (make-overlay 35 51 nil t t)
7693 (make-overlay 22 13 nil nil t)
7694 (make-overlay 52 34 nil nil t)
7695 (make-overlay 59 4 nil nil t)
7696 (make-overlay 8 22 nil nil nil)
7697 (make-overlay 4 49 nil nil nil)
7698 (make-overlay 52 45 nil t t)
7699 (goto-char 48)
7700 (delete-char 16)
7701 (goto-char 37)
7702 (delete-char 8)
7703 (goto-char 14)
7704 (insert "...............")
7705 (goto-char 40)
7706 (delete-char 16)
7707 (goto-char 19)
7708 (insert ".........")
7709 (goto-char 16)
7710 (insert "......")
7711 (goto-char 10)
7712 (insert "........")
7713 (goto-char 11)
7714 (insert "...............")
7715 (goto-char 22)
7716 (insert ".")
7717 (goto-char 62)
7718 (delete-char 16)
7719 (goto-char 14)
7720 (delete-char 11)
7721 (goto-char 47)
7722 (insert "....")
7723 (goto-char 33)
7724 (insert ".............")
7725 (goto-char 49)
7726 (delete-char 13)
7727 (goto-char 28)
7728 (insert "..")
7729 (goto-char 35)
7730 (delete-char 13)
7731 (goto-char 44)
7732 (insert "....")
7733 (goto-char 34)
7734 (delete-char 14)
7735 (goto-char 23)
7736 (insert ".....")
7737 (goto-char 25)
7738 (delete-char 4)
7739 (goto-char 33)
7740 (insert ".....")
7741 (goto-char 27)
7742 (delete-char 3)
7743 (goto-char 16)
7744 (widen)
7745 (narrow-to-region 36 37)
7746 (goto-char 36)
7747 (delete-char 1)
7748 (goto-char 36)
7749 (insert ".......")
7750 (goto-char 37)
7751 (widen)
7752 (narrow-to-region 35 31)
7753 (goto-char 34)
7754 (delete-char 0)
7755 (goto-char 31)
7756 (delete-char 2)
7757 (goto-char 31)
7758 (widen)
7759 (narrow-to-region 24 3)
7760 (goto-char 22)
7761 (delete-char 2)
7762 (goto-char 22)
7763 (insert ".............")
7764 (goto-char 4)
7765 (insert ".")
7766 (should
7767 (equal
7768 (test-overlay-regions)
7769 '((4 . 54)
7770 (4 . 54)
7771 (9 . 46))))))
7772
7773(ert-deftest overlay-autogenerated-test-61 nil
7774 (with-temp-buffer
7775 (insert "................................................................")
7776 (make-overlay 45 56 nil t nil)
7777 (make-overlay 60 45 nil nil nil)
7778 (make-overlay 26 8 nil t t)
7779 (make-overlay 63 39 nil nil nil)
7780 (make-overlay 18 11 nil t nil)
7781 (make-overlay 22 64 nil nil t)
7782 (make-overlay 8 41 nil nil t)
7783 (make-overlay 6 51 nil t t)
7784 (make-overlay 38 26 nil t t)
7785 (make-overlay 7 46 nil t nil)
7786 (make-overlay 2 42 nil nil t)
7787 (make-overlay 44 64 nil nil nil)
7788 (make-overlay 7 62 nil t nil)
7789 (make-overlay 8 40 nil nil t)
7790 (make-overlay 62 36 nil t t)
7791 (make-overlay 61 27 nil nil nil)
7792 (goto-char 21)
7793 (delete-char 0)
7794 (goto-char 8)
7795 (insert "")
7796 (goto-char 55)
7797 (insert "......")
7798 (goto-char 38)
7799 (delete-char 25)
7800 (goto-char 37)
7801 (delete-char 4)
7802 (goto-char 12)
7803 (delete-char 4)
7804 (goto-char 3)
7805 (delete-char 26)
7806 (goto-char 10)
7807 (insert ".......")
7808 (goto-char 18)
7809 (delete-char 0)
7810 (goto-char 16)
7811 (insert ".............")
7812 (goto-char 18)
7813 (delete-char 3)
7814 (goto-char 7)
7815 (insert "...")
7816 (goto-char 20)
7817 (insert "........")
7818 (goto-char 38)
7819 (delete-char 0)
7820 (goto-char 1)
7821 (delete-char 36)
7822 (goto-char 3)
7823 (delete-char 1)
7824 (goto-char 2)
7825 (insert "......")
7826 (goto-char 4)
7827 (insert ".......")
7828 (goto-char 2)
7829 (insert "...........")
7830 (goto-char 27)
7831 (insert ".....")
7832 (goto-char 15)
7833 (insert "...............")
7834 (goto-char 2)
7835 (insert "......")
7836 (goto-char 17)
7837 (delete-char 8)
7838 (goto-char 15)
7839 (delete-char 7)
7840 (goto-char 33)
7841 (delete-char 5)
7842 (goto-char 13)
7843 (insert "...........")
7844 (goto-char 34)
7845 (insert "...............")
7846 (goto-char 33)
7847 (insert "")
7848 (goto-char 51)
7849 (insert "....")
7850 (goto-char 14)
7851 (delete-char 36)
7852 (goto-char 16)
7853 (delete-char 1)
7854 (goto-char 14)
7855 (delete-char 8)
7856 (should
7857 (equal
7858 (test-overlay-regions)
7859 '((1 . 1)
7860 (1 . 1)
7861 (1 . 1)
7862 (1 . 1)
7863 (1 . 1)
7864 (1 . 1)
7865 (1 . 1)
7866 (1 . 1)
7867 (1 . 1)
7868 (1 . 1)
7869 (1 . 1)
7870 (1 . 1)
7871 (1 . 1)
7872 (1 . 1)
7873 (1 . 18)
7874 (1 . 18))))))
7875
7876(ert-deftest overlay-autogenerated-test-62 nil
7877 (with-temp-buffer
7878 (insert "................................................................")
7879 (make-overlay 25 36 nil t nil)
7880 (make-overlay 38 6 nil t nil)
7881 (make-overlay 40 63 nil nil t)
7882 (make-overlay 34 23 nil nil nil)
7883 (make-overlay 48 46 nil nil nil)
7884 (make-overlay 43 57 nil t t)
7885 (make-overlay 6 53 nil t t)
7886 (make-overlay 37 27 nil t t)
7887 (make-overlay 8 39 nil t nil)
7888 (make-overlay 62 6 nil nil nil)
7889 (make-overlay 51 6 nil t t)
7890 (make-overlay 58 11 nil nil t)
7891 (make-overlay 19 25 nil t nil)
7892 (make-overlay 13 8 nil nil nil)
7893 (make-overlay 19 8 nil nil t)
7894 (make-overlay 39 5 nil t t)
7895 (goto-char 51)
7896 (delete-char 5)
7897 (goto-char 16)
7898 (delete-char 9)
7899 (goto-char 18)
7900 (insert "")
7901 (goto-char 47)
7902 (delete-char 4)
7903 (goto-char 24)
7904 (insert ".........")
7905 (goto-char 24)
7906 (insert ".....")
7907 (goto-char 18)
7908 (insert "...........")
7909 (goto-char 5)
7910 (delete-char 6)
7911 (goto-char 30)
7912 (insert "...........")
7913 (goto-char 8)
7914 (insert ".............")
7915 (goto-char 78)
7916 (insert "............")
7917 (goto-char 67)
7918 (insert "")
7919 (goto-char 58)
7920 (insert "")
7921 (goto-char 5)
7922 (insert ".")
7923 (goto-char 79)
7924 (widen)
7925 (narrow-to-region 51 55)
7926 (goto-char 51)
7927 (insert "....")
7928 (goto-char 58)
7929 (widen)
7930 (narrow-to-region 36 37)
7931 (goto-char 37)
7932 (insert "....")
7933 (goto-char 40)
7934 (insert ".......")
7935 (goto-char 47)
7936 (delete-char 1)
7937 (goto-char 43)
7938 (delete-char 4)
7939 (goto-char 37)
7940 (insert "........")
7941 (goto-char 49)
7942 (insert "............")
7943 (goto-char 42)
7944 (widen)
7945 (narrow-to-region 75 111)
7946 (goto-char 104)
7947 (widen)
7948 (narrow-to-region 21 95)
7949 (goto-char 22)
7950 (widen)
7951 (narrow-to-region 64 79)
7952 (goto-char 64)
7953 (delete-char 0)
7954 (goto-char 68)
7955 (insert "........")
7956 (goto-char 82)
7957 (insert "")
7958 (goto-char 81)
7959 (insert "........")
7960 (goto-char 92)
7961 (delete-char 2)
7962 (goto-char 87)
7963 (insert ".")
7964 (should
7965 (equal
7966 (test-overlay-regions)
7967 '((5 . 145)
7968 (5 . 148)
7969 (6 . 118)
7970 (6 . 119)
7971 (6 . 119)
7972 (6 . 143)
7973 (6 . 143)
7974 (24 . 114)
7975 (24 . 116)
7976 (63 . 117))))))
7977
7978(ert-deftest overlay-autogenerated-test-63 nil
7979 (with-temp-buffer
7980 (insert "................................................................")
7981 (make-overlay 9 49 nil t nil)
7982 (make-overlay 9 16 nil nil nil)
7983 (make-overlay 64 2 nil t t)
7984 (make-overlay 17 31 nil nil t)
7985 (make-overlay 24 51 nil nil nil)
7986 (make-overlay 27 56 nil t t)
7987 (make-overlay 21 4 nil nil nil)
7988 (make-overlay 24 29 nil t t)
7989 (make-overlay 4 63 nil nil t)
7990 (make-overlay 34 49 nil t nil)
7991 (make-overlay 19 47 nil nil t)
7992 (make-overlay 8 50 nil t nil)
7993 (make-overlay 49 61 nil t nil)
7994 (make-overlay 52 10 nil t t)
7995 (make-overlay 64 30 nil t nil)
7996 (make-overlay 5 13 nil t nil)
7997 (goto-char 27)
7998 (insert "........")
7999 (goto-char 42)
8000 (insert "......")
8001 (goto-char 48)
8002 (insert "....")
8003 (goto-char 55)
8004 (widen)
8005 (narrow-to-region 10 5)
8006 (goto-char 8)
8007 (insert ".............")
8008 (goto-char 19)
8009 (insert "......")
8010 (goto-char 19)
8011 (delete-char 3)
8012 (goto-char 8)
8013 (delete-char 3)
8014 (goto-char 9)
8015 (insert ".......")
8016 (goto-char 29)
8017 (insert "...............")
8018 (goto-char 38)
8019 (insert ".......")
8020 (goto-char 34)
8021 (insert "......")
8022 (goto-char 28)
8023 (delete-char 20)
8024 (goto-char 22)
8025 (insert "............")
8026 (goto-char 21)
8027 (delete-char 23)
8028 (goto-char 25)
8029 (delete-char 2)
8030 (goto-char 19)
8031 (delete-char 2)
8032 (goto-char 12)
8033 (delete-char 6)
8034 (goto-char 12)
8035 (delete-char 0)
8036 (goto-char 13)
8037 (delete-char 0)
8038 (goto-char 12)
8039 (insert "........")
8040 (goto-char 23)
8041 (delete-char 2)
8042 (goto-char 5)
8043 (insert "...............")
8044 (goto-char 28)
8045 (delete-char 0)
8046 (goto-char 16)
8047 (insert "..........")
8048 (goto-char 8)
8049 (delete-char 17)
8050 (goto-char 27)
8051 (delete-char 0)
8052 (goto-char 12)
8053 (insert ".")
8054 (goto-char 14)
8055 (delete-char 12)
8056 (goto-char 11)
8057 (insert "..............")
8058 (goto-char 34)
8059 (insert "")
8060 (goto-char 25)
8061 (delete-char 8)
8062 (should
8063 (equal
8064 (test-overlay-regions)
8065 '((2 . 98)
8066 (4 . 37)
8067 (4 . 97)
8068 (25 . 29)
8069 (25 . 32)
8070 (25 . 84))))))
8071
8072(ert-deftest overlay-autogenerated-test-64 nil
8073 (with-temp-buffer
8074 (insert "................................................................")
8075 (make-overlay 31 10 nil nil nil)
8076 (make-overlay 17 58 nil nil t)
8077 (make-overlay 20 21 nil t nil)
8078 (make-overlay 3 47 nil t t)
8079 (make-overlay 47 43 nil t t)
8080 (make-overlay 54 8 nil nil t)
8081 (make-overlay 51 26 nil t nil)
8082 (make-overlay 60 14 nil t nil)
8083 (make-overlay 38 6 nil nil t)
8084 (make-overlay 41 9 nil nil nil)
8085 (make-overlay 44 38 nil nil t)
8086 (make-overlay 55 48 nil nil t)
8087 (make-overlay 10 41 nil nil t)
8088 (make-overlay 35 49 nil t nil)
8089 (make-overlay 50 46 nil nil nil)
8090 (make-overlay 28 28 nil t nil)
8091 (goto-char 59)
8092 (delete-char 3)
8093 (goto-char 28)
8094 (widen)
8095 (narrow-to-region 13 7)
8096 (goto-char 11)
8097 (insert ".")
8098 (goto-char 9)
8099 (delete-char 3)
8100 (goto-char 8)
8101 (delete-char 0)
8102 (goto-char 7)
8103 (insert ".............")
8104 (goto-char 9)
8105 (insert "..........")
8106 (goto-char 22)
8107 (delete-char 1)
8108 (goto-char 31)
8109 (delete-char 2)
8110 (goto-char 22)
8111 (insert ".........")
8112 (goto-char 33)
8113 (delete-char 1)
8114 (goto-char 29)
8115 (widen)
8116 (narrow-to-region 59 51)
8117 (goto-char 52)
8118 (insert ".........")
8119 (goto-char 53)
8120 (insert "........")
8121 (goto-char 53)
8122 (delete-char 4)
8123 (goto-char 54)
8124 (insert "........")
8125 (goto-char 53)
8126 (insert "....")
8127 (goto-char 75)
8128 (widen)
8129 (goto-char 70)
8130 (delete-char 2)
8131 (goto-char 108)
8132 (delete-char 1)
8133 (goto-char 80)
8134 (widen)
8135 (goto-char 70)
8136 (widen)
8137 (narrow-to-region 49 63)
8138 (goto-char 49)
8139 (insert "...")
8140 (goto-char 66)
8141 (delete-char 0)
8142 (goto-char 63)
8143 (delete-char 3)
8144 (goto-char 59)
8145 (insert "..........")
8146 (goto-char 56)
8147 (delete-char 6)
8148 (goto-char 60)
8149 (insert ".........")
8150 (goto-char 62)
8151 (widen)
8152 (goto-char 58)
8153 (insert ".............")
8154 (goto-char 105)
8155 (widen)
8156 (narrow-to-region 94 109)
8157 (goto-char 103)
8158 (insert "............")
8159 (should
8160 (equal
8161 (test-overlay-regions)
8162 '((3 . 134)
8163 (6 . 125)
8164 (38 . 141)
8165 (39 . 118)
8166 (39 . 128)
8167 (39 . 128)
8168 (40 . 146)
8169 (43 . 145)
8170 (101 . 138)
8171 (103 . 103))))))
8172
8173) ;; End of `when nil' for autogenerated insert/delete/narrow tests.
8174
1510(ert-deftest buffer-multibyte-overlong-sequences () 8175(ert-deftest buffer-multibyte-overlong-sequences ()
1511 (dolist (uni '("\xE0\x80\x80" 8176 (dolist (uni '("\xE0\x80\x80"
1512 "\xF0\x80\x80\x80" 8177 "\xF0\x80\x80\x80"