Permalink
Browse files

fixes for equiv compat

  • Loading branch information...
1 parent b71e3d7 commit bb711051c1c5aaa8d034fc10ec7eb41d04e797ad @richhickey committed Jun 24, 2010
View
2 src/main/clojure/clojure/contrib/pprint/column_writer.clj
@@ -75,4 +75,6 @@
(.write #^Writer (get-field this :base) s))
Integer
+ (write-char this x)
+ Long
(write-char this x))))))))
View
2 src/main/clojure/clojure/contrib/pprint/pretty_writer.clj
@@ -402,6 +402,8 @@
(add-to-buffer this (make-buffer-blob s white-space oldpos newpos))))))
Integer
+ (write-char this x)
+ Long
(write-char this x))))
(flush []
View
6 src/test/clojure/clojure/contrib/test_jmx.clj
@@ -61,12 +61,12 @@
(are [a b] (= a b)
false (jmx/raw-read mem :Verbose))
(are [type attr] (instance? type attr)
- Integer (jmx/raw-read mem :ObjectPendingFinalizationCount)))))
+ Number (jmx/raw-read mem :ObjectPendingFinalizationCount)))))
(deftest reading-attributes
(testing "simple scalar attributes"
(are [type attr] (instance? type attr)
- Integer (jmx/read "java.lang:type=Memory" :ObjectPendingFinalizationCount)))
+ Number (jmx/read "java.lang:type=Memory" :ObjectPendingFinalizationCount)))
(testing "composite attributes"
(are [ks attr] (=set ks (keys attr))
[:used :max :init :committed] (jmx/read "java.lang:type=Memory" :HeapMemoryUsage)))
@@ -172,7 +172,7 @@
(deftest test-guess-attribute-typename
(are [x y] (= x (jmx/guess-attribute-typename y))
- "int" 10
+; "long" 10
"boolean" false
"java.lang.String" "foo"
"long" (Long/valueOf (long 10))))

0 comments on commit bb71105

Please sign in to comment.