extra/crypto/jwt/jwt-tests.factor

   1 ! Copyright (C) 2021 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: checksums.sha crypto.jwt tools.test ;
   4 IN: crypto.jwt.tests
   5
   6 { t } [
   7     "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJzdWIiOiIxMjM0NTY3ODkwIiwibmFtZSI6IkpvaG4gRG9lIiwiaWF0IjoxNTE2MjM5MDIyfQ.he0ErCNloe4J7Id0Ry2SEDg09lKkZkfsRiGsdX_vgEg"
   8     "" check-signature
   9 ] unit-test
  10
  11 { t } [
  12     "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJzdWIiOiIxMjM0NTY3ODkwIiwibmFtZSI6IkpvaG4gRG9lIiwiaWF0IjoxNTE2MjM5MDIyfQ.QjxgSJl1C760VSNK4e5EZaYo6qemRqYL_Ol8ZgeQreg"
  13     "covid" check-signature
  14 ] unit-test
  15
  16 { "eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJzdWIiOiIxMjM0NTY3ODkwIiwibmFtZSI6IkpvaG4gRG9lIiwiaWF0IjoxNTE2MjM5MDIyfQ.he0ErCNloe4J7Id0Ry2SEDg09lKkZkfsRiGsdX_vgEg" } [
  17     H{ { "alg" "HS256" } { "typ" "JWT" } }
  18     H{
  19         { "sub" "1234567890" }
  20         { "name" "John Doe" }
  21         { "iat" 1516239022 }
  22     }
  23     "" sha-256 sign-jwt
  24 ] unit-test
  25