diff options
| author | Sam Thursfield <sam.thursfield@codethink.co.uk> | 2012-12-21 14:22:22 +0000 |
|---|---|---|
| committer | Sam Thursfield <Sam Thursfield> | 2013-01-03 11:32:53 +0000 |
| commit | c2693d6d08db26825688ddca5de6eb8a4b7cde4a (patch) | |
| tree | 10611dcf065b1893421b83a9de53cf6feb83a048 /checks/127.changeword | |
| parent | 861325a84f231a2a2da307b53ef5ff527d67e876 (diff) | |
| download | m4-c2693d6d08db26825688ddca5de6eb8a4b7cde4a.tar.gz | |
Commit files from tarball
Diffstat (limited to 'checks/127.changeword')
| -rw-r--r-- | checks/127.changeword | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/checks/127.changeword b/checks/127.changeword new file mode 100644 index 00000000..f69b5b97 --- /dev/null +++ b/checks/127.changeword @@ -0,0 +1,41 @@ +dnl @ ../doc/m4.texinfo:4671: 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. +ifdef(`changeword', `', `errprint(` skipping: no changeword support +')m4exit(`77')')dnl +define(`foo +', `bar +') +dnl @result{} +dnl This example wants to recognize changeword, dnl, and `foo\n'. +dnl First, we check that our regexp will match. +regexp(`changeword', `[cd][a-z]*\|foo[ +]') +dnl @result{}0 +regexp(`foo +', `[cd][a-z]*\|foo[ +]') +dnl @result{}0 +regexp(`f', `[cd][a-z]*\|foo[ +]') +dnl @result{}-1 +foo +dnl @result{}foo +changeword(`[cd][a-z]*\|foo[ +]') +dnl @result{} +dnl Even though `foo\n' matches, we forgot to allow `f'. +foo +dnl @result{}foo +changeword(`[cd][a-z]*\|fo*[ +]?') +dnl @result{} +dnl Now we can call `foo\n'. +foo +dnl @result{}bar |