test: add a test to cover presence of buffer in windows

AdrieanKhisbe · Oct 9, 2017 · 98cdc40 · 98cdc40
1 parent bcb1be0
commit 98cdc40
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/features/omni-scratch.feature b/features/omni-scratch.feature
@@ -76,3 +76,4 @@ Feature: Quickly edit some program
     And I call with universal arg "omni-scratch"
     Then I should be in buffer "*scratch:draft*"
     And I should have 2 windows
+    And I should have "my-program" buffer as window
diff --git a/features/step-definitions/omni-scratch-steps.el b/features/step-definitions/omni-scratch-steps.el
@@ -31,5 +31,11 @@
        (execute-kbd-macro v))))
 
 (Then "^I should have \\([0-9]+\\) windows$"
-     (lambda (nwindow)
-       (equal nwindow (length (get-buffer-window-list)))))
+      (lambda (nwindow)
+        (let ((windows (get-buffer-window-list)))
+          (eq nwindow (length windows)))))
+
+(Then "^I should have \"\\([^\"]+\\)\" buffer as window$"
+     (lambda (buffername)
+       (member (mapcar (lambda (bn) (equal bn buffername))
+                       (mapcar 'buffer-name (mapcar 'window-buffer (get-buffer-window-list)))) t)))