clucumber 0.1.1 → 0.2.0

data/LICENSE

@@ -1,4 +1,4 @@
-Copyright (c) 2009 Andreas Fuchs
+Copyright (c) 2010 Andreas Fuchs
 
 Permission is hereby granted, free of charge, to any person obtaining
 a copy of this software and associated documentation files (the

data/README.md

@@ -34,14 +34,9 @@ In your `features/support/env.rb`, you use something like this:
 
 	require 'clucumber'
 	begin
-	  @main_clucumber = ClucumberSubprocess.new(File.expand_path("../", File.dirname(__FILE__)),
-	                                           :port => 42428)
-	  at_exit do
-	    @main_clucumber.kill
-	  end
-
-	  @main_clucumber.start <<-LISP
-		;; Put code here that loads your application.
+	  ClucumberSubprocess.new(File.expand_path("../", File.dirname(__FILE__)),
+	                          :port => 42428).listen <<-LISP
+            ;; Put code here that loads your application.
 	  LISP
 	rescue PTY::ChildExited
 	  puts(@main_clucumber && @main_clucumber.output)
@@ -55,4 +50,4 @@ Then, on the command line, you run cucumber:
 
 And you watch the green or yellow lines zip by.
 
-To see an example of a test suite that uses clucumber, see  [the features directory in  cl-beanstalk](http://github.com/antifuchs/cl-beanstalk/tree/master/features/). It comes with steps defined in ruby and Common Lisp.
+To see an example of a test suite that uses clucumber, see  [the features directory in  cl-beanstalk](http://github.com/antifuchs/cl-beanstalk/tree/master/features/). It comes with steps defined in ruby and Common Lisp.

data/lib/clucumber/clucumber-bootstrap.lisp

@@ -0,0 +1,32 @@
+(cl:defpackage #:clucumber-bootstrap
+  (:use #:cl))
+
+(cl:in-package #:clucumber-bootstrap)
+
+(defparameter *my-name* *load-truename*)
+(defparameter *vendor-dirs*
+              (mapcar
+               (lambda (potential-dir)
+                 (let ((name (pathname-name potential-dir)))
+                   (if (and name (not (eql name :unspecific)))
+                       (make-pathname :directory `(,@(pathname-directory potential-dir)
+                                                     ,name))
+                       potential-dir)))
+               (directory (merge-pathnames (make-pathname :directory `(,@(pathname-directory *my-name*)
+                                                                         "vendor")
+                                                          :name :wild)))))
+
+(defun vendor-dir-to-system-name (dir)
+  (car (last (pathname-directory dir))))
+
+(require :asdf)
+
+(loop for vendor-dir in *vendor-dirs*
+      for system-name = (vendor-dir-to-system-name vendor-dir)
+      unless (asdf:find-system system-name nil)
+        do (format *trace-output* ";; Loading bundled ~A~%" system-name)
+        and do (load (merge-pathnames (make-pathname :name system-name
+                                                     :type "asd")
+                           vendor-dir)))
+
+(load (merge-pathnames #p"clucumber.asd" *load-truename*))

data/lib/clucumber/vendor/cl-interpol/alias.lisp

@@ -0,0 +1,55 @@
+;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-INTERPOL; Base: 10 -*-
+;;; $Header: /usr/local/cvsrep/cl-interpol/alias.lisp,v 1.3 2008/07/23 14:41:37 edi Exp $
+
+;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved.
+
+;;; Redistribution and use in source and binary forms, with or without
+;;; modification, are permitted provided that the following conditions
+;;; are met:
+
+;;;   * Redistributions of source code must retain the above copyright
+;;;     notice, this list of conditions and the following disclaimer.
+
+;;;   * Redistributions in binary form must reproduce the above
+;;;     copyright notice, this list of conditions and the following
+;;;     disclaimer in the documentation and/or other materials
+;;;     provided with the distribution.
+
+;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
+;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+(in-package :cl-interpol)
+
+;;; define some aliases
+(loop for (alias . name) in '(("LINE FEED" . "LINE FEED \(LF)")
+                              ("FORM FEED" . "FORM FEED \(FF)")
+                              ("CARRIAGE RETURN" . "CARRIAGE RETURN \(CR)")
+                              ("NEXT LINE" . "NEXT LINE \(NEL)")
+                              ("LF" . "LINE FEED \(LF)")
+                              ("FF" . "FORM FEED \(FF)")
+                              ("CR" . "CARRIAGE RETURN \(CR)")
+                              ("NEL" . "NEXT LINE \(NEL)")
+                              ("ZWNJ" . "ZERO WIDTH NON-JOINER")
+                              ("ZWJ" . "ZERO WIDTH JOINER")
+                              ("BYTE ORDER MARK" . "ZERO WIDTH NO-BREAK SPACE")
+                              ("BOM" . "BYTE ORDER MARK")
+                              ("HORIZONTAL TABULATION" . "CHARACTER TABULATION")
+                              ("VERTICAL TABULATION" . "LINE TABULATION")
+                              ("FILE SEPARATOR" . "INFORMATION SEPARATOR FOUR")
+                              ("GROUP SEPARATOR" . "INFORMATION SEPARATOR THREE")
+                              ("RECORD SEPARATOR" . "INFORMATION SEPARATOR TWO")
+                              ("UNIT SEPARATOR" . "INFORMATION SEPARATOR ONE")
+                              ("PARTIAL LINE DOWN" . "PARTIAL LINE FORWARD")
+                              ("PARTIAL LINE UP" . "PARTIAL LINE BACKWARD"))
+      for existing-char = (character-named name)
+      when existing-char
+      do (setf (gethash (canonicalize-name alias) *unicode-aliases*) existing-char))

data/lib/clucumber/vendor/cl-interpol/cl-interpol.asd

@@ -0,0 +1,56 @@
+;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
+;;; $Header: /usr/local/cvsrep/cl-interpol/cl-interpol.asd,v 1.11 2008/07/25 12:51:58 edi Exp $
+
+;;; Copyright (c) 2003-2008, Dr. Edmund Weitz.  All rights reserved.
+
+;;; Redistribution and use in source and binary forms, with or without
+;;; modification, are permitted provided that the following conditions
+;;; are met:
+
+;;;   * Redistributions of source code must retain the above copyright
+;;;     notice, this list of conditions and the following disclaimer.
+
+;;;   * Redistributions in binary form must reproduce the above
+;;;     copyright notice, this list of conditions and the following
+;;;     disclaimer in the documentation and/or other materials
+;;;     provided with the distribution.
+
+;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
+;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+(in-package :cl-user)
+
+(defpackage :cl-interpol-asd
+  (:use :cl :asdf))
+
+(in-package :cl-interpol-asd)
+
+(defsystem :cl-interpol
+  :version "0.2.1"
+  :serial t
+  :depends-on (:cl-unicode)
+  :components ((:file "packages")
+               (:file "specials")
+               (:file "util")
+               (:file "alias")
+               (:file "read")))
+
+(defsystem :cl-interpol-test
+  :depends-on (:cl-interpol :flexi-streams)
+  :components ((:module "test"
+                        :serial t
+                        :components ((:file "packages")
+                                     (:file "tests")))))
+
+(defmethod perform ((o test-op) (c (eql (find-system :cl-interpol))))
+  (operate 'load-op :cl-interpol-test)
+  (funcall (intern (symbol-name :run-all-tests) (find-package :cl-interpol-test))))

data/lib/clucumber/vendor/cl-interpol/load.lisp

@@ -0,0 +1,53 @@
+;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
+;;; $Header: /usr/local/cvsrep/cl-interpol/load.lisp,v 1.1 2003/10/19 15:56:51 edi Exp $
+
+;;; Copyright (c) 2002-2003, Dr. Edmund Weitz.  All rights reserved.
+
+;;; Redistribution and use in source and binary forms, with or without
+;;; modification, are permitted provided that the following conditions
+;;; are met:
+
+;;;   * Redistributions of source code must retain the above copyright
+;;;     notice, this list of conditions and the following disclaimer.
+
+;;;   * Redistributions in binary form must reproduce the above
+;;;     copyright notice, this list of conditions and the following
+;;;     disclaimer in the documentation and/or other materials
+;;;     provided with the distribution.
+
+;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
+;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+(in-package #:cl-user)
+
+(defparameter *cl-interpol-base-directory*
+  (make-pathname :name nil :type nil :version nil
+                 :defaults (parse-namestring *load-truename*)))
+
+(loop for file in '("packages"
+                    "specials"
+                    "util"
+                    "unicode"
+                    "read")
+      do (let ((pathname (make-pathname :name file :type "lisp" :version nil
+                                        :defaults *cl-interpol-base-directory*)))
+           #-:cormanlisp
+           (let ((compiled-pathname (compile-file-pathname pathname)))
+             (unless (probe-file compiled-pathname)
+               (compile-file pathname))
+             (setq pathname compiled-pathname))
+           (load pathname)))
+
+
+
+
+

data/lib/clucumber/vendor/cl-interpol/packages.lisp

@@ -0,0 +1,40 @@
+;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
+;;; $Header: /usr/local/cvsrep/cl-interpol/packages.lisp,v 1.11 2008/07/23 15:35:07 edi Exp $
+
+;;; Copyright (c) 2003-2008, Dr. Edmund Weitz. All rights reserved.
+
+;;; Redistribution and use in source and binary forms, with or without
+;;; modification, are permitted provided that the following conditions
+;;; are met:
+
+;;;   * Redistributions of source code must retain the above copyright
+;;;     notice, this list of conditions and the following disclaimer.
+
+;;;   * Redistributions in binary form must reproduce the above
+;;;     copyright notice, this list of conditions and the following
+;;;     disclaimer in the documentation and/or other materials
+;;;     provided with the distribution.
+
+;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
+;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+(in-package :cl-user)
+
+(defpackage :cl-interpol
+  (:nicknames :interpol)
+  (:use :cl :cl-unicode :cl-ppcre)
+  (:export :enable-interpol-syntax
+           :disable-interpol-syntax
+           :*list-delimiter*
+           :*outer-delimiters*
+           :*inner-delimiters*
+	   :*optional-delimiters-p*))