Permalink
Browse files

add an (eval-when ...) when defining a test suite

darcs-hash:20070701155053-f6b0c-96b8a1b8a4d9176438ed86230ffd3f5167545aad.gz
  • Loading branch information...
1 parent 605bdc3 commit 8ff6e601b17300d228d59210bd7c28cfb6c718fc @lcapello lcapello committed Jul 1, 2007
Showing with 28 additions and 14 deletions.
  1. +2 −1 t/accumulation.lisp
  2. +2 −1 t/call-cc.lisp
  3. +2 −1 t/csv.lisp
  4. +2 −1 t/flow-control.lisp
  5. +2 −1 t/http.lisp
  6. +2 −1 t/list.lisp
  7. +2 −1 t/log.lisp
  8. +2 −1 t/matcher.lisp
  9. +2 −1 t/numbers.lisp
  10. +2 −1 t/queue.lisp
  11. +2 −1 t/sequence.lisp
  12. +2 −1 t/sharpl.lisp
  13. +2 −1 t/string.lisp
  14. +2 −1 t/walk.lisp
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.accumulation :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.accumulation :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.accumulation)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.call/cc :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.call/cc :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.call/cc)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.csv :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.csv :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.csv)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.flow-control :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.flow-control :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.flow-control)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.http :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.http :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.http)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.list :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.list :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.list)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.log :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.log :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.log)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.matcher :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.matcher :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.matcher)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.numbers :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.numbers :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.numbers)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.queue :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.queue :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.queue)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.sequence :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.sequence :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.sequence)
View
@@ -1,6 +1,7 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.sharpl :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.sharpl :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.sharpl)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.string :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.string :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.string)
View
@@ -2,7 +2,8 @@
(in-package :it.bese.arnesi.test)
-(def-suite :it.bese.arnesi.walk :in :it.bese.arnesi)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (def-suite :it.bese.arnesi.walk :in :it.bese.arnesi))
(in-suite :it.bese.arnesi.walk)

0 comments on commit 8ff6e60

Please sign in to comment.