Skip to content

Commit 77aaeca

Browse files
committed
Fix reflection warning in test_helper
1 parent ca8a7b3 commit 77aaeca

1 file changed

Lines changed: 4 additions & 4 deletions

File tree

Clojure/Clojure.Tests/clojure/test_helper.clj

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -17,10 +17,10 @@
1717

1818
(ns clojure.test-helper
1919
(:use clojure.test)
20-
(:import (System.Reflection BindingFlags))) ;;; added import
20+
(:import (System.Reflection BindingFlags))) ;;; added import
2121

22-
(let [nl Environment/NewLine] ;;; (System/getProperty "line.separator")]
23-
(defn platform-newlines [s] (.Replace s "\n" nl))) ;;; .replace
22+
(let [nl Environment/NewLine] ;;; (System/getProperty "line.separator")]
23+
(defn platform-newlines [s] (.Replace ^String s "\n" nl))) ;;; .replace, add type hint
2424

2525
(defn temp-ns
2626
"Create and return a temporary ns, using clojure.core + uses"
@@ -68,7 +68,7 @@
6868
([klass field-name]
6969
(get-field klass field-name nil))
7070
([klass field-name inst]
71-
(-> klass (.GetField (name field-name) (enum-or BindingFlags/Public BindingFlags/NonPublic BindingFlags/DeclaredOnly BindingFlags/Instance BindingFlags/Static)) ;;; (.getDeclaredField (name field-name))
71+
(-> ^Type klass (.GetField (name field-name) (enum-or BindingFlags/Public BindingFlags/NonPublic BindingFlags/DeclaredOnly BindingFlags/Instance BindingFlags/Static)) ;;; (.getDeclaredField (name field-name)) add type hint
7272
;;;(doto (.setAccessible true))
7373
(.GetValue inst)))) ;;; .get
7474

0 commit comments

Comments
 (0)