15 lines
		
	
	
		
			339 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			15 lines
		
	
	
		
			339 B
		
	
	
	
		
			Factor
		
	
	
| USING: accessors io.sockets.secure io.sockets.secure.debug namespaces
 | |
| openssl tools.test ;
 | |
| 
 | |
| openssl secure-socket-backend [
 | |
|     { } [
 | |
|         <test-secure-config>
 | |
|         [ ] with-secure-context
 | |
|     ] unit-test
 | |
| 
 | |
|     [
 | |
|         <test-secure-config> "wrong password" >>password
 | |
|         [ ] with-secure-context
 | |
|     ] must-fail
 | |
| ] with-variable
 |