&Tmp-String-9 = "%{base64:%{Tmp-Cast-Byte}}"
}
-%(debug_attr:request[*])
-
# String - bin 0x39383730
if (&Tmp-String-0[0] != 'OTg3MA==') {
test_fail
&Tmp-Integer-0 += 5
&Tmp-Integer-1 -= 16 # Run-time underflow!
-# try to see what's up
-%(debug_attr:request[*])
-
#
# The various edits above should have been reverted.
#
# must exist
if (!&reply.Tmp-String-0) {
- %(debug_attr:reply[*])
test_fail
}
# and have the correct value
if (&reply.Tmp-String-0 != "foo") {
- %(debug_attr:reply[*])
test_fail
}
# must NOT exist
if (&reply.Tmp-String-0) {
- %(debug_attr:reply[*])
test_fail
}
&Framed-IP-Address := 0x7f000001
if (!&Framed-IP-Address) {
- %(debug_attr:request[*])
test_fail
}
if (&Framed-IP-Address != 127.0.0.1) {
- %(debug_attr:request[*])
test_fail
}
# The original value should be unchanged
if (!(&Tmp-String-0 == "foo")) {
- %(debug_attr:request[*])
test_fail
}
# and the new value should not be there
if (&Tmp-String-0 == "bar") {
- %(debug_attr:request[*])
test_fail
}
# we want the *control* version
if (!(&Tmp-String-0 == "bar")) {
- %(debug_attr:request[*])
test_fail
}
# and the original value should not be there
if (&Tmp-String-0 == "foo") {
- %(debug_attr:request[*])
test_fail
}
# The original value should be unchanged
if (&Tmp-String-0[0] != "foo") {
- %(debug_attr:request[*])
test_fail
}
# and the new value should be there, too
if (&Tmp-String-0[1] != "bar") {
- %(debug_attr:request[*])
test_fail
}
#
&raw.4 = 0x010203
-debug_request
-
if (!&raw.4) {
test_fail
}
# @fixme - EDIT - all kinds of other things are broken, and no time currently to debug them.
#
-debug_request
-
#
# Integer ==
#
test_fail
}
-debug_request
-
# Reset the request list
&request := &control
test_fail
}
-debug_request
-
# Reset the request list
&request := &control
test_fail
}
-debug_request
-
update control {
&Auth-Type := Accept
}
&Tmp-IP-Address-0 += 192.0.2.4
}
-debug_request
-
#
# @fixme - EDIT - we should not be allowed to remove by both
# index AND value. Or, we should... and the edit code needs
&Tmp-IP-Address-0[3] -= 192.0.2.2
}
-debug_request
-
# Only the 1st, 2nd, 3rd and 5th Tmp-IP-Address attributes should still be in the list
if (("%{Tmp-IP-Address-0[0]}" != '192.0.2.1') ||
("%{Tmp-IP-Address-0[1]}" != '192.0.2.2') ||
test_fail
}
-debug_control
-
if ("%{control[0]}" != 192.0.2.1) {
test_fail
}