use partial_string/1 for much quicker test

2021-11-03 22:35:47 +01:00
parent 55dabbe16a
commit 8c8c21c63b
1 changed files with 5 additions and 2 deletions
--- a/src/lib/crypto.pl
+++ b/src/lib/crypto.pl
@@ -620,8 +620,11 @@ encoding_chars(octet, Bs, Cs) :-
        ),
        must_be_byte_chars(Cs, crypto_encoding).
 encoding_chars(utf8, Cs, Cs) :-
-        must_be(list, Cs),
-        maplist(must_be(character), Cs).
+        (   partial_string(Cs) ->
+            true
+        ;   must_be(list, Cs),
+            maplist(must_be(character), Cs)
+        ).

 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   Digital signatures with Ed25519