Commit 3d5e3a78 authored by Mitchell Rosen's avatar Mitchell Rosen

fixed test

parent dba7f1cf
......@@ -3,6 +3,7 @@
--
SET statement_timeout = 0;
SET lock_timeout = 0;
SET client_encoding = 'UTF8';
SET standard_conforming_strings = on;
SET check_function_bodies = false;
......@@ -2458,9 +2459,9 @@ SELECT pg_catalog.setval('transaction_id_seq', 1, false);
-- Data for Name: user; Type: TABLE DATA; Schema: public; Owner: snowdrift_test
--
COPY "user" (id, ident, hash, salt, name, account, avatar, blurb, statement, irc_nick, read_messages, read_applications, read_comments, read_edits, created_ts, established) FROM stdin;
1 admin 8bf2d491387febc07e5d8fd15a4140b28473566e P^YTN3G: Admin 1 \N Admin is the name for the test user in our devDB database that comes with the code. Log in as admin with passphrase: admin \N \N 2014-01-21 22:58:23.380462 2013-11-23 19:31:18.982213 2013-11-23 19:31:18.982213 2013-11-23 19:31:18.982213 \N EstUnestablished
2 test a090d14299acd2b596b64fb5a46d3587ece359d8 _>4icWF[ Test 3 \N \N \N \N 2014-02-24 01:58:57.856901 2014-02-24 01:58:57.856901 2014-02-24 01:58:57.856901 2014-02-24 01:58:57.856901 2014-02-24 01:58:57.856901 EstUnestablished
COPY "user" (id, ident, hash, salt, name, account, avatar, blurb, statement, irc_nick, read_messages, read_applications, read_comments, read_edits, established_ts, established_reason, created_ts) FROM stdin;
2 test a090d14299acd2b596b64fb5a46d3587ece359d8 _>4icWF[ Test 3 \N \N \N \N 2014-02-24 01:58:57.856901 2014-02-24 01:58:57.856901 2014-02-24 01:58:57.856901 2014-02-24 01:58:57.856901 \N \N 2014-02-24 01:58:57.856901
1 admin 8bf2d491387febc07e5d8fd15a4140b28473566e P^YTN3G: Admin 1 \N Admin is the name for the test user in our devDB database that comes with the code. Log in as admin with passphrase: admin \N \N 2014-01-21 22:58:23.380462 2013-11-23 19:31:18.982213 2013-11-23 19:31:18.982213 2013-11-23 19:31:18.982213 2014-01-24 15:28:15.681117 you rock! \N
\.
......
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
module DiscussionTest
( discussionSpecs
) where
......@@ -25,12 +26,11 @@ discussionSpecs = do
[ form ] <- htmlQuery "form"
let getAttrs = XML.elementAttributes . XML.documentRoot . HTML.parseLBS
Just action = M.lookup "action" $ getAttrs form
request $ do
addNonce
setMethod "POST"
setUrl action
maybe (setUrl route) setUrl (M.lookup "action" $ getAttrs form)
addPostParam "mode" "post"
stmts
......@@ -167,6 +167,6 @@ discussionSpecs = do
let new_url = BSC.unpack location
desired_url = "http://localhost:3000/p/snowdrift/w/intro/c/" ++ (\ (PersistInt64 i) -> show i) (unKey newId)
assertEqual ("Redirect not matching! (" ++ show new_url ++ " /= " ++ show desired_url ++ ")") new_url desired_url
assertEqual ("Redirect not matching! (" ++ show new_url ++ " /= " ++ show desired_url ++ ")") new_url desired_url
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment