# This file is part of Mailfromd testsuite. -*- Autotest -*- # Copyright (C) 2007-2020 Sergey Poznyakoff # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . AT_SETUP([String functions]) AT_KEYWORDS([string strings string-functions strfunc]) MF_CHECK_TEXT([ set x "string of rings" set gnu "GNU" prog envfrom do echo length(x) echo toupper(x) echo tolower(gnu) echo substr(x,2) echo substr(x,2,4) echo index(x,"ring") echo rindex(x,"ring") echo revstr("foobar") echo interval("3 weeks 5 days 15 hours 1 minute 56 seconds") echo domainpart("gray@gnu.org.ua") echo localpart("gray@gnu.org.ua") done ], [], [EX_OK], [State envfrom: continue ], [15 STRING OF RINGS gnu ring of rings ring 2 10 raboof 2300516 gnu.org.ua gray ]) AT_CLEANUP