                         [addr-obj "InetAddress"]
                         [addr-bytes "bytes"]]]
         (doseq [[addr src] test-data]
-          (is (= "fe:11::/128" (str (ip/network addr)))
+          (is (= "fe:11::/128" (-> addr ip/network str))
               (format "From %s with implied prefix-length." src))
-          (is (= "fe:11::/32" (str (ip/network addr 32)))
+          (is (= "fe:11::/32" (-> addr (ip/network 32) str))
               (format "From %s with explicit prefix-length." src)))))))
 
 (deftest test-network-contains

  (:use [clojure.test])
  (:import [java.net InetAddress]))

(deftest test-inet-address
  (testing "Round-tripping IPv4 address strings"
    (is (= "172.12.16.1" (str (ip/address "172.12.16.1")))))
  (testing "Round-tripping IPv6 address strings"
    (is (= "fe:1100::1" (str (ip/address "fe:1100:0::1"))))))

(deftest test-inet-network
  (testing "Creating networks"
    (testing "from IPv4 addresses"
      (let [addr-str   "192.168.0.0"

                       [addr-obj "InetAddress"]
                       [addr-bytes "bytes"]]]
        (doseq [[addr src] test-data]
          (is (= "192.168.0.0/32" (-> addr ip/network str))
              (format "From %s with implied prefix-length." src))
          (is (= "192.168.0.0/16" (-> addr (ip/network 16) str))
              (format "From %s with explicit prefix-length." src)))))
    (testing "from IPv6 addresses"
      (let [addr-str   "fe:11::"
