module Data.NonEmptyTest where

import qualified Data.NonEmptyPrivate as NonEmpty


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