31 lines
895 B
Plaintext
31 lines
895 B
Plaintext
dnl @ ../doc/m4.texinfo:2955: Origin of test
|
|
dnl @ expected status: 0
|
|
dnl @ extra options:
|
|
dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software
|
|
dnl @ Foundation, Inc.
|
|
dnl @ This file is free software; the Free Software Foundation
|
|
dnl @ gives unlimited permission to copy and/or distribute it
|
|
dnl @ with or without modifications, as long as this notice
|
|
dnl @ is preserved.
|
|
include(`join.m4')
|
|
dnl @result{}
|
|
join,join(`-'),join(`-', `'),join(`-', `', `')
|
|
dnl @result{},,,
|
|
joinall,joinall(`-'),joinall(`-', `'),joinall(`-', `', `')
|
|
dnl @result{},,,-
|
|
join(`-', `1')
|
|
dnl @result{}1
|
|
join(`-', `1', `2', `3')
|
|
dnl @result{}1-2-3
|
|
join(`', `1', `2', `3')
|
|
dnl @result{}123
|
|
join(`-', `', `1', `', `', `2', `')
|
|
dnl @result{}1-2
|
|
joinall(`-', `', `1', `', `', `2', `')
|
|
dnl @result{}-1---2-
|
|
join(`,', `1', `2', `3')
|
|
dnl @result{}1,2,3
|
|
define(`nargs', `$#')dnl
|
|
nargs(join(`,', `1', `2', `3'))
|
|
dnl @result{}1
|