27 lines
		
	
	
		
			596 B
		
	
	
	
		
			Factor
		
	
	
		
		
			
		
	
	
			27 lines
		
	
	
		
			596 B
		
	
	
	
		
			Factor
		
	
	
| 
								 | 
							
								USING: oauth oauth.private tools.test accessors kernel assocs
							 | 
						||
| 
								 | 
							
								strings namespaces ;
							 | 
						||
| 
								 | 
							
								IN: oauth.tests
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								[ "%26&b" ] [ "&" "b" hmac-key ] unit-test
							 | 
						||
| 
								 | 
							
								[ "%26&" ] [ "&" f hmac-key ] unit-test
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								[ "B&http%3A%2F%2Ftwitter.com&a%3Db" ] [
							 | 
						||
| 
								 | 
							
								    "http://twitter.com"
							 | 
						||
| 
								 | 
							
								    "B"
							 | 
						||
| 
								 | 
							
								    { { "a" "b" } }
							 | 
						||
| 
								 | 
							
								    signature-base-string
							 | 
						||
| 
								 | 
							
								] unit-test
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								[ "Z5tUa83q43qiy6dGGCb92bN/4ik=" ] [
							 | 
						||
| 
								 | 
							
								    "ABC" "DEF" <token> consumer-token set
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								    "http://twitter.com"
							 | 
						||
| 
								 | 
							
								    <request-token-params>
							 | 
						||
| 
								 | 
							
								        12345 >>timestamp
							 | 
						||
| 
								 | 
							
								        54321 >>nonce
							 | 
						||
| 
								 | 
							
								    <request-token-request>
							 | 
						||
| 
								 | 
							
								    post-data>>
							 | 
						||
| 
								 | 
							
								    "oauth_signature" swap at
							 | 
						||
| 
								 | 
							
								    >string
							 | 
						||
| 
								 | 
							
								] unit-test
							 |