<commit_before><commit_msg>An initial test for serialization I can expand on ... it happens to pass w/o serialization being implemented, since it's using a String value.<commit_after>(ns clj-record.test.serialization-test
  (:require
    [clj-record.test.model.manufacturer :as manufacturer]
    [clj-record.test.model.product :as product])
  (:use clojure.contrib.test-is
        clj-record.test.test-helper))


(defdbtest serialized-attributes-support-common-clojure-types
  (let [record (manufacturer/create valid-manufacturer)]
    (are (=
      (do
        (manufacturer/update (assoc record :name _1))
        _1)
      ((manufacturer/get-record (record :id)) :name))
      "some string" ; Cheating? This passes without serialization implemented.
      )))
  
{'fraction_non_alphanumeric': 0.11633986928104575, 'fraction_numerical': 0.00261437908496732, 'mean_word_length': 3.5058823529411764, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3296972', 'n_tokens_mistral': 236, 'n_tokens_neox': 225, 'n_words': 60}