[elpa] externals/elisp-benchmarks e106c8d 1/3: Reduce test setup + increase `elb-listlen-tc-len' lenght

[Andrea Corallo]

branch: externals/elisp-benchmarks
commit e106c8df18d43446c2f02d445727dc6564ba2485
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    Reduce test setup + increase `elb-listlen-tc-len' lenght
    
    Try to measure more the recursive call we are interested in than the
    test setup.
---
 benchmarks/listlen-tc.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/benchmarks/listlen-tc.el b/benchmarks/listlen-tc.el
index 02327e5..977605d 100644
--- a/benchmarks/listlen-tc.el
+++ b/benchmarks/listlen-tc.el
@@ -1,6 +1,6 @@
 ;; -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2019 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -23,7 +23,7 @@
 
 (require 'cl-lib)
 
-(defvar elb-listlen-tc-len 300)
+(defvar elb-listlen-tc-len 10000)
 (defvar elb-listlen-tc-list
   (mapcar #'random (make-list elb-listlen-tc-len 100)))
 
@@ -34,8 +34,10 @@
     (elb-listlen-tc (cdr l) n)))
 
 (defun elb-listlen-tc-entry ()
-  (let ((l (copy-sequence elb-listlen-tc-list)))
-    (cl-loop repeat 350000
-            do (elb-listlen-tc l 0))))
+  (let* ((n (+ 1000 elb-listlen-tc-len))
+        (max-lisp-eval-depth n)
+        (max-specpdl-size n))
+    (cl-loop repeat 10000
+            do (elb-listlen-tc elb-listlen-tc-list 0))))
 
 (provide 'listlen-tc)