From 57ac14e3e27adb09629b5547101295fae44f8847 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Mon, 24 Jun 2019 14:07:59 +0200
Subject: [PATCH] add car cdr tests

---
 test/src/comp-tests.el | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 6a7370a880c..31b2f0f001e 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -32,7 +32,7 @@
 (defvar comp-tests-var1 3)
 
 (ert-deftest  comp-tests-varref ()
-  "Testing cons car cdr."
+  "Testing varref."
   (defun comp-tests-varref-f ()
     comp-tests-var1)
 
@@ -45,6 +45,12 @@
   "Testing cons car cdr."
   (defun comp-tests-list-f ()
     (list 1 2 3))
+  (defun comp-tests-car-f (x)
+    ;; Bcar
+    (car x))
+  (defun comp-tests-cdr-f (x)
+    ;; Bcdr
+    (cdr x))
   (defun comp-tests-car-safe-f (x)
     ;; Bcar_safe
     (car-safe x))
@@ -54,12 +60,28 @@
 
   (byte-compile #'comp-tests-list-f)
   (native-compile #'comp-tests-list-f)
+  (byte-compile #'comp-tests-car-f)
+  (native-compile #'comp-tests-car-f)
+  (byte-compile #'comp-tests-cdr-f)
+  (native-compile #'comp-tests-cdr-f)
   (byte-compile #'comp-tests-car-safe-f)
   (native-compile #'comp-tests-car-safe-f)
   (byte-compile #'comp-tests-cdr-safe-f)
   (native-compile #'comp-tests-cdr-safe-f)
 
   (should (equal (comp-tests-list-f) '(1 2 3)))
+  (should (= (comp-tests-car-f '(1 . 2)) 1))
+  (should (null (comp-tests-car-f nil)))
+  (should (= (condition-case err
+                 (comp-tests-car-f 3)
+               (error 10))
+             10))
+  (should (= (comp-tests-cdr-f '(1 . 2)) 2))
+  (should (null (comp-tests-cdr-f nil)))
+  (should (= (condition-case err
+                 (comp-tests-cdr-f 3)
+               (error 10))
+             10))
   (should (= (comp-tests-car-safe-f '(1 . 2)) 1))
   (should (null (comp-tests-car-safe-f 'a)))
   (should (= (comp-tests-cdr-safe-f '(1 . 2)) 2))
-- 
2.39.5