Added Response-Packet-Type to output VPs

diff --git a/src/main/unittest.c b/src/main/unittest.c
index dc5c437..7965b24 100644 (file)
--- a/src/main/unittest.c
+++ b/src/main/unittest.c
@@ -351,6 +351,7 @@ int main(int argc, char *argv[])
        const char *filter_file = NULL;
        FILE *fp;
        REQUEST *request;
+       VALUE_PAIR *vp;
        VALUE_PAIR *filter_vps = NULL;
 
        if ((progname = strrchr(argv[0], FR_DIR_SEP)) == NULL)
@@ -541,6 +542,13 @@ int main(int argc, char *argv[])
 
        if (output_file) fclose(fp);
 
+       /*
+        *      Update the list with the response type.
+        */
+       vp = radius_paircreate(request, &request->reply->vps,
+                              PW_RESPONSE_PACKET_TYPE, 0);
+       vp->vp_integer = request->reply->code;
+
        if (filter_vps && !pairvalidate(filter_vps, request->reply->vps)) {
                fprintf(stderr, "Output file %s does not match attributes in filter %s\n",
                        output_file ? output_file : input_file, filter_file);

diff --git a/src/tests/keywords/default-input.attrs b/src/tests/keywords/default-input.attrs
index 61d42f7..93566a6 100644 (file)
--- a/src/tests/keywords/default-input.attrs
+++ b/src/tests/keywords/default-input.attrs
@@ -7,5 +7,5 @@ User-Password = "hello"
 #
 #  Expected answer
 #
+Response-Packet-Type == Access-Accept
 Filter-Id == 'filter'
-

diff --git a/src/tests/keywords/foreach-2.attrs b/src/tests/keywords/foreach-2.attrs
index 6c061bd..f3f839d 100644 (file)
--- a/src/tests/keywords/foreach-2.attrs
+++ b/src/tests/keywords/foreach-2.attrs
@@ -13,6 +13,7 @@ Calling-Station-Id += "bar"
 #
 #  Expected answer
 #
+Response-Packet-Type == Access-Accept
 Called-Station-Id == '1 foo'
 Called-Station-Id == '1 bar'
 Called-Station-Id == '2 foo'

diff --git a/src/tests/keywords/foreach-break.attrs b/src/tests/keywords/foreach-break.attrs
index 30243b9..26c2876 100644 (file)
--- a/src/tests/keywords/foreach-break.attrs
+++ b/src/tests/keywords/foreach-break.attrs
@@ -11,6 +11,7 @@ Filter-Id += "4"
 #
 #  Expected answer
 #
+Response-Packet-Type == Access-Accept
 Called-Station-Id == "1"
 Called-Station-Id == "2"
 Called-Station-Id == "3"

diff --git a/src/tests/keywords/foreach.attrs b/src/tests/keywords/foreach.attrs
index 30243b9..26c2876 100644 (file)
--- a/src/tests/keywords/foreach.attrs
+++ b/src/tests/keywords/foreach.attrs
@@ -11,6 +11,7 @@ Filter-Id += "4"
 #
 #  Expected answer
 #
+Response-Packet-Type == Access-Accept
 Called-Station-Id == "1"
 Called-Station-Id == "2"
 Called-Station-Id == "3"

diff --git a/src/tests/keywords/if-regex-match.attrs b/src/tests/keywords/if-regex-match.attrs
index 310b6d8..ab03050 100644 (file)
--- a/src/tests/keywords/if-regex-match.attrs
+++ b/src/tests/keywords/if-regex-match.attrs
@@ -1,4 +1,5 @@
 User-Name = '1_2_3_4_5_6_7'
 User-Password = 'hello'
 
+Response-Packet-Type == Access-Accept
 User-Name == '7_6_5_4_3_2_1_1_2_3_4_5_6_7'

diff --git a/src/tests/keywords/ipaddr.attrs b/src/tests/keywords/ipaddr.attrs
index 210cf72..ab9c27e 100644 (file)
--- a/src/tests/keywords/ipaddr.attrs
+++ b/src/tests/keywords/ipaddr.attrs
@@ -8,4 +8,5 @@ NAS-IP-Address = 127.0.0.1
 #
 #  Expected answer
 #
+Response-Packet-Type == Access-Accept
 Filter-Id == 'filter'

diff --git a/src/tests/keywords/return-group.attrs b/src/tests/keywords/return-group.attrs
index 10815c2..ad30f4d 100644 (file)
--- a/src/tests/keywords/return-group.attrs
+++ b/src/tests/keywords/return-group.attrs
@@ -1,3 +1,4 @@
 User-Name = 'test'
 
+Response-Packet-Type == Access-Accept
 Reply-Message == 'pass'

diff --git a/src/tests/keywords/return.attrs b/src/tests/keywords/return.attrs
index 10815c2..ad30f4d 100644 (file)
--- a/src/tests/keywords/return.attrs
+++ b/src/tests/keywords/return.attrs
@@ -1,3 +1,4 @@
 User-Name = 'test'
 
+Response-Packet-Type == Access-Accept
 Reply-Message == 'pass'