Add function to list package versions and freeze versions in test script

lisp/init-misc.el

@@ -25,6 +25,14 @@
 ;; to prevent kill and yank commands from accessing the clipboard
 (setq x-select-enable-clipboard nil)
 
+(defun my/list-packages-and-versions ()
+  (interactive)
+  (package-initialize)
+  (let ((pkgs (mapcar 'car package-alist)))
+    (dolist (pkg pkgs)
+      (message "%s - %s" 
+      pkg (package-desc-version (cadr (assq pkg package-alist)))))))
+
 (defun my/copy-org-id-at-point ()
   "Copy the ID property of the heading at point to the kill-ring."
   (interactive)

test-startup.sh

@@ -9,5 +9,19 @@ ${EMACS:=emacs} -nw --batch \
                               (user-init-file (expand-file-name "init.el"))
                               (load-path (delq default-directory load-path)))
                            (load-file user-init-file)
+                           (my/list-packages-and-versions)
+                           (straight-freeze-versions)
                            (run-hooks (quote after-init-hook))))'
+
+ls -lrt ./straight/versions
+
+directory="./straight/versions"
+for file in "$directory"/*
+do
+  if [ -f "$file" ]; then
+    cat "$file"
+    echo "-------------------"
+  fi
+done
+
 echo "Startup successful"