   (FGTestAppContainer/createAndInit c-var))
 
 (defn check-property [container target property expected-value]
-  (let [result (test/is (= expected-value (.getProperty container target property)))]
-    (if (map? result) result)))
+  (test/is (= expected-value (.getProperty container target property))))
 
 (defn get-property [container target property] (.getProperty container target property))
 

  ([container str] (.evolve container (create-string-type-events str))))


;;
;; Utilities for working with components
;;

(defn wait-table-model-coords-shown [container table-path coords]
  (wait-for-property-pred container table-path :in-use-model
                              (fn [v] (let [sc->id (:screen-coord->cell-id v)]
                                        (= (set coords) (set (map (fn [[k _cid]] k) sc->id)))))))
                             (inc a)
                             (.getProperty container target property)))
                         v))]
    (test/is (pred actual-value))))

;;
;; Mouse
