use partial_string/1 for much quicker test

diff --git a/src/lib/crypto.pl b/src/lib/crypto.pl
index a6f7ad0ec709bbbab0957c438ed128348ec2d41a..3d19a72bd9d72d152238d40dda9aeb6e17f88514 100644 (file)
--- 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