Skip to content
Browse files

Commit update of test suite from `stefil` to `hu.dwim.stefil`

  • Loading branch information...
1 parent 9bf9332 commit 14e219a748a50d7e9bf09f3d16c97a8b0d861ac4 @Ramarren committed Jan 14, 2011
Showing with 7 additions and 17 deletions.
  1. +1 −1 parser-combinators-tests.asd
  2. +1 −3 test-arithmetic.lisp
  3. +1 −3 test-basic.lisp
  4. +1 −3 test-expression.lisp
  5. +1 −3 test-parsers.lisp
  6. +2 −4 test-root.lisp
View
2 parser-combinators-tests.asd
@@ -4,7 +4,7 @@
:maintainer "Jakub Higersberger <ramarren@gmail.com>"
:author "Jakub Higersberger <ramarren@gmail.com>"
:licence "BSD-style"
- :depends-on (:stefil :iterate :alexandria :parser-combinators :infix :bpm)
+ :depends-on (:hu.dwim.stefil :iterate :alexandria :parser-combinators :infix :bpm)
:components ((:file "test-root")
(:file "test-basic" :depends-on ("test-root"))
(:file "test-parsers" :depends-on ("test-root"))
View
4 test-arithmetic.lisp
@@ -1,8 +1,6 @@
(in-package :parser-combinators-tests)
-(in-suite parser-combinators-tests)
-
-(defsuite* arithmetic-test)
+(defsuite* (arithmetic-test :in parser-combinators-tests))
;;; define parser for basic +-*/ arithmetic on natural numbers (no negatives)
View
4 test-basic.lisp
@@ -1,8 +1,6 @@
(in-package :parser-combinators-tests)
-(in-suite parser-combinators-tests)
-
-(defsuite* basics-tests)
+(defsuite* (basics-tests :in parser-combinators-tests))
(deftest test-parse-string ()
(let ((parse-result (parse-string (between? #\a nil nil 'string) "aaa")))
View
4 test-expression.lisp
@@ -1,8 +1,6 @@
(in-package :parser-combinators-tests)
-(in-suite parser-combinators-tests)
-
-(defsuite* expression-test)
+(defsuite* (expression-test :in parser-combinators-tests))
;;; parser for basic +-*/ arithmetic with subexpressions and negation
View
4 test-parsers.lisp
@@ -1,8 +1,6 @@
(in-package :parser-combinators-tests)
-(in-suite parser-combinators-tests)
-
-(defsuite* parsers-tests)
+(defsuite* (parsers-tests :in parser-combinators-tests))
;;; test for predefined parsers
;;; at least some of them, this is boring, write automatic genetor
View
6 test-root.lisp
@@ -1,7 +1,5 @@
-(defpackage :parser-combinators-tests (:use :cl :stefil :iterate :parser-combinators :alexandria :bpm))
+(defpackage :parser-combinators-tests (:use :cl :hu.dwim.stefil :iterate :parser-combinators :alexandria :bpm))
(in-package :parser-combinators-tests)
-(in-root-suite)
-
-(defsuite parser-combinators-tests)
+(defsuite* (parser-combinators-tests :in root-suite))

0 comments on commit 14e219a

Please sign in to comment.
Something went wrong with that request. Please try again.