Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 31 lines (27 sloc) 1.293 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
; Copyright (c) Dave Ray, 2011. All rights reserved.

; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
; which can be found in the file epl-v10.html at the root of this
; distribution.
; By using this software in any fashion, you are agreeing to be bound by
; the terms of this license.
; You must not remove this notice, or any other, from this software.

(ns seesaw.test.timer
  (:use seesaw.timer)
  (:use [lazytest.describe :only (describe it testing)]
        [lazytest.expect :only (expect)])
  (:import [javax.swing Action]))

(describe timer
  (it "Creates a timer for a handler function and calls it"
    (let [called (atom nil)
          t (timer #(inc (reset! called %)) :start? false :initial-value 99)]
      (.actionPerformed (first (.getActionListeners t)) nil)
      (expect (= 99 @called))
      (.actionPerformed (first (.getActionListeners t)) nil)
      (expect (= 100 @called))))

  (it "Sets timer properties"
    (let [t (timer identity :start? false :initial-delay 123 :delay 456 :repeats? false)]
      (expect (= 123 (.getInitialDelay t)))
      (expect (= 456 (.getDelay t)))
      (expect (not (.isRunning t)))
      (expect (not (.isRepeats t))))))
Something went wrong with that request. Please try again.