[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector 2af90a4c82 83/93: tests: fixes
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector 2af90a4c82 83/93: tests: fixes |
Date: |
Tue, 24 May 2022 18:58:02 -0400 (EDT) |
branch: externals/inspector
commit 2af90a4c82b4cefd587045a105845d5bff40adaf
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>
tests: fixes
---
inspector-tests.el | 140 ++++++++++++++++++++++++++---------------------------
1 file changed, 70 insertions(+), 70 deletions(-)
diff --git a/inspector-tests.el b/inspector-tests.el
index 473b45965b..97e9779a7e 100644
--- a/inspector-tests.el
+++ b/inspector-tests.el
@@ -25,7 +25,7 @@
;;; Commentary:
-;; Tool for inspection of Emacs Lisp objects.
+;; Tests for inspector package
;;; Code:
@@ -35,60 +35,60 @@
(ert-deftest inspector-tests--inspect-integer-test ()
(inspector-inspect 22)
(let ((buffer-string (buffer-string)))
- (should (search "22" buffer-string))
- (should (search "integer" buffer-string)))
+ (should (cl-search "22" buffer-string))
+ (should (cl-search "integer" buffer-string)))
(inspector-quit))
(ert-deftest inspector-tests--inspect-float-test ()
(inspector-inspect 2.22)
(let ((buffer-string (buffer-string)))
- (should (search "2.22" buffer-string))
- (should (search "float" buffer-string)))
+ (should (cl-search "2.22" buffer-string))
+ (should (cl-search "float" buffer-string)))
(inspector-quit))
(ert-deftest inspector-tests--inspect-character-test ()
(inspector-inspect ?a)
(let ((buffer-string (buffer-string)))
- (should (search "character" buffer-string))
- (should (search "97" buffer-string))
+ (should (cl-search "character" buffer-string))
+ (should (cl-search "97" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-symbol-test ()
(inspector-inspect 'abcd)
(let ((buffer-string (buffer-string)))
- (should (search "abcd" buffer-string))
- (should (search "symbol" buffer-string))
+ (should (cl-search "abcd" buffer-string))
+ (should (cl-search "symbol" buffer-string))
(inspector-quit))
(inspector-inspect :abcd)
(let ((buffer-string (buffer-string)))
- (should (search "abcd" buffer-string))
- (should (search "symbol" buffer-string))
+ (should (cl-search "abcd" buffer-string))
+ (should (cl-search "symbol" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-list-test ()
(inspector-inspect '(1 2 3))
(let ((buffer-string (buffer-string)))
- (should (search "list" buffer-string))
- (should (search "1" buffer-string))
- (should (search "2" buffer-string))
- (should (search "3" buffer-string))
+ (should (cl-search "list" buffer-string))
+ (should (cl-search "1" buffer-string))
+ (should (cl-search "2" buffer-string))
+ (should (cl-search "3" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-vector-test ()
(inspector-inspect [1 "two" (three)])
(let ((buffer-string (buffer-string)))
- (should (search "vector" buffer-string))
- (should (search "1" buffer-string))
- (should (search "two" buffer-string))
- (should (search "three" buffer-string))
+ (should (cl-search "vector" buffer-string))
+ (should (cl-search "1" buffer-string))
+ (should (cl-search "two" buffer-string))
+ (should (cl-search "three" buffer-string))
(inspector-quit)))
;; Long lists are to be sliced:
(ert-deftest inspector-tests--inspect-long-list-test ()
(inspector-inspect (cl-loop for i from 1 to 3000 collect i))
(let ((buffer-string (buffer-string)))
- (should (search "more" buffer-string))
+ (should (cl-search "more" buffer-string))
(should (< (count-lines (point-min) (point-max)) 120)))
(inspector-quit))
@@ -97,89 +97,89 @@
(ert-deftest inspector-tests--inspect-char-table-test ()
(inspector-inspect ascii-case-table)
(let ((buffer-string (buffer-string)))
- (should (search "char-table" buffer-string))
+ (should (cl-search "char-table" buffer-string))
(inspector-quit))
(inspector-inspect (make-display-table))
(let ((buffer-string (buffer-string)))
- (should (search "char-table" buffer-string))
+ (should (cl-search "char-table" buffer-string))
(inspector-quit))
(inspector-inspect (standard-syntax-table))
(let ((buffer-string (buffer-string)))
- (should (search "char-table" buffer-string))
+ (should (cl-search "char-table" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-bool-vector-test ()
(inspector-inspect (make-category-set "al"))
(let ((buffer-string (buffer-string)))
- (should (search "bool-vector" buffer-string))
+ (should (cl-search "bool-vector" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-nil-test ()
(inspector-inspect nil)
(let ((buffer-string (buffer-string)))
- (should (search "nil" buffer-string))
+ (should (cl-search "nil" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-cons-test ()
(inspector-inspect (cons 1 2))
(let ((buffer-string (buffer-string)))
- (should (search "cons" buffer-string))
- (should (search "1" buffer-string))
- (should (search "2" buffer-string))
+ (should (cl-search "cons" buffer-string))
+ (should (cl-search "1" buffer-string))
+ (should (cl-search "2" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-alist-test ()
(inspector-inspect '((a . 33) (b . 44)))
(let ((buffer-string (buffer-string)))
(when inspector-use-specialized-inspectors-for-lists
- (should (search "association list" buffer-string)))
- (should (search "a" buffer-string))
- (should (search "b" buffer-string))
- (should (search "33" buffer-string))
- (should (search "44" buffer-string))
+ (should (cl-search "association list" buffer-string)))
+ (should (cl-search "a" buffer-string))
+ (should (cl-search "b" buffer-string))
+ (should (cl-search "33" buffer-string))
+ (should (cl-search "44" buffer-string))
(inspector-quit)))
-(ert-deftest inspecto-tests--inspect-plist-test ()
+(ert-deftest inspector-tests--inspect-plist-test ()
(inspector-inspect '(:a 33 :b 44))
(let ((buffer-string (buffer-string)))
(when inspector-use-specialized-inspectors-for-lists
- (should (search "property list" buffer-string)))
- (should (search "a" buffer-string))
- (should (search "b" buffer-string))
- (should (search "33" buffer-string))
- (should (search "44" buffer-string))
+ (should (cl-search "property list" buffer-string)))
+ (should (cl-search "a" buffer-string))
+ (should (cl-search "b" buffer-string))
+ (should (cl-search "33" buffer-string))
+ (should (cl-search "44" buffer-string))
(inspector-quit))
(inspector-inspect '(a 33 b 44))
(let ((buffer-string (buffer-string)))
(when inspector-use-specialized-inspectors-for-lists
- (should (search "property list" buffer-string)))
- (should (search "a" buffer-string))
- (should (search "b" buffer-string))
- (should (search "33" buffer-string))
- (should (search "44" buffer-string))
+ (should (cl-search "property list" buffer-string)))
+ (should (cl-search "a" buffer-string))
+ (should (cl-search "b" buffer-string))
+ (should (cl-search "33" buffer-string))
+ (should (cl-search "44" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--inspect-hash-table-test ()
(inspector-inspect (let ((table (make-hash-table)))
- (puthash :a 22 table)
- (puthash :b "foo" table)
- table))
+ (puthash :a 22 table)
+ (puthash :b "foo" table)
+ table))
(let ((buffer-string (buffer-string)))
- (should (search "hash-table" buffer-string))
- (should (search "a" buffer-string))
- (should (search "22" buffer-string))
- (should (search "b" buffer-string))
- (should (search "foo" buffer-string)))
+ (should (cl-search "hash-table" buffer-string))
+ (should (cl-search "a" buffer-string))
+ (should (cl-search "22" buffer-string))
+ (should (cl-search "b" buffer-string))
+ (should (cl-search "foo" buffer-string)))
(inspector-quit))
(ert-deftest inspector-tests--inspect-function-test ()
(inspector-inspect (symbol-function 'car))
(let ((buffer-string (buffer-string)))
- (should (search "function" buffer-string))
- (should (search "car" buffer-string)))
+ (should (cl-search "function" buffer-string))
+ (should (cl-search "car" buffer-string)))
(inspector-quit))
(defun inspector-tests--factorial (integer)
@@ -190,16 +190,16 @@
(ert-deftest inspector-tests--inspect-compiled-function-test ()
(inspector-inspect (byte-compile 'inspector-tests--factorial))
(let ((buffer-string (buffer-string)))
- (should (search "function" buffer-string)))
+ (should (cl-search "function" buffer-string)))
(inspector-quit))
(ert-deftest inspector-tests--inspect-record-test ()
(inspector-inspect (record 'foo 23 [bar baz] "rats"))
(let ((buffer-string (buffer-string)))
- (should (search "record" buffer-string))
- (should (search "foo" buffer-string))
- (should (search "23" buffer-string))
- (should (search "rats" buffer-string)))
+ (should (cl-search "record" buffer-string))
+ (should (cl-search "foo" buffer-string))
+ (should (cl-search "23" buffer-string))
+ (should (cl-search "rats" buffer-string)))
(inspector-quit))
(ert-deftest inspector-tests--inspect-finalizer-test ()
@@ -208,11 +208,11 @@
(ert-deftest inspector-tests--overlays-test ()
(inspector-inspect (make-button 0 10))
(let ((buffer-string (buffer-string)))
- (should (search "overlay" buffer-string)))
+ (should (cl-search "overlay" buffer-string)))
(inspector-quit)
(inspector-inspect (make-overlay 0 10))
(let ((buffer-string (buffer-string)))
- (should (search "overlay" buffer-string)))
+ (should (cl-search "overlay" buffer-string)))
(inspector-quit))
(defclass inspector-tests--person ()
@@ -222,12 +222,12 @@
(ert-deftest inspector-tests--inspect-class-test ()
(inspector-inspect (make-instance 'inspector-tests--person))
(let ((buffer-string (buffer-string)))
- (should (search "name" buffer-string))
- (should (search "John" buffer-string))
- (should (search "age" buffer-string))
- (should (search "40" buffer-string))
+ (should (cl-search "name" buffer-string))
+ (should (cl-search "John" buffer-string))
+ (should (cl-search "age" buffer-string))
+ (should (cl-search "40" buffer-string))
(inspector-quit)))
-
+
(cl-defstruct inspector-tests--rectangle
x y)
@@ -235,10 +235,10 @@
(ert-deftest inspector-tests--inspect-struct-test ()
(inspector-inspect (make-inspector-tests--rectangle :x 30 :y 40))
(let ((buffer-string (buffer-string)))
- (should (search "x" buffer-string))
- (should (search "y" buffer-string))
- (should (search "30" buffer-string))
- (should (search "40" buffer-string))
+ (should (cl-search "x" buffer-string))
+ (should (cl-search "y" buffer-string))
+ (should (cl-search "30" buffer-string))
+ (should (cl-search "40" buffer-string))
(inspector-quit)))
(ert-deftest inspector-tests--slices-test ()
- [elpa] externals/inspector e7f2f13ff4 75/93: Start writing ert tests, (continued)
- [elpa] externals/inspector e7f2f13ff4 75/93: Start writing ert tests, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector b1d60310da 73/93: Patch by Stefan Monnier, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 739890b5d6 70/93: Autoloads?, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 477e363962 82/93: tests: no more side-effects, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector b10f60c20d 89/93: Fontification for each type of object, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 6fadd6df9f 93/93: Create LICENSE, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector d5d286c5de 10/93: inspect-last-sexp command, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 30d739e108 53/93: Slice arrays, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector a9e41424fa 66/93: Update README.md, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 4b193ba6d0 69/93: Don't add [more] button when not needed, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 2af90a4c82 83/93: tests: fixes,
ELPA Syncer <=
- [elpa] externals/inspector 57105aef34 72/93: Update README.md, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 023ae9ca51 92/93: Use value face instead of button face, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector d88d248eef 19/93: Presentation improvements, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 57b46a3079 38/93: Bug fix, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 22869bffb4 47/93: Indentation, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector f534e87d1d 54/93: Slice tests, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 5f7ab9bfb7 06/93: Housekeeping, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 7574ca3ff9 51/93: Slice sequences, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 610d67b358 59/93: Test on property lists, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 970fa60851 68/93: Better horizontal line for title underline, ELPA Syncer, 2022/05/24