Run unit tests on the pipeline

Makefile

@@ -17,6 +17,9 @@ test-single: build
 		--tags -consistency \
 		--tags -cli \
 		--tags -needs:config-maxmemory
+unit-test:
+	cargo test --release
+
 test: build
 	./runtest  --clients 5 \
 		--skipunit unit/dump \
@@ -53,4 +56,4 @@ test: build
 		--tags -consistency \
 		--tags -cli \
 		--tags -needs:config-maxmemory
-ci: fmt clippy build test
+ci: fmt clippy build unit-test test

src/cmd/list.rs

@@ -88,7 +88,7 @@ async fn handle_timeout(conn: &Connection, timeout: Option<Instant>) -> Result<b
             _ => Ok(true),
         }
     } else {
-        sleep(Duration::from_millis(100)).await;
+        sleep(Duration::from_millis(5)).await;
         Ok(false)
     }
 }

src/db/mod.rs

@@ -175,7 +175,6 @@ impl Db {
                         i += 1;
                         continue;
                     }
-                    println!("failed to block {:?}", key);
                     // It is blocked by another tx, we need to break
                     // and retry to gain the lock over this key
                     break;

tests/unit/type/list.tcl

@@ -423,7 +423,7 @@ start_server {
 
       r rpush list1{t} foo
 
-      after 1000
+      after 50
 
       assert_equal {} [r lrange list1{t} 0 -1]
       assert_equal {} [r lrange list2{t} 0 -1]
@@ -484,7 +484,7 @@ start_server {
         $watching_client get somekey{t}
         $watching_client read
         r lpush srclist{t} element
-        after 500
+        after 50
         $watching_client exec
         $watching_client read
     } {}