21 lines
		
	
	
		
			666 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			21 lines
		
	
	
		
			666 B
		
	
	
	
		
			Factor
		
	
	
! Copyright (C) 2009 Bruno Deferrari
 | 
						|
! See http://factorcode.org/license.txt for BSD license.
 | 
						|
USING: tools.test redis.response-parser io.streams.string ;
 | 
						|
IN: redis.response-parser.tests
 | 
						|
 | 
						|
{ 1 } [ ":1\r\n" [ read-response ] with-string-reader ] unit-test
 | 
						|
 | 
						|
{ "hello" } [ "$5\r\nhello\r\n" [ read-response ] with-string-reader ] unit-test
 | 
						|
 | 
						|
{ f } [ "$-1\r\n" [ read-response ] with-string-reader ] unit-test
 | 
						|
 | 
						|
{ { "hello" "world!" } } [
 | 
						|
    "*2\r\n$5\r\nhello\r\n$6\r\nworld!\r\n" [ read-response ] with-string-reader
 | 
						|
] unit-test
 | 
						|
 | 
						|
{ { "hello" f "world!" } } [
 | 
						|
    "*3\r\n$5\r\nhello\r\n$-1\r\n$6\r\nworld!\r\n" [
 | 
						|
        read-response
 | 
						|
    ] with-string-reader
 | 
						|
] unit-test
 |