base64: Add a version of url-base64 that trims trailing === for jwt.

[factor.git] / basis / base64 / base64-tests.factor

diff --git a/basis/base64/base64-tests.factor b/basis/base64/base64-tests.factor
index 8821f9654c05c952cbef019ff65094844848ecd1..3593fe2c7d37fd6f71c22972abc738046dc54ae6 100644 (file)
--- a/basis/base64/base64-tests.factor
+++ b/basis/base64/base64-tests.factor
@@ -47,3 +47,9 @@ kernel sequences splitting strings tools.test ;
 
 { "01a-b_cd" } [ "\xd3V\xbeo\xf7\x1d" >urlsafe-base64 "" like ] unit-test
 { "\xd3V\xbeo\xf7\x1d" } [ "01a-b_cd" urlsafe-base64> "" like ] unit-test
+
+{ "eyJhIjoiYmNkIn0" }
+[ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt >string ] unit-test
+
+{ "{\"a\":\"bcd\"}" }
+[ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt urlsafe-base64> >string ] unit-test
\ No newline at end of file