   (is (= "SELECT writetime(a),ttl(a) FROM foo ALLOW FILTERING;"
          (select :foo
                  (columns (write-time :a)
-                          (ttl :a))
+                          (ttl-column :a))
                  (allow-filtering))))
 
 

                              distinct*
                              (as "a"))
                          (-> "longName"
                              ttl
                              (as "ttla")))
                 (limit (? "limit")))))


                              (distinct*)
                              (as "a"))
                          (-> "longName"
                              (ttl-column)
                              (as "ttla")))
                 (where [[:in :k []]])
                 (limit (? "limit")))))
