dnl PSPP - a program for statistical analysis.
dnl Copyright (C) 2017 Free Software Foundation, Inc.
dnl
dnl This program is free software: you can redistribute it and/or modify
dnl it under the terms of the GNU General Public License as published by
dnl the Free Software Foundation, either version 3 of the License, or
dnl (at your option) any later version.
dnl
dnl This program is distributed in the hope that it will be useful,
dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
dnl GNU General Public License for more details.
dnl
dnl You should have received a copy of the GNU General Public License
dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
dnl
AT_BANNER([DEFINE])

AT_SETUP([simple macro expansion])
AT_DATA([define.sps], [dnl
DEFINE !macro()
a b c d
e f g h.
i j k l
1,2,3,4.
5+6+7.
m(n,o).
"a" "b" "c" 'a' 'b' 'c'.
"x "" y".
!ENDDEFINE.
DEBUG EXPAND.
!macro()
])
AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
a b c d e f g h.
i j k l 1, 2, 3, 4.
5 + 6 + 7.
m(n, o).
"a" "b" "c" 'a' 'b' 'c'.
"x "" y".
])
AT_CLEANUP

AT_SETUP([macro expansion with arguments])
AT_DATA([define.sps], [dnl
DEFINE !t1(!positional !tokens(1)) (!1) !ENDDEFINE.
DEFINE !t2(!positional !tokens(2)) (!1) !ENDDEFINE.
DEFINE !ce(!positional !charend('/')) (!1) !ENDDEFINE.
DEBUG EXPAND.
!t1 a.
!t1 b.
!t1 a b.

!t2 a b.
!t2 b c d.

!ce x y z/.
])
AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
(a)

(b)

(a)

(a b)

(b c)

(x y z)
])
AT_CLEANUP