 (expect-with-test-data false (GET-card-id :rasta *card:db2-count-of-checkins*))
 (expect-with-test-data false (GET-card-id :rasta *card:db2-sql-count-of-users*))
 
+;; ops user can fetch DB 1 cards of DB 2 Venues cards
 (expect-with-test-data true  (GET-card-id :lucky *card:db1-count-of-venues*))
 (expect-with-test-data true  (GET-card-id :lucky *card:db1-count-of-users*))
 (expect-with-test-data true  (GET-card-id :lucky *card:db1-count-of-checkins*))

(defn- expensive-venues-segment [segment-name table]
  (segment segment-name table (ql/query
                                (ql/source-table (u/get-id table))
                                (ql/filter (ql/= (u/get-id (field table :price)) "4")))))

(defn- todays-users-segment [segment-name table]
  (segment segment-name table (ql/query
                                (ql/source-table (u/get-id table))
                                (ql/filter (ql/= (u/get-id (field table :last_login))
                                                 (ql/relative-datetime :current))))))

(defn- with-segments [f]

  (not= ((test-users/user->client username) :get (str "card/" (u/get-id card)))
        "You don't have permissions to do that."))

;; admin can fetch all 8 cards
(expect-with-test-data true  (GET-card-id :crowberto *card:db1-count-of-venues*))
(expect-with-test-data true  (GET-card-id :crowberto *card:db1-count-of-users*))
(expect-with-test-data true  (GET-card-id :crowberto *card:db1-count-of-checkins*))
