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