basis/furnace/auth/providers/assoc/assoc-tests.factor

   1 USING: furnace.actions furnace.auth furnace.auth.providers \r
   2 furnace.auth.providers.assoc furnace.auth.login\r
   3 tools.test namespaces accessors kernel ;\r
   4 IN: furnace.auth.providers.assoc.tests\r
   5 \r
   6 <action> "Test" <login-realm>\r
   7     <users-in-memory> >>users\r
   8 realm set\r
   9 \r
  10 [ t ] [\r
  11     "slava" <user>\r
  12         "foobar" >>encoded-password\r
  13         "slava@factorcode.org" >>email\r
  14         H{ } clone >>profile\r
  15     users new-user\r
  16     username>> "slava" =\r
  17 ] unit-test\r
  18 \r
  19 [ f ] [\r
  20     "slava" <user>\r
  21         H{ } clone >>profile\r
  22     users new-user\r
  23 ] unit-test\r
  24 \r
  25 [ f ] [ "fdasf" "slava" check-login >boolean ] unit-test\r
  26 \r
  27 [ ] [ "foobar" "slava" check-login "user" set ] unit-test\r
  28 \r
  29 [ t ] [ "user" get >boolean ] unit-test\r
  30 \r
  31 [ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test\r
  32 \r
  33 [ t ] [ "fdasf" "slava" check-login >boolean ] unit-test\r
  34 \r
  35 [ f ] [ "foobar" "slava" check-login >boolean ] unit-test\r