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

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