From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 21 Oct 2020 16:23:38 +0000 (+0200)
Subject: Test for error with multibyte strings in bindat.el
X-Git-Tag: emacs-28.0.90~5487
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d7d09b0ef1b3a939422d273be2fa348e8a148c8;p=emacs.git

Test for error with multibyte strings in bindat.el

* test/lisp/emacs-lisp/bindat-tests.el
(bindat-test-pack/multibyte-string-fails)
(bindat-test-unpack/multibyte-string-fails): New tests.
---

diff --git a/test/lisp/emacs-lisp/bindat-tests.el b/test/lisp/emacs-lisp/bindat-tests.el
index 14f95a8bf80..0fb1955695d 100644
--- a/test/lisp/emacs-lisp/bindat-tests.el
+++ b/test/lisp/emacs-lisp/bindat-tests.el
@@ -1,4 +1,4 @@
-;;; bindat-tests.el --- tests for bindat.el  -*- lexical-binding: t; -*-
+;;; bindat-tests.el --- tests for bindat.el  -*- lexical-binding: t; coding: utf-8; -*-
 
 ;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
 
@@ -94,7 +94,13 @@
               (src-ip .
 	              [192 168 1 101])
               (dest-ip .
-	               [192 168 1 100]))))))
+                       [192 168 1 100]))))))
+
+(ert-deftest bindat-test-pack/multibyte-string-fails ()
+  (should-error (bindat-pack nil nil (decode-coding-string "ö" 'utf-8))))
+
+(ert-deftest bindat-test-unpack/multibyte-string-fails ()
+  (should-error (bindat-unpack nil (decode-coding-string "ö" 'utf-8))))
 
 (ert-deftest bindat-test-format-vector ()
   (should (equal (bindat-format-vector [1 2 3] "%d" "x" 2) "1x2"))