[elpa] externals/emms 32b394b2b1 34/42: Change tests to use unibyte strings

[ELPA Syncer]

branch: externals/emms
commit 32b394b2b1b2ee308566a28911bd719daa70a475
Author: Petteri Hintsanen <petterih@iki.fi>
Commit: Petteri Hintsanen <petterih@iki.fi>

    Change tests to use unibyte strings
    
    Tests were failing on Emacs 27.2.  Probably str type in old bindat is
    not compatible with vector inputs.
    
    Test inputs are more consistent now, too.
---
 test/emms-info-native-flac-tests.el | 14 +++++++-------
 test/emms-info-native-mp3-tests.el  |  8 ++++----
 test/emms-info-native-ogg-tests.el  | 16 ++++++++--------
 test/emms-info-native-tests.el      |  1 +
 4 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/test/emms-info-native-flac-tests.el 
b/test/emms-info-native-flac-tests.el
index 8cac890fba..dcadfadac2 100644
--- a/test/emms-info-native-flac-tests.el
+++ b/test/emms-info-native-flac-tests.el
@@ -32,13 +32,13 @@ This macro defines a suitable function with NAME that 
outputs
 BYTES after FLAC signature.  The function NAME can then be passed
 for `emms-info-native-flac--decode-meta-blocks'."
   `(defun ,name (offset end)
-     (let ((bytes (seq-concatenate 'vector [102 76 97 67] ,bytes)))
+     (let ((bytes (concat "fLaC" ,bytes)))
        (erase-buffer)
-       (mapcar #'insert (seq-subseq bytes offset end)))))
+       (insert (substring bytes offset end)))))
 
-(emms-flac-test-make-data-func emms-test-invalid-flac-block-length [1 200 200 
200 0 1 2 3])
-(emms-flac-test-make-data-func emms-test-invalid-flac-block-type [9 0 0 0 0 1 
2 3])
-(emms-flac-test-make-data-func emms-test-valid-flac-block [0 0 0 8 10 11 12 13 
14 15 16 17 132 0 0 4 1 2 3 4])
+(emms-flac-test-make-data-func emms-test-invalid-flac-block-length 
"\x01\xff\xff\xff\x00\x01\x02\x03")
+(emms-flac-test-make-data-func emms-test-invalid-flac-block-type 
"\x09\x00\x00\x00\x00\x01\x02\x03")
+(emms-flac-test-make-data-func emms-test-valid-flac-block 
"\x00\x00\x00\x08\x10\x11\x12\x13\x14\x15\x16\x17\x84\x00\x00\x04\x01\x02\x03\x04")
 
 (ert-deftest emms-flac-test-meta-blocks ()
   (should-error (emms-info-native-flac--decode-meta-blocks
@@ -47,8 +47,8 @@ for `emms-info-native-flac--decode-meta-blocks'."
                  #'emms-test-invalid-flac-block-type))
   (should (equal (emms-info-native-flac--decode-meta-blocks
                   #'emms-test-valid-flac-block)
-                 (list (unibyte-string 1 2 3 4)
-                       (unibyte-string 10 11 12 13 14 15 16 17)))))
+                 (list "\x01\x02\x03\x04"
+                       "\x10\x11\x12\x13\x14\x15\x16\x17"))))
 
 (ert-deftest emms-flac-test-decode-duration ()
   ;; The corresponding sample metadata bytes are [10 196 66 240 1 8 36 0].
diff --git a/test/emms-info-native-mp3-tests.el 
b/test/emms-info-native-mp3-tests.el
index 4c6d44e428..75a9fd8cec 100644
--- a/test/emms-info-native-mp3-tests.el
+++ b/test/emms-info-native-mp3-tests.el
@@ -67,7 +67,7 @@
 (ert-deftest emms-mp3-test-find-and-decode-frame-header ()
   (with-temp-buffer
     (set-buffer-multibyte nil)
-    (insert (concat [#x00 #x00 #x00 #x00 #x00 #x00 #x00 #xff #xfb #xb0 #x04 
#x00 #x00 #x00 #x00 #x00 #x69 #x06 #x00 #x00 #x00 #x00 #x00 #x0d #x20 #xc0 #x00 
#x00 #x00 #x00 #x01 #xa4 #x1c #x00 #x00 #x00 #x00 #x00 #x34 #x83 #x80 #x00 #x00 
#x4c #x41 #x4d #x45 #x33 #x2e #x39 #x31 #x55 #x55]))
+    (insert 
"\x00\x00\x00\x00\x00\x00\x00\xff\xfb\xb0\x04\x00\x00\x00\x00\x00\x69\x06\x00\x00\x00\x00\x00\x0d\x20\xc0\x00\x00\x00\x00\x01\xa4\x1c\x00\x00\x00\x00\x00\x34\x83\x80\x00\x00\x4c\x41\x4d\x45\x33\x2e\x39\x31\x55\x55")
     (should (equal (emms-info-native-mp3--find-and-decode-frame-header)
                    '((version . mpeg1)
                      (layer . layerIII)
@@ -86,19 +86,19 @@
 (ert-deftest emms-mp3-test-find-and-decode-xing-header ()
   (with-temp-buffer
     (set-buffer-multibyte nil)
-    (insert (concat [255 234 144 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 88 105 110 103 0 0 0 15 0 0 33 89 0 80 29 121 0 3 6 8 11 14 
15 18 21 23 26 29 31 34 37 39 42 45 47 50 53 55 57 60 62 65 68 70 73 76 78 81 
84 86 89 92 94 97 100 101 104 107 109 112 115 117 120 122 123 125 127 130 133 
135 138 141 143 146 149 151 154 157 159 162 165 167 170 173 174 177 180 182 185 
188 190 193 196 198 201 204 206 209 212 214 217 220 222 225 228 230 233 236 238 
241 244 246 249 2 [...]
+    (insert 
"\xff\xea\x90\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x58\x69\x6e\x67\x00\x00\x00\x0f\x00\x00\x21\x59\x00\x50\x1d\x79\x00\x03\x06\x08\x0b\x0e\x0f\x12\x15\x17\x1a\x1d\x1f\x22\x25\x27\x2a\x2d\x2f\x32\x35\x37\x39\x3c\x3e\x41\x44\x46\x49\x4c\x4e\x51\x54\x56\x59\x5c\x5e\x61\x64\x65\x68\x6b\x6d\x70\x73\x75\x78\x7a\x7b\x7d\x7f\x82\x85\x87\x8a\x8d\x8f\x92\x95\x97\x9a\x9d\x9f\xa2\xa5\xa7\xaa\xa
 [...]
     (should (= (emms-info-native-mp3--find-and-decode-xing-header) 8537))))
 
 (ert-deftest emms-mp3-test-find-decode-xing-header-2 ()
   (with-temp-buffer
     (set-buffer-multibyte nil)
-    (insert (concat [255 251 80 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 73 110 102 111 0 0 0 15 0 0 35 216 0 58 134 9 0 2 5 8 10 13 
16 18 20 23 25 28 31 33 36 38 41 43 46 49 51 54 56 58 61 64 66 69 72 74 76 79 
82 84 87 90 91 94 97 99 102 105 108 109 112 115 117 120 123 125 128 130 133 135 
138 141 143 146 148 150 153 156 158 161 164 166 168 171 174 176 179 182 183 186 
189 191 194 197 199 201 204 207 209 212 215 217 219 222 224 227 230 233 235 237 
240 242 245 248  [...]
+    (insert 
"\xff\xfb\x50\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x49\x6e\x66\x6f\x00\x00\x00\x0f\x00\x00\x23\xd8\x00\x3a\x86\x09\x00\x02\x05\x08\x0a\x0d\x10\x12\x14\x17\x19\x1c\x1f\x21\x24\x26\x29\x2b\x2e\x31\x33\x36\x38\x3a\x3d\x40\x42\x45\x48\x4a\x4c\x4f\x52\x54\x57\x5a\x5b\x5e\x61\x63\x66\x69\x6c\x6d\x70\x73\x75\x78\x7b\x7d\x80\x82\x85\x87\x8a\x8d\x8f\x92\x94\x96\x99\x9c\x9e\xa1\xa4\xa6\xa8\xa
 [...]
     (should (= (emms-info-native-mp3--find-and-decode-xing-header) 9176))))
 
 (ert-deftest emms-mp3-test-find-and-decode-vbri-header ()
   (with-temp-buffer
     (set-buffer-multibyte nil)
-    (insert (concat [255 251 161 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 86 66 82 73 0 1 13 177 0 100 0 98 219 145 0 0 33 58 0 132 0 
1 0 2 0 64 152 177 189 168 187 54 186 206 187 55 186 207 186 103 187 55 188 215 
187 159 186 207 185 44 187 53 187 56 188 8 187 159 185 149 190 224 188 8 185 
250 186 99 184 90 182]))
+    (insert 
"\xff\xfb\xa1\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x56\x42\x52\x49\x00\x01\x0d\xb1\x00\x64\x00\x62\xdb\x91\x00\x00\x21\x3a\x00\x84\x00\x01\x00\x02\x00\x40\x98\xb1\xbd\xa8\xbb\x36\xba\xce\xbb\x37\xba\xcf\xba\x67\xbb\x37\xbc\xd7\xbb\x9f\xba\xcf\xb9\x2c\xbb\x35\xbb\x38\xbc\x08\xbb\x9f\xb9\x95\xbe\xe0\xbc\x08\xb9\xfa\xba\x63\xb8\x5a\xb6")
     (should (= (emms-info-native-mp3--find-and-decode-vbri-header) 8506))))
 
 ;;; emms-info-native-mp3-tests.el ends here
diff --git a/test/emms-info-native-ogg-tests.el 
b/test/emms-info-native-ogg-tests.el
index 8151e3ee8d..62243e4247 100644
--- a/test/emms-info-native-ogg-tests.el
+++ b/test/emms-info-native-ogg-tests.el
@@ -27,16 +27,16 @@
 (require 'ert)
 
 (ert-deftest emms-ogg-test-decode-page ()
-  (let* ((bytes (unibyte-string 79 103 103 83 0 2 0 0 0 0 0 0 0 0 134 209 158 
23 0 0 0 0 53 82 251 136 1 30 1 118 111 114 98 105 115 0 0 0 0 1 68 172 0 0 0 0 
0 0 128 56 1 0 0 0 0 0 184 1))
+  (let* ((bytes 
"\x4f\x67\x67\x53\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x86\xd1\x9e\x17\x00\x00\x00\x00\x35\x52\xfb\x88\x01\x1e\x01\x76\x6f\x72\x62\x69\x73\x00\x00\x00\x00\x01\x44\xac\x00\x00\x00\x00\x00\x00\x80\x38\x01\x00\x00\x00\x00\x00\xb8\x01")
          (page (bindat-unpack emms-info-native-ogg--page-bindat-spec bytes)))
     (should (= (emms-info-native-ogg--num-packets page) 1))
     (should (= (bindat-length emms-info-native-ogg--page-bindat-spec page) 58))
     (should (equal (bindat-get-field page 'payload)
-                   (unibyte-string 1 118 111 114 98 105 115 0 0 0 0 1 68 172 0 
0 0 0 0 0 128 56 1 0 0 0 0 0 184 1)))))
+                   
"\x01\x76\x6f\x72\x62\x69\x73\x00\x00\x00\x00\x01\x44\xac\x00\x00\x00\x00\x00\x00\x80\x38\x01\x00\x00\x00\x00\x00\xb8\x01"))))
 
 (ert-deftest emms-ogg-test-decode-vorbis-headers ()
   "Test `emms-info-ogg--decode-headers' with Vorbis data."
-  (let ((bytes (unibyte-string 1 118 111 114 98 105 115 0 0 0 0 1 68 172 0 0 0 
0 0 0 128 56 1 0 0 0 0 0 184 1 3 118 111 114 98 105 115 52 0 0 0 88 105 112 104 
46 79 114 103 32 108 105 98 86 111 114 98 105 115 32 73 32 50 48 50 48 48 55 48 
52 32 40 82 101 100 117 99 105 110 103 32 69 110 118 105 114 111 110 109 101 
110 116 41 2 0 0 0 7 0 0 0 102 111 111 61 98 97 114 27 0 0 0 75 101 121 61 206 
159 225 189 144 207 135 225 189 182 32 206 164 206 177 225 189 144 207 132 225 
189 176 1)))
+  (let ((bytes 
"\x01\x76\x6f\x72\x62\x69\x73\x00\x00\x00\x00\x01\x44\xac\x00\x00\x00\x00\x00\x00\x80\x38\x01\x00\x00\x00\x00\x00\xb8\x01\x03\x76\x6f\x72\x62\x69\x73\x34\x00\x00\x00\x58\x69\x70\x68\x2e\x4f\x72\x67\x20\x6c\x69\x62\x56\x6f\x72\x62\x69\x73\x20\x49\x20\x32\x30\x32\x30\x30\x37\x30\x34\x20\x28\x52\x65\x64\x75\x63\x69\x6e\x67\x20\x45\x6e\x76\x69\x72\x6f\x6e\x6d\x65\x6e\x74\x29\x02\x00\x00\x00\x07\x00\x00\x00\x66\x6f\x6f\x3d\x62\x61\x72\x1b\x00\x00\x00\x4b\x65\x79\x3d\xce\x9f\xe1
 [...]
     (should
      (emms-equal-lists
       (emms-info-native-ogg--decode-headers bytes 'vorbis)
@@ -66,7 +66,7 @@
 
 (ert-deftest emms-ogg-test-decode-opus-headers ()
   "Test `emms-info-ogg--decode-headers' with Opus data."
-  (let ((bytes (unibyte-string 79 112 117 115 72 101 97 100 1 1 56 1 68 172 0 
0 0 0 0 79 112 117 115 84 97 103 115 13 0 0 0 108 105 98 111 112 117 115 32 49 
46 51 46 49 3 0 0 0 38 0 0 0 69 78 67 79 68 69 82 61 111 112 117 115 101 110 99 
32 102 114 111 109 32 111 112 117 115 45 116 111 111 108 115 32 48 46 49 46 49 
48 7 0 0 0 102 111 111 61 98 97 114 27 0 0 0 75 101 121 61 206 159 225 189 144 
207 135 225 189 182 32 206 164 206 177 225 189 144 207 132 225 189 176)))
+  (let ((bytes 
"\x4f\x70\x75\x73\x48\x65\x61\x64\x01\x01\x38\x01\x44\xac\x00\x00\x00\x00\x00\x4f\x70\x75\x73\x54\x61\x67\x73\x0d\x00\x00\x00\x6c\x69\x62\x6f\x70\x75\x73\x20\x31\x2e\x33\x2e\x31\x03\x00\x00\x00\x26\x00\x00\x00\x45\x4e\x43\x4f\x44\x45\x52\x3d\x6f\x70\x75\x73\x65\x6e\x63\x20\x66\x72\x6f\x6d\x20\x6f\x70\x75\x73\x2d\x74\x6f\x6f\x6c\x73\x20\x30\x2e\x31\x2e\x31\x30\x07\x00\x00\x00\x66\x6f\x6f\x3d\x62\x61\x72\x1b\x00\x00\x00\x4b\x65\x79\x3d\xce\x9f\xe1\xbd\x90\xcf\x87\xe1\xbd\xb6
 [...]
     (emms-equal-lists
      (emms-info-native-ogg--decode-headers bytes 'opus)
      '((identification-header
@@ -100,9 +100,9 @@ This is a helper function for 
`emms-ogg-test-decode-last-page'."
     (emms-info-native-ogg--decode-last-page)))
 
 (ert-deftest emms-ogg-test-decode-last-page()
-  (let ((valid [#x01 #x02 #x03 #x04 #x4f #x67 #x67 #x53 #x00 #x04 #x00 #x24 
#x08 #x01 #x00 #x00 #x00 #x00 #x9c #x39 #x6e #x47 #x40 #x08 #x00 #x00 #x19 #x4e 
#xac #xa3 #x01 #x0a #x4f #x67 #x67 #x53 #x31 #x32 #x33 #x34 #x35 #x36])
-        (notlast [#x01 #x02 #x03 #x04 #x4f #x67 #x67 #x53 #x00 #x00 #x00 #x24 
#x08 #x01 #x00 #x00 #x00 #x00 #x9c #x39 #x6e #x47 #x40 #x08 #x00 #x00 #x19 #x4e 
#xac #xa3 #x01 #x0a #x4f #x67 #x67 #x53 #x31 #x32 #x33 #x34 #x35 #x36])
-        (invalid [#x01 #x02 #x03 #x04 #x4f #x67 #x67 #x53 #x00 #x04 #x00 #x24 
#x08 #x01 #x00 #x00 #x00 #x00 #x9c #x39 #x6e #x47 #x40 #x08 #x00 #x00 #x01 #x02 
#x03 #x04 #x01 #x0a #x4f #x67 #x67 #x53 #x31 #x32 #x33 #x34 #x35 #x36])
+  (let ((valid 
"\x01\x02\x03\x04\x4f\x67\x67\x53\x00\x04\x00\x24\x08\x01\x00\x00\x00\x00\x9c\x39\x6e\x47\x40\x08\x00\x00\x19\x4e\xac\xa3\x01\x0a\x4f\x67\x67\x53\x31\x32\x33\x34\x35\x36")
+        (notlast 
"\x01\x02\x03\x04\x4f\x67\x67\x53\x00\x00\x00\x24\x08\x01\x00\x00\x00\x00\x9c\x39\x6e\x47\x40\x08\x00\x00\x19\x4e\xac\xa3\x01\x0a\x4f\x67\x67\x53\x31\x32\x33\x34\x35\x36")
+        (invalid 
"\x01\x02\x03\x04\x4f\x67\x67\x53\x00\x04\x00\x24\x08\x01\x00\x00\x00\x00\x9c\x39\x6e\x47\x40\x08\x00\x00\x01\x02\x03\x04\x01\x0a\x4f\x67\x67\x53\x31\x32\x33\x34\x35\x36")
         (valid-result
          (quote
           ((capture-pattern . "OggS")
@@ -123,7 +123,7 @@ This is a helper function for 
`emms-ogg-test-decode-last-page'."
     (should (equal (emms-ogg-test--decode-last-page invalid) nil))))
 
 (ert-deftest emms-ogg-test-calculate-checksum ()
-  (let ((bytes [#x01 #x02 #x03 #x04 #x4f #x67 #x67 #x53 #x00 #x04 #x00 #x24 
#x08 #x01 #x00 #x00 #x00 #x00 #x9c #x39 #x6e #x47 #x40 #x08 #x00 #x00 #x19 #x4e 
#xac #xa3 #x01 #x0a #x4f #x67 #x67 #x53 #x31 #x32 #x33 #x34 #x35 #x36]))
+  (let ((bytes 
"\x01\x02\x03\x04\x4f\x67\x67\x53\x00\x04\x00\x24\x08\x01\x00\x00\x00\x00\x9c\x39\x6e\x47\x40\x08\x00\x00\x19\x4e\xac\xa3\x01\x0a\x4f\x67\x67\x53\x31\x32\x33\x34\x35\x36"))
     (should (= (emms-info-native-ogg--checksum bytes) 445885580))))
 
 ;;; emms-info-native-ogg-tests.el ends here
diff --git a/test/emms-info-native-tests.el b/test/emms-info-native-tests.el
index 7a251c7b0b..fb28c60bb2 100644
--- a/test/emms-info-native-tests.el
+++ b/test/emms-info-native-tests.el
@@ -35,6 +35,7 @@
 (unless (fboundp 'ert-resource-file)
   (defun ert-resource-file (file)
     (concat "resources/" file)))
+
 (ert-deftest emms-info-native-test-mp3 ()
   (should (equal (emms-info-native--decode-info-fields
                   (ert-resource-file "sine.mp3"))