Add History Debug Menu on macOS and display only 1 week of history when history view is enabled (#1217)

Task/Issue URL: https://app.asana.com/0/72649045549333/1209328755192085

Description:
Add HistoryCoordinatingDebuggingSupport protocol that defines addVisit function
taking 2 parameters and allowing to add a visit at an arbitrary time, rather than
at current timestamp. This is required to be able to populate History with fake
data in client apps.
We already use a similar approach with SyncDependencies, where
SyncDependenciesDebuggingSupport protocol is defined to support debug menus.

Author: ayoy

Sources/History/HistoryCoordinator.swift

@@ -23,7 +23,19 @@ import os.log
 
 public typealias BrowsingHistory = [HistoryEntry]
 
-public protocol HistoryCoordinating: AnyObject {
+/**
+ * This protocol allows for debugging History.
+ */
+public protocol HistoryCoordinatingDebuggingSupport {
+    /**
+     * Adds visit at an arbitrary time, rather than current timestamp.
+     *
+     * > This function shouldn't be used in production code. Instead, `addVisit(of: URL)` should be used.
+     */
+    @discardableResult func addVisit(of url: URL, at date: Date) -> Visit?
+}
+
+public protocol HistoryCoordinating: AnyObject, HistoryCoordinatingDebuggingSupport {
 
     func loadHistory(onCleanFinished: @escaping () -> Void)
 
@@ -47,6 +59,12 @@ public protocol HistoryCoordinating: AnyObject {
     func removeUrlEntry(_ url: URL, completion: ((Error?) -> Void)?)
 }
 
+extension HistoryCoordinating {
+    public func addVisit(of url: URL) -> Visit? {
+        addVisit(of: url, at: Date())
+    }
+}
+
 /// Coordinates access to History. Uses its own queue with high qos for all operations.
 final public class HistoryCoordinator: HistoryCoordinating {
 
@@ -86,14 +104,14 @@ final public class HistoryCoordinator: HistoryCoordinating {
 
     private var cancellables = Set<AnyCancellable>()
 
-    @discardableResult public func addVisit(of url: URL) -> Visit? {
+    @discardableResult public func addVisit(of url: URL, at date: Date) -> Visit? {
         guard let historyDictionary = historyDictionary else {
             Logger.history.debug("Visit of \(url.absoluteString) ignored")
             return nil
         }
 
         let entry = historyDictionary[url] ?? HistoryEntry(url: url)
-        let visit = entry.addVisit()
+        let visit = entry.addVisit(at: date)
         entry.failedToLoad = false
 
         self.historyDictionary?[url] = entry

Sources/History/HistoryEntry.swift

@@ -56,12 +56,12 @@ final public class HistoryEntry {
 
     public var visits: Set<Visit>
 
-    func addVisit() -> Visit {
-        let visit = Visit(date: Date(), historyEntry: self)
+    func addVisit(at date: Date = Date()) -> Visit {
+        let visit = Visit(date: date, historyEntry: self)
         visits.insert(visit)
 
+        lastVisit = numberOfTotalVisits == 0 ? date : max(lastVisit, date)
         numberOfTotalVisits += 1
-        lastVisit = Date()
 
         return visit
     }