X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Flanguage%2Fcontrol%2Fdefine.at;h=8f1c8dea8db61b993a663ab5852db9273a0a2fd1;hb=69bf3f901b0a949cfa957950f55df78d0c86a765;hp=5117f0886ead380fccec4bbb97a8e9d136013606;hpb=3fb2ac68e205bfb0d64529ca384db81011ea1135;p=pspp

diff --git a/tests/language/control/define.at b/tests/language/control/define.at
index 5117f0886e..8f1c8dea8d 100644
--- a/tests/language/control/define.at
+++ b/tests/language/control/define.at
@@ -344,4 +344,11 @@ note: unexpanded token "x"
 note: unexpanded token "/"
 note: unexpanded token "arg2"
 note: unexpanded token "="
-note: unexpanded token "y"])
\ No newline at end of file
+note: unexpanded token "y"])
+
+PSPP_CHECK_MACRO_EXPANSION([default keyword arguments],
+  [DEFINE !k(arg1 = !DEFAULT(a b c) !CMDEND) k(!arg1) !ENDDEFINE],
+  [!k arg1=x.
+!k],
+  [k(x)
+k(a b c)])
\ No newline at end of file