]> code.delx.au - gnu-emacs/blobdiff - test/redisplay-testsuite.el
; * test/automated/viper-tests.el: Standardize license notice.
[gnu-emacs] / test / redisplay-testsuite.el
index a5ec1e89eaf14973574f98b94ca4acae807055fe..37a5649dc1b6285c9963301a18718c58f7950f9a 100644 (file)
@@ -1,6 +1,6 @@
 ;;; redisplay-testsuite.el --- Test suite for redisplay.
 
-;; Copyright (C) 2009-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2016 Free Software Foundation, Inc.
 
 ;; Author: Chong Yidong <cyd@stupidchicken.com>
 ;; Keywords:       internal
@@ -263,14 +263,6 @@ static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff
   (insert "XYZ\n")
   ;; Overlay strings with partial `invisibility' property and with a
   ;; display property on the before-string.
-  (insert "\n  Expected: A...C")
-  (insert "\n    Result: ")
-  (let ((opoint (point)))
-    (insert "X\n")
-    (let ((ov  (make-overlay opoint (1+ opoint)))
-         (str "ABC"))
-      (put-text-property 1 2 'invisible 'test-redisplay--ellipsis-invis str)
-      (overlay-put ov 'display str)))
   (insert "\n  Expected: ..."
           (propertize "DEF" 'display '(image :type xpm :file "close.xpm"))
           (propertize "ABC" 'face 'highlight) "XYZ")