From 23c11479b3ad787adc7a651ee0c4347839e47723 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@baserock.org>
Date: Sun, 22 Sep 2013 07:04:10 +0000
Subject: Imported from
 /home/lorry/working-area/delta_m4-tarball/m4-1.4.17.tar.xz.

---
 checks/177.patsubst | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 checks/177.patsubst

(limited to 'checks/177.patsubst')

diff --git a/checks/177.patsubst b/checks/177.patsubst
new file mode 100644
index 0000000..1dbadd1
--- /dev/null
+++ b/checks/177.patsubst
@@ -0,0 +1,22 @@
+dnl @ ../doc/m4.texi:6008: 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.
+undivert(`capitalize.m4')dnl
+dnl @result{}divert(`-1')
+dnl @result{}# upcase(text)
+dnl @result{}# downcase(text)
+dnl @result{}# capitalize(text)
+dnl @result{}#   change case of text, simple version
+dnl @result{}define(`upcase', `translit(`$*', `a-z', `A-Z')')
+dnl @result{}define(`downcase', `translit(`$*', `A-Z', `a-z')')
+dnl @result{}define(`_capitalize',
+dnl @result{}       `regexp(`$1', `^\(\w\)\(\w*\)',
+dnl @result{}               `upcase(`\1')`'downcase(`\2')')')
+dnl @result{}define(`capitalize', `patsubst(`$1', `\w+', `_$0(`\&')')')
+dnl @result{}divert`'dnl
-- 
cgit v1.2.1