Small changesexternals/test-simple

update elisp-comp. In testing, make sure we have *test-simple*

6 files changed, 37 insertions, 14 deletions

diff --git a/elisp-comp b/elisp-comp
index ecc6b15..73a5eda 100755
--- a/elisp-comp
+++ b/elisp-comp
@@ -1,8 +1,7 @@
 #!/bin/sh
-# Copyright (C) 1995, 2000, 2003, 2004, 2005, 2009, 2010 Free Software
-# Foundation, Inc.
+# Copyright (C) 1995-2012 Free Software Foundation, Inc.
 
-scriptversion=2010-02-06.18; # UTC
+scriptversion=2013-03-27.22
 
 # Franc,ois Pinard <pinard@iro.umontreal.ca>, 1995.
 #
@@ -30,16 +29,16 @@ scriptversion=2010-02-06.18; # UTC
 
 case $1 in
   '')
-     echo "$0: No files.  Try \`$0 --help' for more information." 1>&2
+     echo "$0: No files.  Try '$0 --help' for more information." 1>&2
      exit 1;
      ;;
   -h | --h*)
     cat <<\EOF
 Usage: elisp-comp [--help] [--version] FILES...
 
-This script byte-compiles all `.el' files listed as FILES using GNU
-Emacs, and put the resulting `.elc' files into the current directory,
-so disregarding the original directories used in `.el' arguments.
+This script byte-compiles all '.el' files listed as FILES using GNU
+Emacs, and put the resulting '.elc' files into the current directory,
+so disregarding the original directories used in '.el' arguments.
 
 This script manages in such a way that all Emacs LISP files to
 be compiled are made visible between themselves, in the event
@@ -71,14 +70,14 @@ trap "ret=130; $do_exit" 2
 trap "ret=141; $do_exit" 13
 trap "ret=143; $do_exit" 15
 
-mkdir $tempdir
-cp "$@" $tempdir
+# mkdir $tempdir
+# cp "$@" $tempdir
 
 (
-  cd $tempdir
-  echo "(setq load-path (cons nil load-path))" > script
+  # cd $tempdir
+  echo "(setq load-path (cons nil (cons \"$abs_srcdir\" load-path)))" > script
   $EMACS -batch -q -l script -f batch-byte-compile *.el || exit $?
-  mv *.elc ..
+  # mv *.elc ..
 ) || exit $?
 
 (exit 0); exit 0
diff --git a/test-simple.el b/test-simple.el
index 7d6ded3..26c691f 100644
--- a/test-simple.el
+++ b/test-simple.el
@@ -88,6 +88,9 @@
 (require 'time-date)
 
 ;;; Code:
+;; Press C-x C-e at the end of the next line configure the program in
+;; for building via "make" to get set up.
+;; (compile (format "EMACSLOADPATH=:%s ./autogen.sh" (file-name-directory (locate-library "test-simple.elc")) ))
 
 (require 'cl-lib)
 
diff --git a/test/test-basic.el b/test/test-basic.el
index b9c6314..d8c2fba 100644
--- a/test/test-basic.el
+++ b/test/test-basic.el
@@ -1,5 +1,5 @@
 ;;; test-simple.el --- Simple Unit Test Framework for Emacs Lisp
-;; Copyright (C) 2015 Free Software Foundation, Inc
+;; Copyright (C) 2015, 2026 Free Software Foundation, Inc
 ;; Author: Rocky Bernstein <rocky@gnu.org>
 ;; This program is free software: you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -14,8 +14,14 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see
 ;; <http://www.gnu.org/licenses/>.
+
+;; Press C-x C-e at the end of the next line to run this file test non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory (locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'cl-lib)
 (load-file "../test-simple.el")
+(get-buffer-create "*test-simple*")
+
 (test-simple-start "test-simple.el")
 
 (note "basic-tests")
diff --git a/test/test-buffer.el b/test/test-buffer.el
index edef897..30d4399 100644
--- a/test/test-buffer.el
+++ b/test/test-buffer.el
@@ -14,6 +14,11 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see
 ;; <http://www.gnu.org/licenses/>.
+
+;; Press C-x C-e at the end of the next line to run this file test non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory (locate-library "test-simple.elc")) buffer-file-name)
+
+
 (load-file "../test-simple.el")
 (test-simple-start "test-simple.el")
 
diff --git a/test/test-fns.el b/test/test-fns.el
index cad655e..24e85e5 100644
--- a/test/test-fns.el
+++ b/test/test-fns.el
@@ -1,5 +1,5 @@
 ;;; test-simple.el --- Simple Unit Test Framework for Emacs Lisp
-;; Copyright (C) 2015 Free Software Foundation, Inc
+;; Copyright (C) 2015, 2026 Free Software Foundation, Inc
 ;; Author: Rocky Bernstein <rocky@gnu.org>
 ;; This program is free software: you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -14,6 +14,10 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see
 ;; <http://www.gnu.org/licenses/>.
+
+;; Press C-x C-e at the end of the next line to run this file test non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory (locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'cl-lib)
 (load-file "../test-simple.el")
 (test-simple-clear)
diff --git a/test/test-no-clear.el b/test/test-no-clear.el
index 748baa0..9a71f33 100644
--- a/test/test-no-clear.el
+++ b/test/test-no-clear.el
@@ -14,8 +14,14 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see
 ;; <http://www.gnu.org/licenses/>.
+
+;; Press C-x C-e at the end of the next line to run this file test non-interactively
+;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory (locate-library "test-simple.elc")) buffer-file-name)
+
 (require 'cl-lib)
 (load-file "../test-simple.el")
+(get-buffer-create "*test-simple*")
+
 ;; We don't do this or test-simple-start
 ;; (test-simple-clear)