Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>

This patch fixes tests for Emacs 25.

Upstream bug URL:

https://github.com/gongo/json-reformat/issues/33

diff --git a/test/json-reformat-test.el b/test/json-reformat-test.el
index 7de3be1..b4a4dde 100644
--- a/test/json-reformat-test.el
+++ b/test/json-reformat-test.el
@@ -58,7 +58,7 @@
 (ert-deftest json-reformat-test:string-to-string ()
   (should (string= "\"foobar\"" (json-reformat:string-to-string "foobar")))
   (should (string= "\"fo\\\"o\\nbar\"" (json-reformat:string-to-string "fo\"o\nbar")))
-  (should (string= "\"\\u2661\"" (json-reformat:string-to-string "\u2661")))
+  (should (string= "\"♡\"" (json-reformat:string-to-string "\u2661")))
 
   (should (string= "\"^(amq\\\\.gen.*|amq\\\\.default)$\"" (json-reformat:string-to-string "^(amq\\.gen.*|amq\\.default)$")))
   )
@@ -148,6 +148,6 @@ bar\"" (json-reformat:string-to-string "fo\"o\nbar")))
 [{ foo : \"bar\" }, { \"foo\" : \"baz\" }]") ;; At 3 (line)
         (json-reformat-region (point-min) (point-max)))
       (should (string=
-               "JSON parse error [Reason] Bad string format: \"doesn't start with '\\\"'!\" [Position] In buffer, line 3 (char 6)"
+               "JSON parse error [Reason] Bad string format: \"doesn't start with \`\\\"'!\" [Position] In buffer, line 3 (char 6)"
                message-string))
       )))
-- 
2.15.1

scm?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3'>commit</a><a href='/guix/diff/gnu/installer/newt/network.scm?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/installer/newt/network.scm'>
<input type='hidden' name='id' value='176e20a1f1d5c5f96da64efb337d100279b4ecb3'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3'>root</a>/<a href='/guix/log/gnu?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3'>gnu</a>/<a href='/guix/log/gnu/installer?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3'>installer</a>/<a href='/guix/log/gnu/installer/newt?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3'>newt</a>/<a href='/guix/log/gnu/installer/newt/network.scm?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3'>network.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/installer/newt/network.scm?id=176e20a1f1d5c5f96da64efb337d100279b4ecb3&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-10-17 16:34:07 +0400'>2022-10-17</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=883fb8f41b08a8455f16c736a83fb1ae8a3df0a1'>installer: Factorize url-alive? in internet check.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/newt/network.scm (wait-service-online): Factorize url-alive?
in internet check.
</span></span></td><td>Andrew Tropin</td></tr>
<tr><td><span title='2022-10-17 10:22:15 +0400'>2022-10-17</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=094b357783ae92fc5652f8a8c61e0b96b342d09d'>installer: Relax internet check availability criteria.</a><span class='msg-avail'>...<span class='msg-tooltip'>Checks the availability of the mirror bordeaux.guix.gnu.org in addition to
ci.guix.gnu.org.  This allows to proceed the installation if the
ci.guix.gnu.org is unavailable.

* gnu/installer/newt/network.scm (wait-service-online): Relax internet check
availability criteria.

Signed-off-by: Andrew Tropin &lt;andrew@trop.in&gt;
</span></span></td><td>aleksandr barakin</td></tr>
<tr><td><span title='2022-02-02 16:46:44 +0100'>2022-02-02</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=726d0bd2f36363392ba2fcefd6e5d4aeed27dc9e'>installer: Use named prompt to abort or break installer steps.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/steps.scm (run-installer-steps): Set up
'installer-step prompt.
* gnu/installer/newt/ethernet.scm (run-ethernet-page)
* gnu/installer/newt/final.scm (run-config-display-page,
run-install-failed-page)
* gnu/installer/newt/keymap.scm (run-layout-page, run-variant-page)
* gnu/installer/newt/locale.scm (run-language-page,
run-territory-page, run-codeset-page, run-modifier-page,
run-locale-page)
* gnu/installer/newt/network.scm (run-technology-page,
wait-service-online)
* gnu/installer/newt/page.scm (run-listbox-selection-page,
run-checkbox-tree-page)
* gnu/installer/newt/partition.scm (button-exit-action)
* gnu/installer/newt/services.scm (run-desktop-environments-cbt-page,
run-networking-cbt-page, run-other-services-cbt-page,
run-network-management-page)
* gnu/installer/newt/timezone.scm (run-timezone-page)
* gnu/installer/newt/user.scm (run-user-page)
* gnu/installer/newt/welcome.scm (run-menu-page)
* gnu/installer/newt/wifi.scm (run-wifi-page): Use the 'installer-step
prompt to abort.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-01-14 14:29:08 +0100'>2022-01-14</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=ee897e5f51104f41b3c2a0c2cbc7eb4e6c1e4d3e'>installer: Check if ci.guix.gnu.org can be reached.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer.scm (installer-program): Add gnutls extension.
* gnu/installer/newt/network.scm (wait-service-online): Check if the CI server
can be reached.
</span></span></td><td>Mathieu Othacehe</td></tr>