[COMMIT] Suppress some informative chatter from the regexp code, regexp-tests.el

APPROVE COMMIT NOTE: This patch has been committed # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1529075156 -3600 # Fri Jun 15 16:05:56 2018 +0100 # Node ID 9c8dce2ccb19561548aa8c8177f27e94e7a1349c # Parent 74c1a72202b228a5847b1dd5c2a5599c79c51a98 Suppress some informative chatter from the regexp code, regexp-tests.el tests/ChangeLog addition: 2018-06-15 Aidan Kehoe <kehoea(a)parhasard.net&gt; [...] * automated/regexp-tests.el (log-warning-suppressed-classes): Bind this variable when checking the 100-repetition backreference code too, silencing chatter on make check diff -r 74c1a72202b2 -r 9c8dce2ccb19 tests/ChangeLog --- a/tests/ChangeLog Fri Jun 15 14:46:08 2018 +0100 +++ b/tests/ChangeLog Fri Jun 15 16:05:56 2018 +0100 ＠＠ -5,6 +5,9 ＠＠ recently, to our case tables, has changed the logic of when Boyer-Moore versus simple search for the particular search strings in this file. Update it. + * automated/regexp-tests.el (log-warning-suppressed-classes): + Bind this variable when checking the 100-repetition backreference + code too, silencing chatter on make check 2018-06-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; diff -r 74c1a72202b2 -r 9c8dce2ccb19 tests/automated/regexp-tests.el --- a/tests/automated/regexp-tests.el Fri Jun 15 14:46:08 2018 +0100 +++ b/tests/automated/regexp-tests.el Fri Jun 15 16:05:56 2018 +0100 ＠＠ -628,15 +628,16 ＠＠ work, %s" limit script)))))))) (probe-backref-limits 1 9 10 50 100 150 200 255 (fail . 500))) -(Assert - (equal - (replace-regexp-in-string #r"\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(a\)\101" - #r"\101000" "aa01bb") - ;; Gives "a01000bb" under GNU, where there are no backreferences greater - ;; than nine, and "aa01bb" before support for backreferences greater than 99 - ;; was added. - "a00001bb") - "checking high-numbered backreference in replacing code") +(let ((log-warning-suppressed-classes (cons 'regex log-warning-suppressed-classes))) + (Assert + (equal + (replace-regexp-in-string #r"\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(\)\(a\)\101" + #r"\101000" "aa01bb") + ;; Gives "a01000bb" under GNU, where there are no backreferences greater + ;; than nine, and "aa01bb" before support for backreferences greater + ;; than 99 was added. + "a00001bb") + "checking high-numbered backreference in replacing code")) ;; Not very comprehensive tests of skip-chars-forward, skip-chars-background: -- ‘As I sat looking up at the Guinness ad, I could never figure out / How your man stayed up on the surfboard after forty pints of stout’ (C. Moore)