freckle-app-1.27.0.1: library/Freckle/App/Test/Properties/PathPiece.hs

module Freckle.App.Test.Properties.PathPiece
  ( prop_roundTripPathPiece
  ) where

import Freckle.App.Prelude

import Web.PathPieces

-- | Check that @fromPathPiece (toPathPiece value)@ is @value@
prop_roundTripPathPiece :: (Eq a, PathPiece a) => a -> Bool
prop_roundTripPathPiece a = fromPathPiece (toPathPiece a) == Just a