tests = testGroup "Conversions"

tests = testGroup "Conversions and Constructors"

    , printableTextSingletonTest

printableTextSingletonTest :: TestTree
printableTextSingletonTest = testGroup "singleton constructor"
    [ testCase "Whitespace character" $
        Nothing @=? PrintableText.singleton ' '
    , testCase "Valid character" $
        Just "f" @=? PrintableText.unPrintableText <$> PrintableText.singleton 'f'

singleton :: Char -> PrintableText
singleton = PrintableText . T.singleton

singleton :: Char -> Maybe PrintableText
singleton x
    | isSpace x = Nothing
    | otherwise = Just . PrintableText . T.singleton $ x