!UPCASE

[pspp] / tests / language / control / define.at

diff --git a/tests/language/control/define.at b/tests/language/control/define.at
index 9a13ea45cde5796062422467eb4b5aabda1c524d..fce0e3f832ee2172f28a3a7f5fd54e77f42c9c58 100644 (file)
--- a/tests/language/control/define.at
+++ b/tests/language/control/define.at
@@ -491,3 +491,17 @@ ana.
 nana.
 .])
 
+dnl Keep this test in sync with the examples for !UPCASE in the manual.
+PSPP_CHECK_MACRO_EXPANSION([!UPCASE],
+  [DEFINE !u()
+!UPCASE(freckle).
+!UPCASE('freckle').
+!UPCASE('a b c').
+!UPCASE('A B C').
+!ENDDEFINE.],
+  [!u.],
+  [FRECKLE.
+FRECKLE.
+A B C.
+A B C.])
+