Annotation of parser3/tests/redis/005.html, revision 1.1
1.1 ! moko 1: # tls: the server certificate is of ca, client certificates are optional but checked
! 2: $tls[$env:REDIS_TLS]
! 3: $r[^open_redis[ $.port(6400) $.tls[ $.ca[$tls/ca.crt] ] ]]
! 4: 1. ca: ^r.ping[]
! 5: 2. set and get: ^r.set[k;over tls] ^r.get[k]
! 6: $r2[^open_redis[ $.port(6400) $.tls[] ]]
! 7: 3. no ca, not checked: ^r2.ping[]
! 8: 4. another ca: ^failed{^open_redis[ $.port(6400) $.tls[ $.ca[$tls/other-ca.crt] ] ]}
! 9: $r3[^open_redis[ $.port(6400) $.tls[ $.ca[$tls/other-ca.crt] $.verify(false) ] ]]
! 10: 5. another ca, not checked: ^r3.ping[]
! 11: $r4[^open_redis[ $.port(6400) $.tls[ $.ca[$tls/ca.crt] $.cert[$tls/client.crt] $.key[$tls/client.key] ] ]]
! 12: 6. client certificate: ^r4.ping[]
! 13: 7. client certificate of another ca: ^failed{$r5[^open_redis[ $.port(6400) $.tls[ $.ca[$tls/ca.crt] $.cert[$tls/other-client.crt] $.key[$tls/other-client.key] ] ]]^r5.ping[]}
! 14: 8. certificate without key: ^failed{^open_redis[ $.port(6400) $.tls[ $.cert[$tls/client.crt] ] ]}
! 15: 9. no ca file: ^failed{^open_redis[ $.port(6400) $.tls[ $.ca[$tls/missing.crt] ] ]}
! 16: 10. invalid option: ^failed{^open_redis[ $.port(6400) $.tls[ $.cacert[$tls/ca.crt] ] ]}
! 17:
! 18: # auto_reconnect starts tls again
! 19: $a[^open_redis[ $.port(6400) $.tls[ $.ca[$tls/ca.crt] ] $.db(3) $.auto_reconnect(1) ]]
! 20: 11. set: ^a.set[k;in db 3]
! 21: 12. kill: ^r.client[KILL;ID;^a.client[ID]]
! 22: 13. killed: ^failed{^a.get[k]}
! 23: 14. reconnected: ^a.get[k]
! 24: ^a.release[]
! 25: 15. released: ^failed{^a.get[k]}
E-mail: