Skip to content
Snippets Groups Projects
Commit 3a18b218 authored by Cam Saul's avatar Cam Saul
Browse files

test fix (?)

parent d51503b0
No related branches found
No related tags found
No related merge requests found
......@@ -77,7 +77,7 @@
(match-$ (sel :one Field :id (field->id :categories :name))
{:description nil
:table_id (table->id :categories)
:special_type nil
:special_type "name"
:name "NAME"
:updated_at $
:active true
......@@ -122,7 +122,7 @@
(match-$ (sel :one Field :id (field->id :categories :name))
{:description nil
:table_id (table->id :categories)
:special_type nil
:special_type "name"
:name "NAME"
:updated_at $
:active true
......
......@@ -10,7 +10,8 @@
[nil
75
:done]
(let [set-field-special-type (fn [special-type]
(let [orig-special-type (sel :one :field [Field :special_type] :id (field->id :categories :name))
set-field-special-type (fn [special-type]
(upd Field (field->id :categories :name) :special_type special-type))
sel-field-values-count (fn []
(some-> (sel :one FieldValues :field_id (field->id :categories :name))
......@@ -25,5 +26,5 @@
(Thread/sleep 250) ; wait 250ms for the FieldValues object to get asynchronously created
(sel-field-values-count))
(do (del-field-values) ; put things back how we found them
(set-field-special-type nil)
(set-field-special-type orig-special-type)
:done)]))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment