import qualified Data.NonEmptyList  as NonEmptyList
import           Data.PrintableText

import qualified Data.PrintableText    as PrintableText

        Nothing @=? fromText ""

        Nothing @=? PrintableText.fromText ""

        Nothing @=? fromText " \t\r\n"

        Nothing @=? PrintableText.fromText " \t\r\n"

        Just "  this is valid" @=? unPrintableText <$> fromText "  this is valid"

        Just "  this is valid" @=? PrintableText.unPrintableText <$> PrintableText.fromText "  this is valid"
    ]