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

   1 IN: furnace.auth.providers.db.tests\r
   2 USING: furnace.actions\r
   3 furnace.auth\r
   4 furnace.auth.login\r
   5 furnace.auth.providers\r
   6 furnace.auth.providers.db tools.test\r
   7 namespaces db db.sqlite db.tuples continuations\r
   8 io.files accessors kernel ;\r
   9 \r
  10 <action> "test" <login-realm> realm set\r
  11 \r
  12 [ "auth-test.db" temp-file delete-file ] ignore-errors\r
  13 \r
  14 "auth-test.db" temp-file <sqlite-db> [\r
  15 \r
  16     user ensure-table\r
  17 \r
  18     [ t ] [\r
  19         "slava" <user>\r
  20             "foobar" >>encoded-password\r
  21             "slava@factorcode.org" >>email\r
  22             H{ } clone >>profile\r
  23             users new-user\r
  24             username>> "slava" =\r
  25     ] unit-test\r
  26 \r
  27     [ f ] [\r
  28         "slava" <user>\r
  29             H{ } clone >>profile\r
  30         users new-user\r
  31     ] unit-test\r
  32 \r
  33     [ f ] [ "fdasf" "slava" check-login >boolean ] unit-test\r
  34 \r
  35     [ ] [ "foobar" "slava" check-login "user" set ] unit-test\r
  36 \r
  37     [ t ] [ "user" get >boolean ] unit-test\r
  38 \r
  39     [ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test\r
  40 \r
  41     [ ] [ "user" get users update-user ] unit-test\r
  42 \r
  43     [ t ] [ "fdasf" "slava" check-login >boolean ] unit-test\r
  44 \r
  45     [ f ] [ "foobar" "slava" check-login >boolean ] unit-test\r
  46 ] with-db\r