tests/m4.at

   1 # Basic m4 macros.                               -*- Autotest -*-
   2
   3 # Copyright (C) 2020-2021 Free Software Foundation, Inc.
   4
   5 # This program is free software: you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation, either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  17
  18 AT_BANNER([[M4 Macros.]])
  19
  20
  21 AT_SETUP([Generating Comments])
  22
  23 AT_DATA([input.y],
  24 [%%
  25 exp:
  26 ])
  27
  28 AT_DATA([input.m4],
  29 [[m4@&t@_include(b4_skeletonsdir/[c.m4])
  30
  31 b4_output_begin([output.txt])
  32
  33 b4_gsub([[abcd]],
  34   [a], [b])
  35 b4_gsub([[abcd]],
  36   [a], [b],
  37   [b], [c],
  38   [c], [d])
  39
  40 _b4_comment([["/* () */"]])
  41 _b4_comment([["/* (  */"]])
  42 _b4_comment([["/*  ) */"]])
  43 _b4_comment([["/* [] */"]])
  44
  45 b4_comment([["/* () */"]])
  46 b4_comment([["/* (  */"]])
  47 b4_comment([["/*  ) */"]])
  48 b4_comment([["/* [] */"]])
  49
  50 b4_output_end([output.txt])
  51 ]])
  52
  53 AT_BISON_CHECK([-S ./input.m4 input.y])
  54
  55 AT_CHECK([cat output.txt], [],
  56 [[
  57 [bbcd]
  58 [dddd]
  59
  60 "/\* () *\/"
  61 "/\* (  *\/"
  62 "/\*  ) *\/"
  63 "/\* [] *\/"
  64
  65 /* "/\* () *\/"  */
  66 /* "/\* (  *\/"  */
  67 /* "/\*  ) *\/"  */
  68 /* "/\* [] *\/"  */
  69
  70 ]])
  71
  72 AT_CLEANUP