Web.JSON: Encode blob to list.

Author: Milly

autoload/vital/__vital__/Web/JSON.vim

@@ -96,10 +96,11 @@ endfunction
 function! s:_vital_loaded(V) abort
   let s:V = a:V
   let s:string = s:V.import('Data.String')
+  let s:bytes = s:V.import('Data.List.Byte')
 endfunction
 
 function! s:_vital_depends() abort
-  return ['Data.String']
+  return ['Data.String', 'Data.List.Byte']
 endfunction
 
 " @vimlint(EVL102, 1, l:null)
@@ -200,6 +201,8 @@ function! s:_encode(val, settings) abort
     return val
   elseif t == 6 || t == 7
     return get(s:special_constants, a:val)
+  elseif t == 10
+    return s:_encode_list(s:bytes.from_blob(a:val), a:settings)
   else
     return string(a:val)
   endif

test/Web/JSON.vimspec

@@ -300,5 +300,13 @@ Describe Web.JSON
       Throws /^vital: Web.JSON:/ JSON.encode(1.0/0, s)
       Throws /^vital: Web.JSON:/ JSON.encode(-1.0/0, s)
     End
+
+    It encodes blob
+      if !has('patch-8.1.0735')
+        Skip no available blob type.
+      endif
+      Assert Equals(JSON.encode(0z), '[]')
+      Assert Equals(JSON.encode(0zFF.00.ED.01.5D.AF), '[255,0,237,1,93,175]')
+    End
   End
 End