errorTests :: TestTree
errorTests = testGroup "Errors"
  [ testCase "Parse simple error type" $
        parseErrorType "org.freedesktop.UDisks2.Error.NotAuthorizedCanObtain" @=? U.ErrorNotAuthorizedCanObtain
  ]
errorTests :: TestTree
errorTests = testGroup "Errors"
  [ testCase "Parse simple error type" $
        parseErrorType "org.freedesktop.UDisks2.Error.NotAuthorizedCanObtain" @=? U.ErrorNotAuthorizedCanObtain
  ]
errorTests = testGroup "Errors"
  [ testCase "Parse simple error type" $
        parseErrorType "org.freedesktop.UDisks2.Error.NotAuthorizedCanObtain" @=? U.ErrorNotAuthorizedCanObtain
  ]