Update some error-arrow tests for Python 3.13

hy/compat.py

@@ -70,3 +70,8 @@ def getdoc(object):
                 result = inspect.getcomments(object)
         return result and re.sub('^ *\n', '', result.rstrip()) or ''
     pydoc.getdoc = getdoc
+
+
+def reu(x):
+    '(R)eplace an (e)rror (u)nderline. This is only used for testing Hy.'
+    return x.replace('-', '^') if PY3_13 else x

tests/native_tests/macros.hy

@@ -149,7 +149,7 @@
 
   (setv expected ["  File \"<string>\", line 1"
                   "    (defmacro blah [x] `(print ~@z)) (blah y)"
-                  "                                     ^------^"
+   (hy.compat.reu "                                     ^------^")
                   "expanding macro blah"
                   "  NameError: global name 'z' is not defined"])
 

tests/native_tests/repl.hy

@@ -83,7 +83,7 @@
   (setv err (rt "(defmacro mabcdefghi [x] x)\n(mabcdefghi)" 'err))
   (setv msg-idx (.rindex err "    (mabcdefghi)"))
   (setv [_ e1 e2 e3 #* _] (.splitlines (cut err msg_idx None)))
-  (assert (.startswith e1 "    ^----------^"))
+  (assert (.startswith e1 (hy.compat.reu "    ^----------^")))
   (assert (.startswith e2 "expanding macro mabcdefghi"))
   (assert (or
     ; PyPy can use a function's `__name__` instead of

tests/test_bin.py

@@ -422,7 +422,9 @@ def req_err(x):
     #   NameError: name 'a' is not defined
     output, error = run_cmd('hy -c "(print a)"', expect=1)
     # Filter out the underline added by Python 3.11.
-    error_lines = [x for x in error.splitlines() if set(x) != {" ", "^"}]
+    error_lines = [x
+        for x in error.splitlines()
+        if not (set(x) <= {" ", "^", "~"})]
     assert error_lines[3] == '  File "<string>", line 1, in <module>'
     # PyPy will add "global" to this error message, so we work around that.
     assert error_lines[-1].strip().replace(" global", "") == (