From 29cd838eab01ed7110f3ccb2e8c6a35c8a31dbcc Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Thu, 11 Apr 2024 10:21:29 +0200 Subject: Adding upstream version 1:0.1.9998svn3589+dfsg. Signed-off-by: Daniel Baumann --- src/kmk/tests/scripts/functions/substr | 125 +++++++++++++++++++++++++++++++++ 1 file changed, 125 insertions(+) create mode 100644 src/kmk/tests/scripts/functions/substr (limited to 'src/kmk/tests/scripts/functions/substr') diff --git a/src/kmk/tests/scripts/functions/substr b/src/kmk/tests/scripts/functions/substr new file mode 100644 index 0000000..bf0eba9 --- /dev/null +++ b/src/kmk/tests/scripts/functions/substr @@ -0,0 +1,125 @@ +# $Id: substr 2413 2010-09-11 17:43:04Z bird $ -*-perl-*- +## @file +# $(substr str, start[, length[, pad]]) +# + +# +# Copyright (c) 2008-2010 knut st. osmundsen +# +# 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 +# +# + +$description = "Tests the $(substr ) function"; + +$details = "A few simple tests and edge cases."; + +if ($is_kmk) { + + # TEST #0 - check that the feature is present. + # -------------------------------------------- + run_make_test(' +ifneq ($(substr asdf,4),f) +$(error sub-test 0 failed) +endif +.PHONY: all +all: ; @: +', +'', +''); + + # TEST #1 - the real test. + # ------------------------ + run_make_test(' +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,20),tuvwxyz) +$(error sub-test 0 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,20,1),t) +$(error sub-test 1 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,20,2),tu) +$(error sub-test 2 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,20,0),) +$(error sub-test 3 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-1),z) +$(error sub-test 4 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-2),yz) +$(error sub-test 5 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-2,2),yz) +$(error sub-test 6 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-2,3),yz) +$(error sub-test 7 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-2,5,XYZ),yzXYZ) +$(error sub-test 8 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-25,1),b) +$(error sub-test 9 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-26,1),a) +$(error sub-test 10 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-27,1),) +$(error sub-test 11 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-27,2),a) +$(error sub-test 12 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-27,3),ab) +$(error sub-test 13 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-27,3,_),_ab) +$(error sub-test 14 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-28,4,.^),.^ab) +$(error sub-test 15 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-50,4),) +$(error sub-test 16 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,-50,4,.^),.^.^) +$(error sub-test 17 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,27,4,.^),.^.^) +$(error sub-test 18 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,28,3,.^),.^.) +$(error sub-test 19 failed) +endif +SP := $(subst ., ,.) +ifneq (.$(substr abcdefghijklmnopqrstuvwxyz,100,3, ).,. .) +$(error sub-test 20 failed) +endif +ifneq ($(substr abcdefghijklmnopqrstuvwxyz,100,3, ),$(SP)$(SP)$(SP)) +$(error sub-test 21 failed) +endif + +.PHONY: all +all: ; @: +', +'', +''); +} + + +# Indicate that we're done. +1; + -- cgit v1.2.3