checks/083.foreach

   1 dnl @ ../doc/m4.texinfo:3318: Origin of test
   2 dnl @ expected status: 0
   3 dnl @ extra options:
   4 dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software
   5 dnl @ Foundation, Inc.
   6 dnl @ This file is free software; the Free Software Foundation
   7 dnl @ gives unlimited permission to copy and/or distribute it
   8 dnl @ with or without modifications, as long as this notice
   9 dnl @ is preserved.
  10 include(`foreach.m4')
  11 dnl @result{}
  12 define(`_case', `  $1)
  13     $2=" $1";;
  14 ')dnl
  15 define(`_cat', `$1$2')dnl
  16 case $`'1 in
  17 dnl @result{}case $1 in
  18 foreach(`x', `(`(`a', `vara')', `(`b', `varb')', `(`c', `varc')')',
  19         `_cat(`_case', x)')dnl
  20 dnl @result{}  a)
  21 dnl @result{}    vara=" a";;
  22 dnl @result{}  b)
  23 dnl @result{}    varb=" b";;
  24 dnl @result{}  c)
  25 dnl @result{}    varc=" c";;
  26 esac
  27 dnl @result{}esac