clucumber 0.2.0 → 0.3.0

data/lib/clucumber/packages.lisp

@@ -6,7 +6,8 @@
            #:Given* #:When* #:Then*
            #:Before #:After
            #:pending #:fail
-           #:var)
+           #:var
+           #:table-equal)
   (:use #:cl #:cl-interpol))
 
 (cl:defpackage #:clucumber-user

data/lib/clucumber/server.lisp

@@ -31,15 +31,17 @@
                            :key (lambda (path)
                                   (enough-namestring path base-pathname))))))))
 
-(defun serve-cucumber-requests (socket &aux (stream (socket-stream socket)))
+(defvar *stream*)
+
+(defun serve-cucumber-requests (socket &aux (*stream* (socket-stream socket)))
   (handler-case
       (loop
-        (let* ((line (read-line stream))
+        (let* ((line (read-line *stream*))
                (message (read-json line nil))
                (reply (call-wire-protocol-method message)))
-          (st-json:write-json reply stream)
-          (terpri stream)
-          (finish-output stream)))
+          (st-json:write-json reply *stream*)
+          (terpri *stream*)
+          (finish-output *stream*)))
     (end-of-file nil nil)))
 
 
@@ -240,3 +242,12 @@
 
 (defun reset-state ()
   (clrhash *variables*))
+
+;;; Table diffing:
+
+(defun clucumber-steps:table-equal (expected actual)
+  (st-json:write-json (list "diff" (list expected actual)) *stream*)
+  (terpri *stream*)
+  (finish-output *stream*)
+  (let ((reply-line (read-line *stream*)))
+    (string= "diff_ok" (first (read-json reply-line nil)))))

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: clucumber
 version: !ruby/object:Gem::Version 
-  hash: 23
+  hash: 19
   prerelease: false
   segments: 
   - 0
-  - 2
+  - 3
   - 0
-  version: 0.2.0
+  version: 0.3.0
 platform: ruby
 authors: 
 - Andreas Fuchs
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-07-11 00:00:00 +02:00
+date: 2010-07-13 00:00:00 +02:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency