/dev/user.clj

https://github.com/vlaaad/reveal · Clojure · 56 lines · 53 code · 3 blank · 0 comment · 0 complexity · 33e9172906e8bad8bb0f1df44abb5fbc MD5 · raw file 

    

  1. (ns user
    2. 

  2.   (:require [clojure.spec.test.alpha :as stest])
    3. 

  3.   (:import [clojure.lang PersistentQueue]
    4. 

  4.            [java.util UUID HashSet HashMap ArrayList Date LinkedList]
    5. 

  5.            [java.sql Timestamp]
    6. 

  6.            [java.time Instant LocalTime LocalDateTime ZoneOffset]))
    7. 

  7. 

  8. (stest/instrument)
    9. 

  9. 

  10. (def interesting-values
    11. 

  11.   {:numbers {:integer (int 1)
    12. 

  12.              :long (long 2)
    13. 

  13.              :double (double 1.2)
    14. 

  14.              :float (float 3.14)
    15. 

  15.              :big-integer (biginteger 3)
    16. 

  16.              :big-decimal (bigdec 4)
    17. 

  17.              :ratio 3/4
    18. 

  18.              :short (short 5)
    19. 

  19.              :byte (byte 6)
    20. 

  20.              :big-int (bigint 7)}
    21. 

  21.    :scalars {:boolean true
    22. 

  22.              :keyword :keyword
    23. 

  23.              :q-keyword :qualified/keyword
    24. 

  24.              :symbol 'symbol}
    25. 

  25.    :strings {:string "string"
    26. 

  26.              :character \c
    27. 

  27.              :re #"(\s)+"}
    28. 

  28.    :queue (conj (PersistentQueue/EMPTY) 1 2 3)
    29. 

  29.    :bytes (.getBytes "bytes")
    30. 

  30.    :uuid (UUID/randomUUID)
    31. 

  31.    :colls {:java {:set (doto (HashSet.) (.add 1) (.add 2) (.add 3))
    32. 

  32.                   :map (doto (HashMap.) (.put :foo "bar"))
    33. 

  33.                   :array-list (doto (ArrayList.) (.add 1) (.add 2) (.add 3))
    34. 

  34.                   :linked-list (doto (LinkedList.) (.add '/) (.add 1) (.add :a))}
    35. 

  35.            :clojure {:set #{:a :b :c}
    36. 

  36.                      :map {:foo "bar"}
    37. 

  37.                      :list '(+ 1 2 3)
    38. 

  38.                      :syntax-quoted `(+ 1 2 3)
    39. 

  39.                      :range (range 5 10)
    40. 

  40.                      :vec [1 2 3]}}
    41. 

  41.    :refs {:var #'inc
    42. 

  42.           :future (future 10)
    43. 

  43.           :delay (delay 20)
    44. 

  44.           :promise (doto (promise) (deliver 1))
    45. 

  45.           :atom (atom :atom)
    46. 

  46.           :agent (agent "agent")
    47. 

  47.           :ref (ref 1)}
    48. 

  48.    :dates {:date (Date. 0)
    49. 

  49.            :timestamp (Timestamp. 0)
    50. 

  50.            :instant (Instant/ofEpochMilli 0)
    51. 

  51.            :local-time (LocalTime/ofNanoOfDay 0)
    52. 

  52.            :local-date-time (LocalDateTime/ofEpochSecond 0 0 ZoneOffset/UTC)}})
    53. 

    54. 

  54. (comment
    55. 

  55.   (->> (range 10000)
    56. 

  56.        (map #(hash-map :index % :string (str %)))))
    57.