diff --git a/test/broker/07-will-delay-session-expiry2.py b/test/broker/07-will-delay-session-expiry2.py
new file mode 100755
index 00000000..506dac01
--- /dev/null
+++ b/test/broker/07-will-delay-session-expiry2.py
@@ -0,0 +1,52 @@
+#!/usr/bin/env python3
+
+# Test whether a client that connects with a will delay that is shorter than
+# their session expiry interval has their will published.
+# MQTT 5
+# https://github.com/eclipse/mosquitto/issues/1401
+
+from mosq_test_helper import *
+
+rc = 1
+keepalive = 60
+
+mid = 1
+connect1_packet = mosq_test.gen_connect("will-test", keepalive=keepalive, proto_ver=5)
+connack1_packet = mosq_test.gen_connack(rc=0, proto_ver=5)
+
+will_props = mqtt5_props.gen_uint32_prop(mqtt5_props.PROP_WILL_DELAY_INTERVAL, 2)
+connect_props = mqtt5_props.gen_uint32_prop(mqtt5_props.PROP_SESSION_EXPIRY_INTERVAL, 4)
+
+connect2_packet = mosq_test.gen_connect("will-helper", keepalive=keepalive, proto_ver=5, properties=connect_props, will_topic="will/test", will_payload=b"will delay", will_qos=2, will_properties=will_props)
+connack2_packet = mosq_test.gen_connack(rc=0, proto_ver=5)
+
+subscribe_packet = mosq_test.gen_subscribe(mid, "will/test", 0, proto_ver=5)
+suback_packet = mosq_test.gen_suback(mid, 0, proto_ver=5)
+
+publish_packet = mosq_test.gen_publish("will/test", qos=0, payload="will delay", proto_ver=5)
+
+port = mosq_test.get_port()
+broker = mosq_test.start_broker(filename=os.path.basename(__file__), port=port)
+
+try:
+    sock1 = mosq_test.do_client_connect(connect1_packet, connack1_packet, timeout=30, port=port, connack_error="connack1")
+    mosq_test.do_send_receive(sock1, subscribe_packet, suback_packet, "suback")
+
+    sock2 = mosq_test.do_client_connect(connect2_packet, connack2_packet, timeout=30, port=port, connack_error="connack2")
+    time.sleep(1)
+    sock2.close()
+
+    # Wait for session to expire
+    time.sleep(3)
+    if mosq_test.expect_packet(sock1, "publish", publish_packet):
+        rc = 0
+
+    sock1.close()
+finally:
+    broker.terminate()
+    broker.wait()
+    (stdo, stde) = broker.communicate()
+    if rc:
+        print(stde.decode('utf-8'))
+        exit(rc)
+
diff --git a/test/broker/Makefile b/test/broker/Makefile
index 0b938042..e4c32c63 100644
--- a/test/broker/Makefile
+++ b/test/broker/Makefile
@@ -141,6 +141,7 @@ endif
 	./07-will-delay-reconnect.py
 	./07-will-delay-recover.py
 	./07-will-delay-session-expiry.py
+	./07-will-delay-session-expiry2.py
 	./07-will-delay.py
 	./07-will-disconnect-with-will.py
 	./07-will-invalid-utf8.py
diff --git a/test/broker/test.py b/test/broker/test.py
index 2d010904..7a2f9f66 100755
--- a/test/broker/test.py
+++ b/test/broker/test.py
@@ -115,6 +115,7 @@ tests = [
     (1, './07-will-delay-reconnect.py'),
     (1, './07-will-delay-recover.py'),
     (1, './07-will-delay-session-expiry.py'),
+    (1, './07-will-delay-session-expiry2.py'),
     (1, './07-will-delay.py'),
     (1, './07-will-disconnect-with-will.py'),
     (1, './07-will-invalid-utf8.py'),