diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 12:27:21 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 12:27:21 -0500 |
| commit | b4a1a294abf7777a74ce08f340a4b2436a16262d (patch) | |
| tree | 2217e5426f58d3e6fd101899e0141d4bf38bfdb6 /tests | |
| parent | 5b1532529dd4850e5b94730c628f8285c30d1771 (diff) | |
formatting
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/suite.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/suite.hs b/tests/suite.hs index 60bcd25..9b5e22e 100644 --- a/tests/suite.hs +++ b/tests/suite.hs | |||
| @@ -30,7 +30,7 @@ testSerialization :: FilePath -> Assertion | |||
| 30 | testSerialization fp = do | 30 | testSerialization fp = do |
| 31 | bs <- B.readFile $ "tests/data/" ++ fp | 31 | bs <- B.readFile $ "tests/data/" ++ fp |
| 32 | nullShield "First" (decode' bs) (\firstpass -> | 32 | nullShield "First" (decode' bs) (\firstpass -> |
| 33 | nullShield "Second" (decode' $encode firstpass) ( | 33 | nullShield "Second" (decode' $ encode firstpass) ( |
| 34 | assertEqual ("for " ++ fp) firstpass | 34 | assertEqual ("for " ++ fp) firstpass |
| 35 | ) | 35 | ) |
| 36 | ) | 36 | ) |