upstream/mercurial-mirror Files · contrib/hg-test-mode.el

compat: initialize LC_CTYPE locale on all Python versions and platforms...

compat: initialize LC_CTYPE locale on all Python versions and platforms Previously, the LC_CTYPE locale was not initialized according to user settings on all Python versions (e.g. never on Python 2) and platforms (e.g. not on some Python < 3.8 on Windows). This broke e.g. non-ASCII filenames passed to the Subversion bindings on Python 2, resulting in error messages like "file:///tmp/a%C3%A4 does not look like a Subversion repository to libsvn version 1.14.0". The following command could be used to test this functionality. Adding it to the test suite would be pointless, as the locale is always set to "C" during test runs. @command(b'check_initial_codeset', norepo=True) def check_initial_codeset(ui): codeset1 = locale.nl_langinfo(locale.CODESET) locale.setlocale(locale.LC_ALL, '') codeset2 = locale.nl_langinfo(locale.CODESET) assert codeset1 == codeset2

Augie Fackler - - Load All Authors

File last commit:

r41954:19979b8b default


                r45538:a25343d1

default

Download file

             hg-test-mode.el
        
                    97 lines
            
             | 3.6 KiB
            
                | text/x-common-lisp
            
             |
                EmacsLispLexer
            
             / contrib / hg-test-mode.el
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      ;; hg-test-mode.el - Major mode for editing Mercurial tests

      ;;

      ;; Copyright 2014 Matt Mackall <mpm@selenic.com>

      ;; "I have no idea what I'm doing"

      ;;

      ;; This software may be used and distributed according to the terms of the

      ;; GNU General Public License version 2 or any later version.

      ;;

      ;; To enable, add something like the following to your .emacs:

      ;;

      ;; (if (file-exists-p "~/hg/contrib/hg-test-mode.el")

      ;;    (load "~/hg/contrib/hg-test-mode.el"))

      (defvar hg-test-mode-hook nil)

      (defvar hg-test-mode-map

        (let ((map (make-keymap)))

          (define-key map "\C-j" 'newline-and-indent)

          map)

        "Keymap for hg test major mode")

      (add-to-list 'auto-mode-alist '("\\.t\\'" . hg-test-mode))

      (defconst hg-test-font-lock-keywords-1

        (list

         '("^  \\(\\$\\|>>>\\) " 1 font-lock-builtin-face)

         '("^  \\(>\\|\\.\\.\\.\\) " 1 font-lock-constant-face)

         '("^  \\([[][0-9]+[]]\\)$" 1 font-lock-warning-face)

         '("^  \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)*\\)$" 1 font-lock-string-face)

         '("\\$?\\(HG\\|TEST\\)\\w+=?" . font-lock-variable-name-face)

         '("^  \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)+\\)$" 2 font-lock-type-face)

         '("^#.*" . font-lock-preprocessor-face)

         '("^\\([^ ].*\\)$" 1 font-lock-comment-face)

         )

        "Minimal highlighting expressions for hg-test mode")

      (defvar hg-test-font-lock-keywords hg-test-font-lock-keywords-1

        "Default highlighting expressions for hg-test mode")

      (defvar hg-test-mode-syntax-table

        (let ((st (make-syntax-table)))

          (modify-syntax-entry ?\" "w" st) ;; disable standard quoting

          st)

      "Syntax table for hg-test mode")

      (defun hg-test-mode ()

        (interactive)

        (kill-all-local-variables)

        (use-local-map hg-test-mode-map)

        (set-syntax-table hg-test-mode-syntax-table)

        (set (make-local-variable 'font-lock-defaults) '(hg-test-font-lock-keywords))

        (setq major-mode 'hg-test-mode)

        (setq mode-name "hg-test")

        (run-hooks 'hg-test-mode-hook))

      (with-eval-after-load "compile"

        ;; Link to Python sources in tracebacks in .t failures.

        (add-to-list 'compilation-error-regexp-alist-alist

                     '(hg-test-output-python-tb

                       "^\\+ +File ['\"]\\([^'\"]+\\)['\"], line \\([0-9]+\\)," 1 2))

        (add-to-list 'compilation-error-regexp-alist 'hg-test-output-python-tb)

        ;; Link to source files in test-check-code.t violations.

        (add-to-list 'compilation-error-regexp-alist-alist

                     '(hg-test-check-code-output

                       "\\+  \\([^:\n]+\\):\\([0-9]+\\):$" 1 2))

        (add-to-list 'compilation-error-regexp-alist 'hg-test-check-code-output))

      (defun hg-test-mode--test-one-error-line-regexp (test)

        (erase-buffer)

        (setq compilation-locs (make-hash-table))

        (insert (car test))

        (compilation-parse-errors (point-min) (point-max))

        (let ((msg (get-text-property 1 'compilation-message)))

          (should msg)

          (let ((loc (compilation--message->loc msg))

                (line (nth 1 test))

                (file (nth 2 test)))

            (should (equal (compilation--loc->line loc) line))

            (should (equal (caar (compilation--loc->file-struct loc)) file)))

            msg))

      (require 'ert)

      (ert-deftest hg-test-mode--compilation-mode-support ()

        "Test hg-specific compilation-mode regular expressions"

        (require 'compile)

        (with-temp-buffer

          (font-lock-mode -1)

          (mapc 'hg-test-mode--test-one-error-line-regexp

                '(

                  ("+  contrib/debugshell.py:37:" 37 "contrib/debugshell.py")

                  ("+    File \"/tmp/hg/mercurial/commands.py\", line 3115, in help_"

                   3115 "/tmp/hg/mercurial/commands.py")

                  ("+    File \"mercurial/dispatch.py\", line 225, in dispatch"

                   225 "mercurial/dispatch.py")))))

      (provide 'hg-test-mode)

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

				;; hg-test-mode.el - Major mode for editing Mercurial tests
				;;
				;; Copyright 2014 Matt Mackall <mpm@selenic.com>
				;; "I have no idea what I'm doing"
				;;
				;; This software may be used and distributed according to the terms of the
				;; GNU General Public License version 2 or any later version.
				;;
				;; To enable, add something like the following to your .emacs:
				;;
				;; (if (file-exists-p "~/hg/contrib/hg-test-mode.el")
				;; (load "~/hg/contrib/hg-test-mode.el"))

				(defvar hg-test-mode-hook nil)

				(defvar hg-test-mode-map
				(let ((map (make-keymap)))
				(define-key map "\C-j" 'newline-and-indent)
				map)
				"Keymap for hg test major mode")

				(add-to-list 'auto-mode-alist '("\\.t\\'" . hg-test-mode))

				(defconst hg-test-font-lock-keywords-1
				(list
				'("^ \\(\\$\\\|>>>\\) " 1 font-lock-builtin-face)
				'("^ \\(>\\\|\\.\\.\\.\\) " 1 font-lock-constant-face)
				'("^ \\([[][0-9]+[]]\\)$" 1 font-lock-warning-face)
				'("^ \\(.?\\)\\(\\( [(][-a-z]+[)]\\)\\)$" 1 font-lock-string-face)
				'("\\$?\\(HG\\\|TEST\\)\\w+=?" . font-lock-variable-name-face)
				'("^ \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)+\\)$" 2 font-lock-type-face)
				'("^#.*" . font-lock-preprocessor-face)
				'("^\\([^ ].*\\)$" 1 font-lock-comment-face)
				)
				"Minimal highlighting expressions for hg-test mode")

				(defvar hg-test-font-lock-keywords hg-test-font-lock-keywords-1
				"Default highlighting expressions for hg-test mode")

				(defvar hg-test-mode-syntax-table
				(let ((st (make-syntax-table)))
				(modify-syntax-entry ?\" "w" st) ;; disable standard quoting
				st)
				"Syntax table for hg-test mode")

				(defun hg-test-mode ()
				(interactive)
				(kill-all-local-variables)
				(use-local-map hg-test-mode-map)
				(set-syntax-table hg-test-mode-syntax-table)
				(set (make-local-variable 'font-lock-defaults) '(hg-test-font-lock-keywords))
				(setq major-mode 'hg-test-mode)
				(setq mode-name "hg-test")
				(run-hooks 'hg-test-mode-hook))

				(with-eval-after-load "compile"
				;; Link to Python sources in tracebacks in .t failures.
				(add-to-list 'compilation-error-regexp-alist-alist
				'(hg-test-output-python-tb
				"^\\+ +File ['\"]\\([^'\"]+\\)['\"], line \\([0-9]+\\)," 1 2))
				(add-to-list 'compilation-error-regexp-alist 'hg-test-output-python-tb)
				;; Link to source files in test-check-code.t violations.
				(add-to-list 'compilation-error-regexp-alist-alist
				'(hg-test-check-code-output
				"\\+ \\([^:\n]+\\):\\([0-9]+\\):$" 1 2))
				(add-to-list 'compilation-error-regexp-alist 'hg-test-check-code-output))

				(defun hg-test-mode--test-one-error-line-regexp (test)
				(erase-buffer)
				(setq compilation-locs (make-hash-table))
				(insert (car test))
				(compilation-parse-errors (point-min) (point-max))
				(let ((msg (get-text-property 1 'compilation-message)))
				(should msg)
				(let ((loc (compilation--message->loc msg))
				(line (nth 1 test))
				(file (nth 2 test)))
				(should (equal (compilation--loc->line loc) line))
				(should (equal (caar (compilation--loc->file-struct loc)) file)))
				msg))

				(require 'ert)
				(ert-deftest hg-test-mode--compilation-mode-support ()
				"Test hg-specific compilation-mode regular expressions"
				(require 'compile)
				(with-temp-buffer
				(font-lock-mode -1)
				(mapc 'hg-test-mode--test-one-error-line-regexp
				'(
				("+ contrib/debugshell.py:37:" 37 "contrib/debugshell.py")
				("+ File \"/tmp/hg/mercurial/commands.py\", line 3115, in help_"
				3115 "/tmp/hg/mercurial/commands.py")
				("+ File \"mercurial/dispatch.py\", line 225, in dispatch"
				225 "mercurial/dispatch.py")))))


				(provide 'hg-test-mode)