diff options
Diffstat (limited to '')
-rw-r--r-- | src/kmk/tests/scripts/functions/translate | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/src/kmk/tests/scripts/functions/translate b/src/kmk/tests/scripts/functions/translate new file mode 100644 index 0000000..2dcf83f --- /dev/null +++ b/src/kmk/tests/scripts/functions/translate @@ -0,0 +1,76 @@ +# $Id: translate 2413 2010-09-11 17:43:04Z bird $ -*-perl-*- +## @file +# $(translate string, from-set[, to-set[, pad-char]]) +# + +# +# Copyright (c) 2008-2010 knut st. osmundsen <bird-kBuild-spamx@anduin.net> +# +# This file is part of kBuild. +# +# kBuild 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 of the License, or +# (at your option) any later version. +# +# kBuild 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 kBuild. If not, see <http://www.gnu.org/licenses/> +# +# + +$description = "Tests the $(translate ) function"; + +$details = "A few simple tests and edge cases."; + +if ($is_kmk) { + + # TEST #0 - check that the feature is present. + # -------------------------------------------- + run_make_test(' +ifneq ($(translate abcdefghijklmnopqrstuvwxyz,abcde,01234),01234fghijklmnopqrstuvwxyz) +$(error sub-test 0 failed) +endif +.PHONY: all +all: ; @: +', +'', +''); + + # TEST #1 - the real test. + # ------------------------ + run_make_test(' +ifneq ($(translate abcdefghijklmnopqrstuvwxyz,abcde,01234),01234fghijklmnopqrstuvwxyz) +$(error sub-test 0 failed) +endif +ifneq ($(translate abcdefghijklmnopqrstuvwxyz,abcde,,.),.....fghijklmnopqrstuvwxyz) +$(error sub-test 1 failed) +endif +ifneq ($(translate abcdefghijklmnopqrstuvwxyz,abcde,),fghijklmnopqrstuvwxyz) +$(error sub-test 2 failed) +endif +ifneq ($(translate abcdefghijklmnopqrstuvwxyz,abcde,x1),x1fghijklmnopqrstuvwxyz) +$(error sub-test 3 failed) +endif +ifneq ($(translate abcdefghijklmnopqrstuvwxyz,bfh),acdegijklmnopqrstuvwxyz) +$(error sub-test 4 failed) +endif +ifneq ($(translate abcdefghijklmnopqrstuvwxyz,z,Z),abcdefghijklmnopqrstuvwxyZ) +$(error sub-test 5 failed) +endif + +.PHONY: all +all: ; @: +', +'', +''); +} + + +# Indicate that we're done. +1; + |