Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

target latest riddley for tests

  • Loading branch information...
commit 15ccf038a6afae06391d34e5279f2fcfa177ce1b 1 parent 360cf8c
@ztellman authored
View
2  .travis.yml
@@ -1,6 +1,6 @@
language: clojure
lein: lein2
-script: lein2 do clean, sleight test :make-odd, test :normal
+script: lein2 sleight test :make-odd; lein2 test
jdk:
- openjdk7
- oraclejdk7
View
2  lein-sleight/project.clj
@@ -2,4 +2,4 @@
:description "A plugin for whole-program transformations via sleight"
:license {:name "MIT License"}
:eval-in-leiningen true
- :dependencies [[leinjacker "0.3.3"]])
+ :dependencies [[leinjacker "0.4.1"]])
View
10 lein-sleight/src/leiningen/sleight.clj
@@ -14,10 +14,12 @@
(utils/merge-projects project {:dependencies [['sleight "0.2.0-SNAPSHOT"]]}))
(defn switch-form [transforms namespaces]
- `(sleight.core/wrap-reader
- (sleight.core/merge-transforms
- ~transforms
- ~namespaces)))
+ `(do
+ (sleight.core/unwrap-reader)
+ (sleight.core/wrap-reader
+ (sleight.core/merge-transforms
+ ~transforms
+ ~namespaces))))
(defn load-form [transforms]
`(do
View
7 project.clj
@@ -2,8 +2,9 @@
:description "whole-program transformations for clojure"
:dependencies []
:profiles {:dev {:dependencies [[org.clojure/clojure "1.5.1"]
- [riddley "0.1.4"]]}}
+ [riddley "0.1.5-SNAPSHOT"]]}}
:plugins [[lein-sleight "0.2.0-SNAPSHOT"]]
- :sleight {:default {:transforms [sleight.transform-test/make-odd]}}
+ :sleight {:default {:transforms [sleight.transform-test/make-odd]}
+ :identity {:transforms []}}
:test-selectors {:make-odd :make-odd
- :normal (complement :make-odd)})
+ :default (complement :make-odd)})
View
10 test/sleight/core_test.clj
@@ -2,23 +2,17 @@
(:require
[clojure.test :refer :all]))
-(defn run-make-odd-test []
+(deftest ^:make-odd test-make-odd
(is (= 2 3))
(is (not= 1 2))
(is (= 2 2))
(is (= 3 3)))
-(deftest ^:make-odd test-make-odd
- (run-make-odd-test))
-
-(defn run-normal-test []
+(deftest test-normal
(is (not= 2 3))
(is (not= 1 2))
(is (= 2 2))
(is (= 3 3)))
-(deftest test-normal
- (run-normal-test))
-
Please sign in to comment.
Something went wrong with that request. Please try again.