anchor.diff:  		     employees (select 'employee))))
   	t)
   
  -	(deftest oodml/cache/2
  +	(deftest :oodml/cache/2
   	    (let ((employees (select 'employee)))
   	      (equal employees (select 'employee :flatp t)))
   	  nil)
   	
  -	(deftest oodml/refresh/1
  +	(deftest :oodml/refresh/1
   	    (let ((addresses (select 'address)))
   	      (equal addresses (select 'address :refresh t)))
   	  t)
   
  -	(deftest oodml/refresh/2
  +	(deftest :oodml/refresh/2
   	    (let* ((addresses (select 'address :order-by [addressid] :flatp t))
   		   (city (slot-value (car addresses) 'city)))
   	      (clsql:update-records [addr] 
  
positive.code: 	  ("Lenin" "Stalin" "Trotsky"))
  
  
        (deftest oodml/cache/1
  	  (progn
  	    (setf (clsql-sys:record-caches *default-database*) nil)
  	    (let ((employees (select 'employee)))
  
negative.code: 	  2 3 t t)
  		
  	      
  	(deftest :oodml/uoj/1
  	    (progn
  	      (let* ((dea-list (select 'deferred-employee-address :caching nil :order-by [ea_join aaddressid]
  				       :flatp t))
  