nuttycom/aftok - Change WJO37T74RYR5DRMSVNCXAQBOV42FQB63EG43XDZUU5TA354AIJRAC

Restored the single test to functionality.

Created by Kris Nuttycombe on January 21, 2015

WJO37T74RYR5DRMSVNCXAQBOV42FQB63EG43XDZUU5TA354AIJRAC

Dependencies

In channels

main

Change contents

Deletion in test/Quixotic/TimeLogSpec.hs at line 12 [5.3665]
∅:D[3.3063] → [4.1915:1933]
B:BD[6.312] → [4.1915:1933]
```
import Data.Aeson
```

Deletion in test/Quixotic/TimeLogSpec.hs at line 17 [5.3665]

B:BD[6.381] → [4.1934:2091]

B:BD[4.2091] → [2.3762:3848]

∅:D[2.3848] → [4.2165:2217]

B:BD[4.2165] → [4.2165:2217]

  describe "work event parsing" $ do
    it "parses a start event" $ do
      let startText = "{\"type\":\"start\", \"timestamp\":\"2014-03-22T11:37:08Z\"}"
          expected = fmap (WorkEvent StartWork) $ parseISO8601 "2014-03-22T11:37:08Z"
      (decode startText) `shouldBe` expected

Replacement in test/Quixotic/TimeLogSpec.hs at line 42 [5.3665]

B:BD[6.1396] → [6.1396:1514]

          expected0 = M.map (const [] &&& id) . fromListWith (++) . fmap (intervalBtcAddr &&& return) $ testIntervals

[6.1396]

[7.493]

          expected0 = fmap (const [] &&& id) . fromListWith (++) . fmap (intervalBtcAddr &&& return) $ testIntervals

Replacement in test/Quixotic/TimeLogSpec.hs at line 45 [5.3665]

B:BD[6.1547] → [2.3950:4029]

          expected = M.map (bimap (fmap _event) (fmap workInterval)) expected0

[6.1547]

[5.4635]

          expected = fmap (fmap workInterval . snd) expected0