basis/furnace/chloe-tags/chloe-tags-tests.factor

   1 USING: html.forms furnace.chloe-tags tools.test ;
   2 IN: furnace.chloe-tags.tests
   3
   4 [ f ] [ f parse-query-attr ] unit-test
   5
   6 [ f ] [ "" parse-query-attr ] unit-test
   7
   8 [ H{ { "a" "b" } } ] [
   9     begin-form
  10     "b" "a" set-value
  11     "a" parse-query-attr
  12 ] unit-test
  13
  14 [ H{ { "a" "b" } { "c" "d" } } ] [
  15     begin-form
  16     "b" "a" set-value
  17     "d" "c" set-value
  18     "a,c" parse-query-attr
  19 ] unit-test