From: Glenn Morris Date: Wed, 24 May 2017 00:42:28 +0000 (-0400) Subject: ; Move recent test file to correct directory (my mistake) X-Git-Tag: emacs-26.0.90~521^2~288 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a7bd9dc600bab3eeed69bc6b755508868665e3d;p=emacs.git ; Move recent test file to correct directory (my mistake) --- diff --git a/test/lisp/dns-mode-tests.el b/test/lisp/dns-mode-tests.el deleted file mode 100644 index 34e86201d82..00000000000 --- a/test/lisp/dns-mode-tests.el +++ /dev/null @@ -1,58 +0,0 @@ -;;; dns-mode-tests.el --- Test suite for dns-mode -*- lexical-binding: t; -*- - -;; Copyright (C) 2017 Free Software Foundation, Inc. - -;; Author: Peder O. Klingenberg -;; Keywords: dns zone - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Code: - -(require 'ert) -(require 'dns-mode) - -;;; IPv6 reverse zones -(ert-deftest dns-mode-ipv6-conversion () - (let ((address "2001:db8::42")) - (should (equal (dns-mode-reverse-and-expand-ipv6 address) - "2.4.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.8.b.d.0.1.0.0.2.ip6.arpa. ")) - (should (equal (dns-mode-reverse-and-expand-ipv6 address 32) - "8.b.d.0.1.0.0.2.ip6.arpa. ")) - (should (equal (dns-mode-reverse-and-expand-ipv6 address -112) - "2.4.0.0 ")))) - -(ert-deftest dns-mode-ipv6-text-replacement () - (let ((address "2001:db8::42/32")) - (with-temp-buffer - ;; Conversion with point directly after address - (insert address) - (dns-mode-ipv6-to-nibbles nil) - (should (equal (buffer-string) "8.b.d.0.1.0.0.2.ip6.arpa. ")) - ;; Kill ring contains the expected - (erase-buffer) - (yank) - (should (equal (buffer-string) address)) - ;; Point at beginning of address (and prefix arg to command) - (goto-char (point-min)) - (dns-mode-ipv6-to-nibbles t) - (should (equal (buffer-string) "2.4.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 ")) - ;; Point separated from address by whitespace - (erase-buffer) - (insert address) - (insert " ") - (dns-mode-ipv6-to-nibbles nil) - (should (equal (buffer-string) "8.b.d.0.1.0.0.2.ip6.arpa. "))))) diff --git a/test/lisp/textmodes/dns-mode-tests.el b/test/lisp/textmodes/dns-mode-tests.el new file mode 100644 index 00000000000..34e86201d82 --- /dev/null +++ b/test/lisp/textmodes/dns-mode-tests.el @@ -0,0 +1,58 @@ +;;; dns-mode-tests.el --- Test suite for dns-mode -*- lexical-binding: t; -*- + +;; Copyright (C) 2017 Free Software Foundation, Inc. + +;; Author: Peder O. Klingenberg +;; Keywords: dns zone + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Code: + +(require 'ert) +(require 'dns-mode) + +;;; IPv6 reverse zones +(ert-deftest dns-mode-ipv6-conversion () + (let ((address "2001:db8::42")) + (should (equal (dns-mode-reverse-and-expand-ipv6 address) + "2.4.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.8.b.d.0.1.0.0.2.ip6.arpa. ")) + (should (equal (dns-mode-reverse-and-expand-ipv6 address 32) + "8.b.d.0.1.0.0.2.ip6.arpa. ")) + (should (equal (dns-mode-reverse-and-expand-ipv6 address -112) + "2.4.0.0 ")))) + +(ert-deftest dns-mode-ipv6-text-replacement () + (let ((address "2001:db8::42/32")) + (with-temp-buffer + ;; Conversion with point directly after address + (insert address) + (dns-mode-ipv6-to-nibbles nil) + (should (equal (buffer-string) "8.b.d.0.1.0.0.2.ip6.arpa. ")) + ;; Kill ring contains the expected + (erase-buffer) + (yank) + (should (equal (buffer-string) address)) + ;; Point at beginning of address (and prefix arg to command) + (goto-char (point-min)) + (dns-mode-ipv6-to-nibbles t) + (should (equal (buffer-string) "2.4.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 ")) + ;; Point separated from address by whitespace + (erase-buffer) + (insert address) + (insert " ") + (dns-mode-ipv6-to-nibbles nil) + (should (equal (buffer-string) "8.b.d.0.1.0.0.2.ip6.arpa. ")))))