mirror of
https://github.com/penpot/penpot.git
synced 2026-08-27 07:09:14 +00:00
24 lines
1015 B
Clojure
24 lines
1015 B
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS SUBSIDIARY SL
|
|
|
|
(ns frontend-tests.util.dom.dnd-test
|
|
(:require
|
|
[app.util.dom.dnd :as dnd]
|
|
[cljs.test :as t :include-macros true]))
|
|
|
|
(t/deftest get-data-returns-nil-when-event-has-no-dataTransfer
|
|
(t/testing "event without dataTransfer"
|
|
(t/is (nil? (dnd/get-data #js {}))))
|
|
(t/testing "event with explicit nil dataTransfer"
|
|
(t/is (nil? (dnd/get-data #js {:dataTransfer nil}))))
|
|
(t/testing "explicit data-type also returns nil for missing dataTransfer"
|
|
(t/is (nil? (dnd/get-data #js {} "penpot/data")))))
|
|
|
|
(t/deftest get-data-reads-from-dataTransfer
|
|
(t/testing "dataTransfer with matching key returns the value (non-decoded type)"
|
|
(let [dt #js {:getData (fn [_type] "hello")}]
|
|
(t/is (= "hello" (dnd/get-data #js {:dataTransfer dt} "text/plain"))))))
|