test a constructor that does not take named parameters

testing-node-constructor.org

add a constructor that does not take named parameters

(cl-defstruct (org-roam-node (:constructor org-roam-node-create)
                             (:constructor org-roam-node-create-from-db
                                           (title
                                            id file file-title level todo
                                            pos priority scheduled deadline 
                                            properties olp atime  mtime tags
                                            aliases refs))
                             (:copier nil))
  "A heading or top level file with an assigned ID property."
  file file-title file-hash file-atime file-mtime
  id level point todo priority scheduled deadline title properties olp
  tags aliases refs)

test the original constructor 50,000 times

(defun dmg-test-create-node (row)
;; (org-roam-node-create &key FILE FILE-TITLE FILE-HASH FILE-ATIME FILE-MTIME
;;                            ID LEVEL POINT TODO PRIORITY
;;                            SCHEDULED DEADLINE TITLE PROPERTIES OLP
;;                           TAGS ALIASES REFS
;;                           DEADLINE TITLE PROPERTIES OLP TAGS ALIASES REFS)
       (pcase-let* ((`(,id ,file ,file-title ,level ,todo
                           ,pos ,priority
                           ,scheduled ,deadline ,title ,properties ,olp
                           ,atime ,mtime
                           ,tags ,aliases ,refs)
                     row)
                    )
         (org-roam-node-create 
                                         :file file
                                         :file-title file-title
                                         ;; file-hash
                                         :file-atime atime
                                         :file-mtime mtime
                                         
                                         :id id
                                         :level level
                                         :point pos
                                         :todo todo
                                         :priority priority
                                         
                                         :scheduled scheduled
                                         :deadline deadline
                                         :title title
                                         :properties properties
                                         :olp olp
                                         
                                         :tags tags
                                         :aliases aliases
                                         :refs refs))
       )
(defun dmg-test-function ()
  (dmg-test-create-node '("a" "b" "c" "d" "e" 
                          "f" "g" "h" "i" "j" 
                          "k" "l" "m" "n" "o"
                          (123 235 989) "q"; "r"
                         ; "s" "t"
                          )))
(defun dmg-test-function2()
  (dotimes (i 50000)
    (dmg-test-function)))


(cl-loop
 for i from 1 to 10
 collect (benchmark-run 1 (dmg-test-function2)))

8.291723000000001	2	0.35438299999999856
8.275446	2	0.3538370000000022
8.299617000000001	2	0.35394900000000007
8.515779	3	0.5367329999999981
8.328516	2	0.36029200000000117
8.307819	2	0.355912
8.467845	3	0.5321849999999984
8.273314000000001	2	0.3548100000000005
8.275208000000001	2	0.3566400000000023
8.452517	3	0.5341159999999974

test the new constructor (50,000 times)

(defun dmg-test-create-node (row)

;; (org-roam-node-create &key FILE FILE-TITLE FILE-HASH FILE-ATIME FILE-MTIME
;;                            ID LEVEL POINT TODO PRIORITY
;;                            SCHEDULED DEADLINE TITLE PROPERTIES OLP
;;                           TAGS ALIASES REFS
;;                           DEADLINE TITLE PROPERTIES OLP TAGS ALIASES REFS)
;;       (pcase-let* ((`(,id ,file ,file-title ,level ,todo
;;                           ,pos ,priority
;;                           ,scheduled ,deadline ,title ,properties ,olp
;;                           ,atime ,mtime
;;                           ,tags ,aliases ,refs)
;;                     row)
  (apply 'org-roam-node-create-from-db row)
                   
  )

(defun dmg-test-function ()
  (dmg-test-create-node '("a"  "b" "c" "d" "e" 
                          "f" "g" "h" "i" "j" 
                          "k" "l" "m" "n" "o"
                          (123 235 989) "q"  ; "r"
                         ; "s" "t"
                          )))
(defun dmg-test-function2()
  (dotimes (i 50000)
    (dmg-test-function)))


(cl-loop
 for i from 1 to 10
 collect (benchmark-run 1 (dmg-test-function2)))

0.6343329999999999	0	0.0
0.774897	1	0.17708200000000218
0.59554	0	0.0
0.599468	0	0.0
0.773027	1	0.17655199999999738
0.59623	0	0.0
0.598291	0	0.0
0.7716299999999999	1	0.17652800000000113
0.5958129999999999	0	0.0
0.774053	1	0.17709299999999928