From 50b37d4a27d3295a29afca2286f1a5a086142cec Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 28 Apr 2024 11:49:46 +0200 Subject: Adding upstream version 3.2.1+dfsg. Signed-off-by: Daniel Baumann --- src/tests/keywords/array | 53 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 src/tests/keywords/array (limited to 'src/tests/keywords/array') diff --git a/src/tests/keywords/array b/src/tests/keywords/array new file mode 100644 index 0000000..a901a2b --- /dev/null +++ b/src/tests/keywords/array @@ -0,0 +1,53 @@ +# +# PRE: if +# +# Tests for dereferencing the Nth attribute +# +update reply { + Filter-Id := "filter" +} + +update request { + Class := 0x01020304 + Class += 0x05060708 + Class += 0x090a0b0c +} + +if (&Class != 0x01020304) { + update reply { + Filter-Id := "fail 0" + } +} + +# Must be the same as above +if (&Class[0] != 0x01020304) { + update reply { + Filter-Id += "fail 0a" + } +} + +if (&Class[1] != 0x05060708) { + update reply { + Filter-Id += "fail 1" + } +} + +if (&Class[2] != 0x090a0b0c) { + update reply { + Filter-Id += "fail 2" + } +} + +# must not exist +if (&Class[3]) { + update reply { + Filter-Id += "fail 3" + } +} + +# Last element of the array +if (&Class[n] != 0x090a0b0c) { + update reply { + Filter-Id += "fail 4" + } +} -- cgit v1.2.3