Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 23 lines (18 sloc) 0.909 kB
19a65bf @daveray rsyntax support. See seesaw.rsyntax/text-area.
authored
1 ; Copyright (c) Dave Ray, 2011. All rights reserved.
2
3 ; The use and distribution terms for this software are covered by the
4 ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
5 ; which can be found in the file epl-v10.html at the root of this
6 ; distribution.
7 ; By using this software in any fashion, you are agreeing to be bound by
8 ; the terms of this license.
9 ; You must not remove this notice, or any other, from this software.
10
11 (ns seesaw.test.rsyntax
12 (:require [seesaw.rsyntax :as rsyntax]
13 [seesaw.core :as core])
14 (:use [lazytest.describe :only (describe it testing)]
15 [lazytest.expect :only (expect)]))
16
17 (describe text-area
18 (it "creates a text area"
19 (let [ta (rsyntax/text-area :syntax :clojure)]
20 (expect (instance? org.fife.ui.rsyntaxtextarea.RSyntaxTextArea ta))
21 (expect (= "text/clojure" (core/config ta :syntax))))))
22
Something went wrong with that request. Please try again.