branch: externals/test-simple
commit 502b0d299724256b1bbb08dcff227ac528f1a01a
Author: rocky <[email protected]>
Commit: rocky <[email protected]>
Small changes
update elisp-comp. In testing, make sure we have *test-simple*
---
elisp-comp | 23 +++++++++++------------
test-simple.el | 3 +++
test/test-basic.el | 8 +++++++-
test/test-buffer.el | 5 +++++
test/test-fns.el | 6 +++++-
test/test-no-clear.el | 6 ++++++
6 files changed, 37 insertions(+), 14 deletions(-)
diff --git a/elisp-comp b/elisp-comp
index ecc6b150ba..73a5edac12 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 <[email protected]>, 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 7d6ded33a8..26c691f5a2 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 b9c63144ca..d8c2fba911 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 <[email protected]>
;; 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 edef89776a..30d4399dcc 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 cad655e53b..24e85e572d 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 <[email protected]>
;; 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 748baa0cb2..9a71f33591 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)
