summaryrefslogtreecommitdiff
path: root/checks/175.patsubst
diff options
context:
space:
mode:
Diffstat (limited to 'checks/175.patsubst')
-rw-r--r--checks/175.patsubst22
1 files changed, 22 insertions, 0 deletions
diff --git a/checks/175.patsubst b/checks/175.patsubst
new file mode 100644
index 0000000..66f66c4
--- /dev/null
+++ b/checks/175.patsubst
@@ -0,0 +1,22 @@
+dnl @ ../doc/m4.texi:5955: 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.
+patsubst(`GNUs not Unix', `^', `OBS: ')
+dnl @result{}OBS: GNUs not Unix
+patsubst(`GNUs not Unix', `\<', `OBS: ')
+dnl @result{}OBS: GNUs OBS: not OBS: Unix
+patsubst(`GNUs not Unix', `\w*', `(\&)')
+dnl @result{}(GNUs)() (not)() (Unix)()
+patsubst(`GNUs not Unix', `\w+', `(\&)')
+dnl @result{}(GNUs) (not) (Unix)
+patsubst(`GNUs not Unix', `[A-Z][a-z]+')
+dnl @result{}GN not
+patsubst(`GNUs not Unix', `not', `NOT\')
+dnl @error{}m4:stdin:6: Warning: trailing \ ignored in replacement
+dnl @result{}GNUs NOT Unix