extra/redis/response-parser/response-parser-tests.factor

   1 ! Copyright (C) 2009 Bruno Deferrari
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test redis.response-parser io.streams.string ;
   4 IN: redis.response-parser.tests
   5
   6 { 1 } [ ":1\r\n" [ read-response ] with-string-reader ] unit-test
   7
   8 { "hello" } [ "$5\r\nhello\r\n" [ read-response ] with-string-reader ] unit-test
   9
  10 { f } [ "$-1\r\n" [ read-response ] with-string-reader ] unit-test
  11
  12 { { "hello" "world!" } } [
  13     "*2\r\n$5\r\nhello\r\n$6\r\nworld!\r\n" [ read-response ] with-string-reader
  14 ] unit-test
  15
  16 { { "hello" f "world!" } } [
  17     "*3\r\n$5\r\nhello\r\n$-1\r\n$6\r\nworld!\r\n" [
  18         read-response
  19     ] with-string-reader
  20 ] unit-test