From bd1b770a55e6ac5df4ad6af6746f9ae5bc88ff5b Mon Sep 17 00:00:00 2001 From: Vasily Postnicov Date: Fri, 31 May 2024 07:58:40 +0300 Subject: [PATCH] Test redirect with REDUCE-TRACKING-MODE --- tests/offline/mode/reduce-tracking.lisp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/tests/offline/mode/reduce-tracking.lisp b/tests/offline/mode/reduce-tracking.lisp index 959e060c8e4..0a89b183f12 100644 --- a/tests/offline/mode/reduce-tracking.lisp +++ b/tests/offline/mode/reduce-tracking.lisp @@ -4,9 +4,16 @@ (in-package :nyxt/tests) (define-test toggle-reduce-tracking-mode () - (let ((buffer (make-instance 'network-and-modable-buffer))) + (let ((buffer (make-instance 'network-and-modable-buffer)) + (url-pre (quri:uri "https://example.com/query?foo=bar&twclid=1&redirect=https://example.org/foo&s_cid=123")) + (url-post (quri:uri "https://example.com/query?foo=bar&redirect=https://example.org/foo"))) (with-current-buffer buffer (assert-true (enable-modes* 'nyxt/mode/reduce-tracking:reduce-tracking-mode buffer)) + (assert-equality + #'quri:uri= url-post + (url (nhooks:run-hook + (request-resource-hook buffer) + (make-instance 'request-data :url url-pre)))) (assert-true (disable-modes* 'nyxt/mode/reduce-tracking:reduce-tracking-mode buffer)))))