nuttycom/aftok - Change 4SCFOJGNDAN4XZEAPWQQCBJ3CGZCJP3HUADRQLYZ2ITAKA7EJJTQC

Specs for recovering intervals from the log now pass.

Created by Kris Nuttycombe on May 6, 2015

4SCFOJGNDAN4XZEAPWQQCBJ3CGZCJP3HUADRQLYZ2ITAKA7EJJTQC

Dependencies

In channels

main

Change contents

Replacement in lib/Quixotic/Interval.hs at line 4 [5.1422]

B:BD[3.5263] → [4.3:54]

  ( Interval(Interval), interval, start, end, ilen

[3.5263]

[6.3192]

  ( Interval(..), interval, start, end, ilen

Replacement in test/Quixotic/TimeLogSpec.hs at line 34 [7.3665]
B:BD[2.3596] → [2.3596:3629]
```
buildIntervals t (d : s : dx) = 
```
[2.3596]
[2.3629]
```
buildIntervals t (d : s : dx) | d > 0 = 
```

Replacement in test/Quixotic/TimeLogSpec.hs at line 36 [7.3665]

B:BD[2.3666] → [2.3666:3723]

  in  ival : buildIntervals (ival ^. end .+^ (abs s)) dx

[2.3666]

[2.3723]

  in  ival : buildIntervals (ival ^. end .+^ s) dx

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

B:BD[2.3828] → [2.3828:3879]

    let deltas = filter (> 0) <$> listOf arbitrary

[2.3828]

[2.3879]

    let deltas = fmap T.fromSeconds <$> ((listOf $ choose (0, 72 * 60 * 60)) :: Gen[Int])

Replacement in test/Quixotic/TimeLogSpec.hs at line 88 [7.3665]

B:BD[4.1964] → [2.4335:4441]

        let ivalEntries addr ival = LogEntry addr <$> [StartWork (ival ^. start), StopWork (ival ^. end)]

[4.1964]

[2.4441]

        let mergeAdjacent ((Interval s e) : (Interval s' e') : xs) | e == s' = mergeAdjacent $ Interval s e' : xs
            mergeAdjacent (x : xs) = x : mergeAdjacent xs
            mergeAdjacent [] = []
            ivalEntries addr ival = LogEntry addr <$> [StartWork (ival ^. start), StopWork (ival ^. end)]

Insertion in test/Quixotic/TimeLogSpec.hs at line 96 [7.3665]

[8.3717]

[2.4506]


            widx' = fmap (L.fromList . mergeAdjacent . sortOn _start . L.toList) widx

Replacement in test/Quixotic/TimeLogSpec.hs at line 99 [7.3665]

∅:D[2.4558] → [4.2015:2104]

B:BD[4.2015] → [4.2015:2104]

        in  workIndex logEntries `shouldBe` (WorkIndex $ fmap (L.reverse . L.sort) widx)

[2.4558]

[9.3975]

        in  workIndex logEntries `shouldBe` (WorkIndex $ fmap (L.reverse . L.sort) widx')

Deletion in test/Quixotic/TimeLogSpec.hs at line 103 [7.3665]

∅:D[10.1712] → [11.975:977]

B:BD[11.975] → [11.975:977]

B:BD[11.977] → [8.3833:4486]


{--
(fromList [
(BtcAddr "S\187\156\a\SOx\229`[\133a%7o%'XBt\249\226\n\ENQ\SOH\GS<\241WU5{Si\251",
  [ Interval {_start = 1858-11-16 23:59:59.999997 UTC, _end = 1858-11-16 23:59:59.999997 UTC}
  , Interval {_start = 1858-11-16 23:59:59.999998 UTC, _end = 1858-11-17 00:00:00.000002 UTC}]),
(BtcAddr "\138;\GS\132U0\SUB\ESCf[\NAKo`\ACKR[\EMq\b\v\159\184u\ACK&jS#n#?\SI&v",
  [Interval {_start = 1858-11-16 23:59:59.999999 UTC, _end = 1858-11-17 00:00:00 UTC}
  ,Interval {_start = 1858-11-17 00:00:00.000002 UTC, _end = 1858-11-17 00:00:00.000006 UTC}
  ,Interval {_start = 1858-11-16 23:59:59.999994 UTC, _end = 1858-11-16 23:59:59.999998 UTC}])
])
 -}