Guest User

Untitled

a guest
May 28th, 2018
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.06 KB | None | 0 0
  1. (let [url "datomic:mem://test-bigint" #_ "datomic:sql://test-bigint?jdbc:postgresql://192.168.99.100:5432/datomic?user=datomic&password=datomic"
  2. _ (d/delete-database url)
  3. _ (d/create-database url)
  4. test-conn (d/connect url)
  5. ]
  6. @(d/transact test-conn [{:db/ident :test/bigint
  7. :db/cardinality :db.cardinality/one
  8. :db/valueType :db.type/bigint
  9. :db/unique :db.unique/identity}])
  10. @(d/transact test-conn [{:test/bigint 1N} {:test/bigint (biginteger 2)} {:test/bigint 73018638354N} {:test/bigint (biginteger 73018638355)}])
  11.  
  12. (let [db (d/db test-conn)]
  13. [(mapv #(d/q '[:find ?e .
  14. :in $ ?v
  15. :where
  16. [?e :test/bigint ?v]] db %) [1N 2N 73018638354N 73018638355N (biginteger 1) (biginteger 2) (biginteger 73018638354N) (biginteger 73018638355N)])
  17. (mapv #(d/entity db [:test/bigint %]) [1N 2N 73018638354N 73018638355N (biginteger 1) (biginteger 2) (biginteger 73018638354N) (biginteger 73018638355N)])
  18. ]))
Add Comment
Please, Sign In to add comment