tests for expr with non-existent attributes

diff --git a/src/tests/keywords/expr-acct b/src/tests/keywords/expr-acct
new file mode 100644 (file)
index 0000000..1f64df2
--- /dev/null
+++ b/src/tests/keywords/expr-acct
@@ -0,0 +1,11 @@
+#
+#  PRE: if edit
+#
+
+&Tmp-String-0 := "%{expr:(<uint64>&Acct-Input-Gigawords << 32) | <uint64>&Acct-Input-Octets}"
+
+if (!(&Tmp-String-0 == '')) {
+       test_fail
+}
+
+success

diff --git a/src/tests/keywords/expr-acct.attrs b/src/tests/keywords/expr-acct.attrs
new file mode 100644 (file)
index 0000000..eea394b
--- /dev/null
+++ b/src/tests/keywords/expr-acct.attrs
@@ -0,0 +1,14 @@
+Packet-Type = Access-Request
+User-Name = "bob"
+User-Password = "hello"
+Acct-Status-Type = Stop
+Acct-Session-Id = "u"
+User-Name = "test"
+NAS-IP-Address = 192.0.2.1
+NAS-Identifier = "foobar-is00c"
+
+#
+#  Expected answer
+#
+Packet-Type == Access-Accept
+Result-Status == "success"