@@ -7,6 +7,12 @@ module Unicode.CharSpec
77
88import qualified Data.Char as Char
99import qualified Unicode.Char as UChar
10+ -- [TODO] Remove the following qualified imports once isLetter and isSpace
11+ -- are removed from Unicode.Char.General
12+ import qualified Unicode.Char.General.Compat as UCharCompat
13+ -- [TODO] Remove the following qualified imports once isUpper and isLower
14+ -- are removed from Unicode.Char.Case
15+ import qualified Unicode.Char.Case.Compat as UCharCompat
1016import Data.Foldable (traverse_ )
1117import Test.Hspec
1218
@@ -45,7 +51,7 @@ spec = do
4551 it " isControl" do
4652 UChar. isControl `shouldBeEqualTo` Char. isControl
4753 it " isLetter" do
48- UChar . isLetter `shouldBeEqualTo` Char. isLetter
54+ UCharCompat . isLetter `shouldBeEqualTo` Char. isLetter
4955 it " isMark" do
5056 UChar. isMark `shouldBeEqualTo` Char. isMark
5157 it " isNumber" do
@@ -57,14 +63,14 @@ spec = do
5763 it " isSeparator" do
5864 UChar. isSeparator `shouldBeEqualTo` Char. isSeparator
5965 it " isSpace" do
60- UChar . isSpace `shouldBeEqualTo` Char. isSpace
66+ UCharCompat . isSpace `shouldBeEqualTo` Char. isSpace
6167 it " isSymbol" do
6268 UChar. isSymbol `shouldBeEqualTo` Char. isSymbol
6369 describe' " Case" do
6470 it " isLower" do
65- UChar . isLower `shouldBeEqualTo` Char. isLower
71+ UCharCompat . isLower `shouldBeEqualTo` Char. isLower
6672 it " isUpper" do
67- UChar . isUpper `shouldBeEqualTo` Char. isUpper
73+ UCharCompat . isUpper `shouldBeEqualTo` Char. isUpper
6874 it " toLower" do
6975 UChar. toLower `shouldBeEqualTo` Char. toLower
7076 it " toUpper" do
0 commit comments