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