From 041369ee296e8aa26738db0e71ae1ab72b77bb9f Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Fri, 2 Oct 2015 23:43:18 -0400 Subject: [PATCH] test-ascii: make sure there's no Unicode in ASDF --- Makefile | 4 ++-- tools/main.lisp | 2 +- tools/test-basic.lisp | 7 +++++++ 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/Makefile b/Makefile index 9076d7cdf..4518f5c83 100644 --- a/Makefile +++ b/Makefile @@ -59,8 +59,8 @@ build_asdf build/asdf.lisp: force # The text below was automaticaly generated by `make --silent makefile-targets` # then manually inserted here to provide for completion: -.PHONY: archive build-asdf bump bump-version check-all-results check-all-scripts-results check-all-upgrade-results clean debian-package doc extract extract-all-tagged-asdf extract-tagged-asdf fix-local-git-tags fix-remote-git-tags git-all-committed-p help install install-asdf link-archive load make-and-publish-archive make-archive makefile-targets merge-master-into-release publish-archive publish-debian-package push re show-commands t test test-all test-all-clean-load test-all-no-stop test-all-no-upgrade test-all-no-upgrade-no-stop test-all-scripts test-all-scripts-no-stop test-all-upgrade test-all-upgrade-no-stop test-basic test-clean-load test-load-systems test-scripts test-upgrade u wc website +.PHONY: archive build-asdf bump bump-version check-all-results check-all-scripts-results check-all-upgrade-results clean debian-package doc extract extract-all-tagged-asdf extract-tagged-asdf fix-local-git-tags fix-remote-git-tags git-all-committed-p help install install-asdf link-archive load make-and-publish-archive make-archive makefile-targets merge-master-into-release publish-archive publish-debian-package push re show-commands t test test-all test-all-clean-load test-all-no-stop test-all-no-upgrade test-all-no-upgrade-no-stop test-all-scripts test-all-scripts-no-stop test-all-upgrade test-all-upgrade-no-stop test-ascii test-basic test-clean-load test-load-systems test-scripts test-upgrade u wc website -archive build-asdf bump bump-version check-all-results check-all-scripts-results check-all-upgrade-results clean debian-package doc extract extract-all-tagged-asdf extract-tagged-asdf fix-local-git-tags fix-remote-git-tags git-all-committed-p help install install-asdf link-archive load make-and-publish-archive make-archive makefile-targets merge-master-into-release publish-archive publish-debian-package push re show-commands t test test-all test-all-clean-load test-all-no-stop test-all-no-upgrade test-all-no-upgrade-no-stop test-all-scripts test-all-scripts-no-stop test-all-upgrade test-all-upgrade-no-stop test-basic test-clean-load test-load-systems test-scripts test-upgrade u wc website: force +archive build-asdf bump bump-version check-all-results check-all-scripts-results check-all-upgrade-results clean debian-package doc extract extract-all-tagged-asdf extract-tagged-asdf fix-local-git-tags fix-remote-git-tags git-all-committed-p help install install-asdf link-archive load make-and-publish-archive make-archive makefile-targets merge-master-into-release publish-archive publish-debian-package push re show-commands t test test-all test-all-clean-load test-all-no-stop test-all-no-upgrade test-all-no-upgrade-no-stop test-all-scripts test-all-scripts-no-stop test-all-upgrade test-all-upgrade-no-stop test-ascii test-basic test-clean-load test-load-systems test-scripts test-upgrade u wc website: force ${MAKE_SCRIPT} l='$l' L='$L' u='$u' U='$u' v='$v' s='$s' t='$t' $@ diff --git a/tools/main.lisp b/tools/main.lisp index 6a64df890..8bf610cd5 100644 --- a/tools/main.lisp +++ b/tools/main.lisp @@ -47,7 +47,7 @@ The UNIX-y name will be downcased, and any % prefix will be dropped." clean %push merge-master-into-release fix-local-git-tags fix-remote-git-tags ;; git git-all-committed-p bump-version bump ;; version - test-load-systems test-clean-load test-basic %load install-asdf ;; test-basic + test-load-systems test-clean-load test-basic test-ascii %load install-asdf ;; test-basic test %t test-scripts ;; test-scripts test-upgrade u extract-tagged-asdf extract-all-tagged-asdf extract ;; test-upgrade test-all-clean-load test-all-scripts test-all-no-upgrade test-all-upgrade ;; test-all diff --git a/tools/test-basic.lisp b/tools/test-basic.lisp index aece56eb9..8662c9f53 100644 --- a/tools/test-basic.lisp +++ b/tools/test-basic.lisp @@ -58,5 +58,12 @@ Use your preferred lisp implementation and check that asdf is loaded without any "basic test: doc, clean-load, load-systems" (without-stopping () (doc) + (test-ascii) (test-clean-load lisp) (test-load-systems lisp systems))) + +(deftestcmd test-ascii () + "test that asdf is all ASCII" + (success-if + (loop for c across (read-file-string (pn "build/asdf.lisp")) + always (<= 0 (char-code c) 127)))) -- GitLab