@@ -68,8 +68,10 @@ prop_concat = L.concat `eq` (unpack . T.concat . map pack)
6868prop_concatMap f = L.concatMap f `eqP` (unpack . T.concatMap (pack . f))
6969prop_any p = L.any p `eqP` T.any p
7070prop_all p = L.all p `eqP` T.all p
71−prop_minimum = L.minimum `eqEP` T.minimum
7271prop_maximum = L.maximum `eqEP` T.maximum
72+prop_minimum = L.minimum `eqEP` T.minimum
73+
74+prop_scanl f z = L.scanl f z `eqP` (unpack . T.scanl f z)
7375
7476prop_take n = L.take n `eqP` (unpack . T.take n)
7577prop_drop n = L.drop n `eqP` (unpack . T.drop n)
@@ -136,8 +138,10 @@ tests = [
136138 ("prop_concatMap", mytest prop_concatMap),
137139 ("prop_any", mytest prop_any),
138140 ("prop_all", mytest prop_all),
139− ("prop_minimum", mytest prop_minimum),
140141 ("prop_maximum", mytest prop_maximum),
142+ ("prop_minimum", mytest prop_minimum),
143+
144+ ("prop_scanl", mytest prop_scanl),
141145
142146 ("prop_take", mytest prop_take),
143147 ("prop_drop", mytest prop_drop),