 ;; Combining test into scenarios
 ;;
 
-(def standard-interstep-delay-millis 100)
+(def standard-interstep-delay-millis 1000)
 
 (defn- gen-wait [clause] (list 'Thread/sleep (list '* clause standard-interstep-delay-millis)))
 

     @results))
  ([container property reason] (evolve container property reason [:main])))

(defn event-> [container target event] (.evolve container target event))

(defn create-container-from-file [c-path c-ns c-name]
  (FGTestAppContainer/loadSourceCreateAndInit c-path c-ns c-name))

  (let [scenario (map clause-processor clauses)]
    (list 'clojure.test/deftest scenario-name
          (concat (list 'let ['containers (list 'mapv (list 'fn ['cv] (list 'flatgui.test/create-container 'cv)) container-var-coll)
                              'cc (list 'count 'containers)
                              'container (list 'nth 'containers 0)
                              'container-0 (list 'nth 'containers 0)
                              'container-1 (list 'if (list '< 1 'cc) (list 'nth 'containers 1))
                              'container-2 (list 'if (list '< 2 'cc) (list 'nth 'containers 2))
                              'container-3 (list 'if (list '< 3 'cc) (list 'nth 'containers 3))
                              'container-4 (list 'if (list '< 4 'cc) (list 'nth 'containers 4))]) scenario))))

;;
;; Mouse
