nuttycom/aftok - Change NMWWP4ZNOKHZKSJ6F5KYEREWXXR5F4UD35WOKI3EH42AZWVCTCJAC

Trying out Hspec

Created by Kris Nuttycombe on March 9, 2014

NMWWP4ZNOKHZKSJ6F5KYEREWXXR5F4UD35WOKI3EH42AZWVCTCJAC

Dependencies

In channels

main

Change contents

Replacement in ananke.cabal at line 34 [3.213]
B:BD[3.742] → [4.523:546]
```
Test-Suite test-ananke
```
[3.742]
[4.546]
```
Test-Suite spec
```
Replacement in ananke.cabal at line 38 [3.213]
B:BD[4.648] → [4.648:678]
```
  main-is:            Test.hs
```
[4.648]
[4.678]
```
  main-is:            Spec.hs
```

Deletion in ananke.cabal at line 40 [3.213]

B:BD[4.701] → [4.701:778]

    tasty                     >= 0.7,
    tasty-hunit,
    tasty-quickcheck,

Insertion in ananke.cabal at line 41 [3.213]
[4.788]
[5.41]
```
    hspec >= 1.8.1,
```
Replacement in ananke.cabal at line 45 [3.213]
B:BD[4.808] → [6.32:72]
```
    containers                == 0.5.*,
```
[4.808]
[4.808]
```
    containers,
```
File addition: Ananke (d--x------)
[7.3647]
File move: Test.hs → TimeLogSpec.hs
BF:BFD[7.3647] → [7.4823:4854]
BF:BF[7.4854] → [7.3665:3665]
[0.88]
[7.3665]
Insertion in test/Ananke/TimeLogSpec.hs at line 2 [7.3665]
[2.58]
[5.2656]
```
module Ananke.TimeLogSpec where
```

Replacement in test/Ananke/TimeLogSpec.hs at line 5 [7.3665]

∅:D[5.2657] → [4.1866:1943]

B:BD[7.3665] → [4.1866:1943]

import Test.Tasty
import Test.Tasty.QuickCheck as QC
import Test.Tasty.HUnit

[5.2657]

[5.2658]

import Test.Hspec
import Ananke
import Ananke.Interval as I
import Ananke.TimeLog as L
import Control.Arrow
import Control.Monad

Insertion in test/Ananke/TimeLogSpec.hs at line 13 [7.3665]
[5.2685]
[7.3744]
```
import Data.Maybe
```
Deletion in test/Ananke/TimeLogSpec.hs at line 15 [7.3665]
B:BD[7.3763] → [7.3763:3781]
```
import Data.Maybe
```
Deletion in test/Ananke/TimeLogSpec.hs at line 16 [7.3665]
∅:D[6.229] → [7.3781:3802]
B:BD[7.3781] → [7.3781:3802]
B:BD[7.3802] → [6.230:251]
∅:D[6.251] → [7.3802:3816]
B:BD[7.3802] → [7.3802:3816]
B:BD[7.3816] → [4.1944:1999]
∅:D[4.1999] → [7.3838:3863]
B:BD[7.3838] → [7.3838:3863]
```
import Control.Monad
import Control.Arrow
import Ananke
import Ananke.TimeLog as L
import Ananke.Interval as I
import Data.Time.ISO8601
```

Replacement in test/Ananke/TimeLogSpec.hs at line 17 [7.3665]

B:BD[7.3895] → [4.2000:2088]


main = defaultMain tests
tests :: TestTree
tests = testGroup "Intervals" [unitTests]

[7.3895]

[4.2088]

import Data.Time.ISO8601

Deletion in test/Ananke/TimeLogSpec.hs at line 19 [7.3665]
B:BD[4.2089] → [4.2089:2173]
```
unitTests = testGroup "Unit Tests" [testCase "deriveIntervals" deriveIntervalsTest]
```

Replacement in test/Ananke/TimeLogSpec.hs at line 20 [7.3665]

B:BD[7.3896] → [7.3896:3956]

B:BD[7.3956] → [2.59:196]

deriveIntervalsTest :: Assertion
deriveIntervalsTest = let 
  testAddrs = catMaybes [ parseBtcAddr "123"
                        , parseBtcAddr "456"
                        , parseBtcAddr "789" ]

[7.3896]

[7.4126]

spec :: Spec
spec = do
  describe "log reduction" $ do
    it "reduces a log to a work index" $ do
      let testAddrs = catMaybes [ parseBtcAddr "123"
                                , parseBtcAddr "456"
                                , parseBtcAddr "789" ]

Replacement in test/Ananke/TimeLogSpec.hs at line 28 [7.3665]

B:BD[7.4127] → [7.4127:4253]

  starts    = catMaybes [ parseISO8601 "2014-01-01T00:08:00Z"
                        , parseISO8601 "2014-02-12T00:12:00Z" ]

[7.4127]

[7.4253]

          starts    = catMaybes [ parseISO8601 "2014-01-01T00:08:00Z"
                                , parseISO8601 "2014-02-12T00:12:00Z" ]

Replacement in test/Ananke/TimeLogSpec.hs at line 31 [7.3665]

B:BD[7.4254] → [7.4254:4380]

  ends      = catMaybes [ parseISO8601 "2014-01-01T00:12:00Z"
                        , parseISO8601 "2014-02-12T00:18:00Z" ]

[7.4254]

[5.2686]

          ends      = catMaybes [ parseISO8601 "2014-01-01T00:12:00Z"
                                , parseISO8601 "2014-02-12T00:18:00Z" ]

Replacement in test/Ananke/TimeLogSpec.hs at line 34 [7.3665]

B:BD[5.2687] → [5.2687:2718]

∅:D[5.2718] → [7.4380:4460]

B:BD[7.4380] → [7.4380:4460]

B:BD[7.4460] → [5.2719:2789]

  testLogEntries :: [LogEntry]
  testLogEntries = do
    addr <- testAddrs
    (start, end) <- zip starts ends
    [ LogEntry addr (StartWork start), LogEntry addr (StopWork end) ]

[5.2687]

[6.417]

          testLogEntries :: [LogEntry]
          testLogEntries = do
            addr <- testAddrs
            (start, end) <- zip starts ends
            [ LogEntry addr (StartWork start), LogEntry addr (StopWork end) ]

Replacement in test/Ananke/TimeLogSpec.hs at line 40 [7.3665]

B:BD[6.418] → [5.2790:2823]

∅:D[5.2823] → [6.418:439]

B:BD[6.418] → [6.418:439]

∅:D[6.439] → [7.4542:4600]

B:BD[7.4542] → [7.4542:4600]

B:BD[7.4600] → [6.440:493]

  testIntervals :: [LogInterval]
  testIntervals = do
    addr <- testAddrs
    (start, end) <- zip starts ends
    return $ LogInterval addr (I.interval start end)

[6.418]

[5.2824]

          testIntervals :: [LogInterval]
          testIntervals = do
            addr <- testAddrs
            (start, end) <- zip starts ends
            return $ LogInterval addr (I.interval start end)

Replacement in test/Ananke/TimeLogSpec.hs at line 46 [7.3665]

B:BD[5.2825] → [5.2825:2990]

  expected0 :: Map BtcAddr ([LogEntry], [LogInterval])
  expected0 = M.map (const [] &&& id) . fromListWith (++) . fmap (intervalBtcAddr &&& return) $ testIntervals

[5.2825]

[6.493]

          expected0 :: Map BtcAddr ([LogEntry], [LogInterval])
          expected0 = M.map (const [] &&& id) . fromListWith (++) . fmap (intervalBtcAddr &&& return) $ testIntervals

Replacement in test/Ananke/TimeLogSpec.hs at line 49 [7.3665]

B:BD[6.494] → [5.2991:3085]

  expected :: WorkIndex
  expected = M.map (bimap (fmap event) (fmap workInterval)) expected0

[6.494]

[7.4635]

          expected :: WorkIndex
          expected = M.map (bimap (fmap event) (fmap workInterval)) expected0

Replacement in test/Ananke/TimeLogSpec.hs at line 52 [7.3665]

B:BD[7.4636] → [7.4636:4710]

  in assertEqual "derive log entries" (intervals testLogEntries) expected

[7.4636]

[8.974]

      (intervals testLogEntries) `shouldBe` expected

Insertion in test/Ananke/TimeLogSpec.hs at line 54 [7.3665]
[8.975]
[8.975]
```
main :: IO ()
main = hspec spec
```

File addition: Spec.hs (----------)

[7.3647]

{-# OPTIONS_GHC -F -pgmF hspec-discover #-}

Trying out Hspec

Dependencies

In channels

Change contents

Replacement in ananke.cabal at line 34 [3.213]

Replacement in ananke.cabal at line 38 [3.213]

Deletion in ananke.cabal at line 40 [3.213]

Insertion in ananke.cabal at line 41 [3.213]

Replacement in ananke.cabal at line 45 [3.213]

File addition: Ananke (d--x------)

File move: Test.hs → TimeLogSpec.hs

Insertion in test/Ananke/TimeLogSpec.hs at line 2 [7.3665]

Replacement in test/Ananke/TimeLogSpec.hs at line 5 [7.3665]

Insertion in test/Ananke/TimeLogSpec.hs at line 13 [7.3665]

Deletion in test/Ananke/TimeLogSpec.hs at line 15 [7.3665]

Deletion in test/Ananke/TimeLogSpec.hs at line 16 [7.3665]