From af754e596a8dbb05ed8580c342e7fe02e08b28e0 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 13 Apr 2024 16:11:00 +0200 Subject: Adding upstream version 3.2.3+dfsg. Signed-off-by: Daniel Baumann --- src/tests/keywords/pad | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 src/tests/keywords/pad (limited to 'src/tests/keywords/pad') diff --git a/src/tests/keywords/pad b/src/tests/keywords/pad new file mode 100644 index 0000000..0a1f9ce --- /dev/null +++ b/src/tests/keywords/pad @@ -0,0 +1,62 @@ +# +# PRE: if update return +# + +update request { + Tmp-String-0 = "test" +} + +# +# rpad tests +# + +if ("%{rpad:&Tmp-String-0 7}" != "test ") { + update reply { + Filter-Id := "fail 1" + } + return +} + +if ("%{rpad:&Tmp-String-0 2}" != "te") { + update reply { + Filter-Id := "fail 2" + } + return +} + +if ("%{rpad:&Tmp-String-0 7 x}" != "testxxx") { + update reply { + Filter-Id := "fail 1" + } + return +} + +# +# lpad tests +# + +if ("%{lpad:&Tmp-String-0 7}" != " test") { + update reply { + Filter-Id := "fail 1" + } + return +} + +if ("%{lpad:&Tmp-String-0 2}" != "te") { + update reply { + Filter-Id := "fail 2" + } + return +} + +if ("%{lpad:&Tmp-String-0 7 x}" != "xxxtest") { + update reply { + Filter-Id := "fail 1" + } + return +} + +update reply { + Filter-Id := "filter" +} + -- cgit v1.2.3