X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=tests%2Flanguage%2Fcontrol%2Fdefine.at;h=8ca40cbaba396e853b727753a8589c43fcf568e6;hb=b1b6921cc531da0593ee70b3dd1dd246dbdfbdd1;hp=204ed2efd37f1b183f263923b530777a9dfe1436;hpb=340f224bd085965d5ff724afdafa04759f8a040f;p=pspp

diff --git a/tests/language/control/define.at b/tests/language/control/define.at
index 204ed2efd3..8ca40cbaba 100644
--- a/tests/language/control/define.at
+++ b/tests/language/control/define.at
@@ -41,6 +41,18 @@ m(n, o).
 ])
 AT_CLEANUP
 
+AT_SETUP([redefining a macro])
+AT_DATA([define.sps], [dnl
+DEFINE !macro() 0 !ENDDEFINE.
+DEFINE !macro() 1 !ENDDEFINE.
+DEBUG EXPAND.
+!macro.
+])
+AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
+1
+])
+AT_CLEANUP
+
 AT_SETUP([macro expansion - one !TOKENS(1) positional argument])
 AT_KEYWORDS([TOKENS])
 AT_DATA([define.sps], [dnl