@@ -11,11 +11,11 @@
 
 (declare (unit api))
 (declare (uses rmt))
 (declare (uses db))
 (declare (uses tasks))
-
+(declare (uses bb))
 ;; allow these queries through without starting a server
 ;;
 (define api:read-only-queries
   '(get-key-val-pairs
     get-keys
@@ -55,10 +55,11 @@
     synchash-get
     ))
 
 (define api:write-queries
   '(
+    bbtest
     ;; SERVERS
     start-server
     kill-server
 
     ;; TESTS
@@ -118,11 +119,14 @@
 	      (params (vector-ref dat 1)))
 	  (case (if (symbol? cmd)
 		    cmd
 		    (string->symbol cmd))
 
-	    ;;===============================================
+            ;; Brandon's test to extend API
+            ((bbtest) (apply bb:test params))
+
+            ;;===============================================
 	    ;; READ/WRITE QUERIES
 	    ;;===============================================
 
 	    ;; SERVERS
 	    ((start-server)                    (apply server:kind-run params))