non-empty-0.2: src/Data/NonEmptyTest.hs

module Data.NonEmptyTest where

import qualified Data.NonEmptyPrivate as NonEmpty


foldBalanced :: NonEmpty.T [] Integer -> Bool
foldBalanced xs =
   NonEmpty.foldBalanced (+) xs == NonEmpty.sum xs