checks/090.compositio

   1 dnl @ ../doc/m4.texinfo:3567: 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 define(`define_blind', `ifelse(`$#', `0', ``$0'',
  11 `_$0(`$1', `$2', `$'`#', `$'`0')')')
  12 dnl @result{}
  13 define(`_define_blind', `define(`$1',
  14 `ifelse(`$3', `0', ``$4'', `$2')')')
  15 dnl @result{}
  16 define_blind
  17 dnl @result{}define_blind
  18 define_blind(`foo', `arguments were $*')
  19 dnl @result{}
  20 foo
  21 dnl @result{}foo
  22 foo(`bar')
  23 dnl @result{}arguments were bar
  24 define(`blah', defn(`foo'))
  25 dnl @result{}
  26 blah
  27 dnl @result{}blah
  28 blah(`a', `b')
  29 dnl @result{}arguments were a,b
  30 defn(`blah')
  31 dnl @result{}ifelse(`$#', `0', ``$0'', `arguments were $*')