master..32e69f8 · typeable/inflections-hs

.travis.yml+8−7

since splitsnapshots

unifiedsplit

@@ -9,14 +9,14 @@ cache:

9

10matrix:

11 include:

12+ - env: CABALVER=1.24 GHCVER=7.6.3

13+ addons: {apt: {packages: [cabal-install-1.24,ghc-7.6.3], sources: [hvr-ghc]}}

14+ - env: CABALVER=1.24 GHCVER=7.8.4

15+ addons: {apt: {packages: [cabal-install-1.24,ghc-7.8.4,],sources: [hvr-ghc]}}

12 - env: CABALVER=1.24 GHCVER=7.10.3

16 - env: CABALVER=1.24 GHCVER=7.10.3

13 addons: {apt: {packages: [cabal-install-1.24,ghc-7.10.3],sources: [hvr-ghc]}}

17 addons: {apt: {packages: [cabal-install-1.24,ghc-7.10.3],sources: [hvr-ghc]}}

14 - env: CABALVER=1.24 GHCVER=8.0.2

18 - env: CABALVER=1.24 GHCVER=8.0.2

15 addons: {apt: {packages: [cabal-install-1.24,ghc-8.0.2],sources: [hvr-ghc]}}

19 addons: {apt: {packages: [cabal-install-1.24,ghc-8.0.2],sources: [hvr-ghc]}}

16− - env: CABALVER=2.2 GHCVER=8.2.2

17− addons: {apt: {packages: [cabal-install-2.2,ghc-8.2.2], sources: [hvr-ghc]}}

18− - env: CABALVER=2.2 GHCVER=8.4.3

19− addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.3], sources: [hvr-ghc]}}

20

21before_install:

22 - export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$PATH

@@ -33,11 +33,12 @@ script:

33 *) cabal configure --enable-tests -v2 -f dev ;;

34 esac

35 - cabal build

36− - cabal sdist

37 - case "$GHCVER" in

36 - case "$GHCVER" in

38− "8.4.3") cabal haddock | grep "100%" | wc -l | grep "1" ;;

37+ "7.6.3") true ;;

39− *) cabal haddock | grep "100%" | wc -l | grep "13" ;;

38+ *) cabal test --show-details=always ;;

40 esac

39 esac

40+ - cabal sdist

41+ - cabal haddock | grep "100%" | wc -l | grep "13"

41

42

42notifications:

43notifications:

43 email: false

44 email: false

CHANGELOG.md−23

@@ -1,26 +1,3 @@

1−## Inflections 0.4.0.6

2−* Support `megaparsec` == 9.0

3−

4−## Inflections 0.4.0.5

5−* Support `megaparsec` == 8.0

6−

7−## Inflections 0.4.0.3

8−* Support `megaparsec` == 7.0*.

9−* **Drop support** for `GHC 7.8.4`.

10−

11−## Inflections 0.4.0.3

12−* Support `exceptions` == 0.10.*

13−

14−## Inflections 0.4.0.2

15−* Support `exceptions` == 0.9.*

16−

17−## Inflections 0.4.0.1

18−* Support `megaparsec` >= 6.4.0

19−

20−## Inflections 0.4.0.0

21−

22−* Update megaparsec to version 6.

23−

24## Inflections 0.3.0.0

1## Inflections 0.3.0.0

25

2

26* A more type-safe API forbidding creation of invalid words.

3* A more type-safe API forbidding creation of invalid words.

LICENSE+18−17

@@ -1,21 +1,22 @@

1−MIT License

2

3+MIT License

4

5−Permission is hereby granted, free of charge, to any person obtaining a copy

5+Permission is hereby granted, free of charge, to any person obtaining

6−of this software and associated documentation files (the "Software"), to deal

6+a copy of this software and associated documentation files (the

7−in the Software without restriction, including without limitation the rights

7+"Software"), to deal in the Software without restriction, including

8+without limitation the rights to use, copy, modify, merge, publish,

8−to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

9+distribute, sublicense, and/or sell copies of the Software, and to

9−copies of the Software, and to permit persons to whom the Software is

10+permit persons to whom the Software is furnished to do so, subject to

10−furnished to do so, subject to the following conditions:

11+the following conditions:

11

12

12−The above copyright notice and this permission notice shall be included in all

13+The above copyright notice and this permission notice shall be

13−copies or substantial portions of the Software.

14+included in all copies or substantial portions of the Software.

14

15

15−THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

16+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

16−IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

17+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

17−FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE

18+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

19+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

18−AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

20+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

19−LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

21+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

20−OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE

22+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

21−SOFTWARE.

README.md+8−11

@@ -49,10 +49,11 @@ If you want to specify a custom default replacement or approximation table for

49the `transliterate` function, you should instead call the `transliterateCustom`

50function which accepts a String for replacements and a Map for substitution.

51

52−## Future work

52+## TODO

53

54−Ideally, we want to implement other functions found in the Rails

54+I'd like this library to implement other functions found in the Rails

55−inflections library. If you need one of those functions, please submit a pull request!

55+inflections library. If you need one of those functions, please submit a pull

56+request!

56

57

57## Further documentation

58## Further documentation

58

59

@@ -63,14 +64,10 @@ For more information, please see the the

63

64

64Justin Leitgeb <justin@stackbuilders.com>

65Justin Leitgeb <justin@stackbuilders.com>

65

66

66−## License

67−

68−MIT, see [the LICENSE file](LICENSE).

69−

70## Contributing

67## Contributing

71

68

72−Do you want to contribute to this project? Please take a look at our [contributing guideline](/docs/CONTRIBUTING.md) to know how you can help us build it.

69+You may submit pull requests to this repository on GitHub. Tests are appreciated with your contribution.

70+

71+## License

73

72

74−---

73+MIT - see [the LICENSE file](LICENSE).

75−<img src="https://cdn.stackbuilders.com/media/images/Sb-supports.original.png" alt="Stack Builders" width="50%"></img>

76−[Check out our libraries](https://github.com/stackbuilders/) | [Join our team](https://www.stackbuilders.com/join-us/)

Text/Inflections.hs+6−7

@@ -117,7 +117,6 @@ where

117

118import Control.Monad.Catch (MonadThrow (..))

119import Data.Text (Text)

120−import Data.Void (Void)

121import Text.Inflections.Camelize (camelize, camelizeCustom)

120import Text.Inflections.Camelize (camelize, camelizeCustom)

122import Text.Inflections.Dasherize (dasherize)

121import Text.Inflections.Dasherize (dasherize)

123import Text.Inflections.Data (Transliterations, defaultTransliterations)

122import Text.Inflections.Data (Transliterations, defaultTransliterations)

@@ -142,7 +141,7 @@ import Prelude hiding (Word)

142--

141--

143-- >>> toUnderscore "FooBarBazz"

142-- >>> toUnderscore "FooBarBazz"

144-- "foo_bar_bazz"

143-- "foo_bar_bazz"

145−toUnderscore :: Text -> Either (ParseErrorBundle Text Void) Text

144+toUnderscore :: Text -> Either (ParseError Char Dec) Text

146toUnderscore = fmap underscore . parseCamelCase []

145toUnderscore = fmap underscore . parseCamelCase []

147

146

148-- | Transforms CamelCasedString to snake-cased-string-with-dashes.

147-- | Transforms CamelCasedString to snake-cased-string-with-dashes.

@@ -151,7 +150,7 @@ toUnderscore = fmap underscore . parseCamelCase []

151--

150--

152-- >>> toDashed "FooBarBazz"

151-- >>> toDashed "FooBarBazz"

153-- "foo-bar-bazz"

152-- "foo-bar-bazz"

154−toDashed :: Text -> Either (ParseErrorBundle Text Void) Text

153+toDashed :: Text -> Either (ParseError Char Dec) Text

155toDashed = fmap dasherize . parseCamelCase []

154toDashed = fmap dasherize . parseCamelCase []

156

155

157-- | Transforms underscored_text to CamelCasedText. If first argument is

156-- | Transforms underscored_text to CamelCasedText. If first argument is

@@ -167,7 +166,7 @@ toDashed = fmap dasherize . parseCamelCase []

167toCamelCased

166toCamelCased

168 :: Bool -- ^ Capitalize the first character

167 :: Bool -- ^ Capitalize the first character

169 -> Text -- ^ Input

168 -> Text -- ^ Input

170− -> Either (ParseErrorBundle Text Void) Text -- ^ Output

169+ -> Either (ParseError Char Dec) Text -- ^ Output

171toCamelCased c = fmap (camelizeCustom c) . parseSnakeCase []

170toCamelCased c = fmap (camelizeCustom c) . parseSnakeCase []

172

171

173-- | Transforms underscored_text to space-separated human-readable text.

172-- | Transforms underscored_text to space-separated human-readable text.

@@ -186,10 +185,10 @@ toCamelCased c = fmap (camelizeCustom c) . parseSnakeCase []

186toHumanized

185toHumanized

187 :: Bool -- ^ Capitalize the first character

186 :: Bool -- ^ Capitalize the first character

188 -> Text -- ^ Input

187 -> Text -- ^ Input

189− -> Either (ParseErrorBundle Text Void) Text -- ^ Output

188+ -> Either (ParseError Char Dec) Text -- ^ Output

190toHumanized c = fmap (humanizeCustom c) . parseSnakeCase []

189toHumanized c = fmap (humanizeCustom c) . parseSnakeCase []

191

190

192−-- | Lift something of type @'Either' ('ParseError' 'Char' 'Void') a@ to

191+-- | Lift something of type @'Either' ('ParseError' 'Char' 'Dec') a@ to

193-- an instance of 'MonadThrow'. Useful when you want to shortcut on parsing

192-- an instance of 'MonadThrow'. Useful when you want to shortcut on parsing

194-- failures and you're in an instance of 'MonadThrow'.

193-- failures and you're in an instance of 'MonadThrow'.

195--

194--

@@ -197,6 +196,6 @@ toHumanized c = fmap (humanizeCustom c) . parseSnakeCase []

197--

196--

198-- /since 0.3.0.0/

197-- /since 0.3.0.0/

199

198

200−betterThrow :: MonadThrow m => Either (ParseErrorBundle Text Void) a -> m a

199+betterThrow :: MonadThrow m => Either (ParseError Char Dec) a -> m a

201betterThrow (Left err) = throwM (InflectionParsingFailed err)

200betterThrow (Left err) = throwM (InflectionParsingFailed err)

202betterThrow (Right x) = return x

201betterThrow (Right x) = return x

Text/Inflections/Ordinal.hs+1

@@ -16,6 +16,7 @@ module Text.Inflections.Ordinal

16 , ordinal )

17where

18

19+import Data.Monoid ((<>))

19import Data.Text (Text)

20import Data.Text (Text)

20import qualified Data.Text as T

21import qualified Data.Text as T

21

22

Text/Inflections/Parse/CamelCase.hs+5−12

@@ -17,16 +17,11 @@ module Text.Inflections.Parse.CamelCase

17 ( parseCamelCase )

18where

19

20−# if MIN_VERSION_base(4,8,0)

21−import Control.Applicative (empty, many, (<|>))

20+import Control.Applicative

22−#else

23−import Control.Applicative (empty, many, (<|>), (<$>), (<*))

24−#endif

25import Data.Text (Text)

21import Data.Text (Text)

26−import Data.Void (Void)

27import Text.Inflections.Types

22import Text.Inflections.Types

28−import Text.Megaparsec (Parsec, ParseErrorBundle, choice, eof, parse)

23+import Text.Megaparsec

29−import Text.Megaparsec.Char

24+import Text.Megaparsec.Text

30import qualified Data.Text as T

25import qualified Data.Text as T

31

26

32#if MIN_VERSION_base(4,8,0)

27#if MIN_VERSION_base(4,8,0)

@@ -36,8 +31,6 @@ import Data.Foldable

36import Prelude hiding (elem)

31import Prelude hiding (elem)

37#endif

32#endif

38

33

39−type Parser = Parsec Void Text

40−

41-- | Parse a CamelCase string.

34-- | Parse a CamelCase string.

42--

35--

43-- >>> bar <- mkAcronym "bar"

36-- >>> bar <- mkAcronym "bar"

@@ -51,7 +44,7 @@ type Parser = Parsec Void Text

51parseCamelCase :: (Foldable f, Functor f)

44parseCamelCase :: (Foldable f, Functor f)

52 => f (Word 'Acronym) -- ^ Collection of acronyms

45 => f (Word 'Acronym) -- ^ Collection of acronyms

53 -> Text -- ^ Input

46 -> Text -- ^ Input

54− -> Either (ParseErrorBundle Text Void) [SomeWord] -- ^ Result of parsing

47+ -> Either (ParseError Char Dec) [SomeWord] -- ^ Result of parsing

55parseCamelCase acronyms = parse (parser acronyms) ""

48parseCamelCase acronyms = parse (parser acronyms) ""

56

49

57parser :: (Foldable f, Functor f)

50parser :: (Foldable f, Functor f)

@@ -66,7 +59,7 @@ acronym :: (Foldable f, Functor f)

66 => f (Word 'Acronym)

59 => f (Word 'Acronym)

67 -> Parser (Word 'Acronym)

60 -> Parser (Word 'Acronym)

68acronym acronyms = do

61acronym acronyms = do

69− x <- choice (string . unWord <$> acronyms)

62+ x <- T.pack <$> choice (string . T.unpack . unWord <$> acronyms)

70 case mkAcronym x of

63 case mkAcronym x of

71 Nothing -> empty -- cannot happen if the system is sound

64 Nothing -> empty -- cannot happen if the system is sound

72 Just acr -> return acr

65 Just acr -> return acr

Text/Inflections/Parse/SnakeCase.hs+4−11

@@ -16,16 +16,11 @@ module Text.Inflections.Parse.SnakeCase

16 ( parseSnakeCase )

17where

18

19−# if MIN_VERSION_base(4,8,0)

20−import Control.Applicative (empty, some)

19+import Control.Applicative

21−#else

22−import Control.Applicative (empty, some, (<$>), (<*))

23−#endif

24import Data.Text (Text)

20import Data.Text (Text)

25−import Data.Void (Void)

26import Text.Inflections.Types

21import Text.Inflections.Types

27−import Text.Megaparsec (Parsec, ParseErrorBundle, eof, sepBy, parse)

22+import Text.Megaparsec

28−import Text.Megaparsec.Char

23+import Text.Megaparsec.Text

29import qualified Data.Text as T

24import qualified Data.Text as T

30

25

31#if MIN_VERSION_base(4,8,0)

26#if MIN_VERSION_base(4,8,0)

@@ -35,8 +30,6 @@ import Data.Foldable

35import Prelude hiding (elem)

30import Prelude hiding (elem)

36#endif

31#endif

37

32

38−type Parser = Parsec Void Text

39−

40-- | Parse a snake_case string.

33-- | Parse a snake_case string.

41--

34--

42-- >>> bar <- mkAcronym "bar"

35-- >>> bar <- mkAcronym "bar"

@@ -50,7 +43,7 @@ type Parser = Parsec Void Text

50parseSnakeCase :: (Foldable f, Functor f)

43parseSnakeCase :: (Foldable f, Functor f)

51 => f (Word 'Acronym) -- ^ Collection of acronyms

44 => f (Word 'Acronym) -- ^ Collection of acronyms

52 -> Text -- ^ Input

45 -> Text -- ^ Input

53− -> Either (ParseErrorBundle Text Void) [SomeWord] -- ^ Result of parsing

46+ -> Either (ParseError Char Dec) [SomeWord] -- ^ Result of parsing

54parseSnakeCase acronyms = parse (parser acronyms) ""

47parseSnakeCase acronyms = parse (parser acronyms) ""

55

48

56parser :: (Foldable f, Functor f)

49parser :: (Foldable f, Functor f)

Text/Inflections/Types.hs+1−2

@@ -33,7 +33,6 @@ where

33import Control.Monad.Catch

34import Data.Char (isAlphaNum)

35import Data.Data (Data)

36−import Data.Void (Void)

37import Data.Text (Text)

36import Data.Text (Text)

38import Data.Typeable (Typeable)

37import Data.Typeable (Typeable)

39import GHC.Generics (Generic)

38import GHC.Generics (Generic)

@@ -136,7 +135,7 @@ instance Transformable (Word 'Acronym) where

136-- /since 0.3.0.0/

135-- /since 0.3.0.0/

137

136

138data InflectionException

137data InflectionException

139− = InflectionParsingFailed (ParseErrorBundle Text Void)

138+ = InflectionParsingFailed (ParseError Char Dec)

140 | InflectionInvalidWord Text

139 | InflectionInvalidWord Text

141 | InflectionInvalidAcronym Text

140 | InflectionInvalidAcronym Text

142 deriving (Eq, Show, Typeable, Data, Generic)

141 deriving (Eq, Show, Typeable, Data, Generic)

docs/CODE_OF_CONDUCT.mddeleted−35

@@ -1,35 +0,0 @@

1−# Code of conduct

2−

3−## Purpose

4−The primary goal of this Code of Conduct is to enable an open and welcoming environment. We pledge to making participation in our project a harassment-free experience for everyone, regardless of gender, sexual

5−orientation, ability, ethnicity, socioeconomic status, and religion (or lack thereof).

6−

7−## General recommendations

8−Examples of behavior that contributes to creating a positive environment include:

9−

10−- Using welcoming and inclusive language

11−- Being respectful of differing viewpoints and experiences

12−- Gracefully accepting constructive criticism

13−- Focusing on what is best for the community

14−- Showing empathy towards other community members

15−

16−Examples of unacceptable behavior by participants include:

17−

18−- The use of sexualized language or imagery and unwelcome sexual attention or advances

19−- Trolling, insulting/derogatory comments, and personal or political attacks

20−- Public or private harassment

21−- Publishing others' private information, such as a physical or electronic address, without explicit permission

22−- Other conduct which could reasonably be considered inappropriate in a professional setting

23−

24−## Maintainer responsibilities

25−Project maintainers are responsible for clarifying the standards of acceptable behavior and are expected to take appropriate and fair corrective action in response to any instances of unacceptable behavior.

26−

27−Project maintainers have the right and responsibility to remove, edit, or reject comments, commits, code, wiki edits, issues, and other contributions that are not aligned to this Code of Conduct, or to ban temporarily or permanently any contributor for other behaviors that they deem inappropriate, threatening, offensive, or harmful.

28−

29−## Scope

30−This Code of Conduct applies both within project spaces and in public spaces when an individual is representing the project or its community. Examples of representing a project or community include using an official project e-mail address, posting via an official social media account, or acting as an appointed representative at an online or offline event. Representation of a project may be further defined and clarified by project maintainers.

31−

32−## Enforcement

33−Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by contacting the project team at [community@stackbuilders.com](mailto:community@stackbuilders.com). All complaints will be reviewed and investigated and will result in a response that is deemed necessary and appropriate to the circumstances. The project team is obligated to maintain confidentiality with regard to the reporter of an incident. Further details of specific enforcement policies may be posted separately.

34−

35−Project maintainers who do not follow or enforce the Code of Conduct in good faith may face temporary or permanent repercussions as determined by other members of the project's leadership.

docs/CONTRIBUTING.mddeleted−13

@@ -1,13 +0,0 @@

1−

2−Thank you for your interest in contributing to this Stack Builders' library. To contribute, please take our [Code of Conduct](CODE_OF_CONDUCT.md) into account, along with the following recommendations:

3−

4−- When submitting contributions to this repository, please make sure to discuss with the maintainer(s) the change you want to make. You can do this through an issue, or by sending an email to [community@stackbuilders.com](mailto:community@stackbuilders.com)

5−

6−- Once the change has been discussed with the maintainer(s), feel free to open a Pull Request. Please include a link to the issue you're trying to solve, or a quick summary of the discussed changes.

7−

8−- If adding any new features that you think should be considered in the README file, please add that information in your Pull Request.

9−

10−- Once you get an approval from any of the maintainers, please merge your Pull Request. Keep in mind that some of our Stack Builders repositories use CI/CD pipelines, so you will need to pass all of the required checks before merging.

11−

12−## Getting help

13−Contact any of our current maintainers, or send us an email at [community@stackbuilders.com](mailto:community@stackbuilders.com) for more information. Thank you for contributing!

inflections.cabal+10−20

@@ -1,5 +1,5 @@

1name: inflections

2−version: 0.4.0.6

2+version: 0.3.0.0

3synopsis: Inflections library for Haskell

4description:

5 Inflections provides methods for singularization, pluralization,

@@ -48,13 +48,10 @@ library

48 else

49 ghc-options: -O2 -Wall

50 build-depends: base >= 4.6 && < 5.0

51− , exceptions

51+ , exceptions >= 0.6 && < 0.9

52− , megaparsec

52+ , megaparsec >= 5.0 && < 6.0

53− , text

53+ , text >= 0.2 && < 1.3

54− , unordered-containers

54+ , unordered-containers >= 0.2.7 && < 0.3

55− if !impl(ghc >= 7.10)

56− build-depends: void == 0.7.*

57−

58 default-language: Haskell2010

55 default-language: Haskell2010

59

56

60test-suite test

57test-suite test

@@ -62,19 +59,12 @@ test-suite test

62 hs-source-dirs: test

59 hs-source-dirs: test

63 main-is: Spec.hs

60 main-is: Spec.hs

64 build-depends: inflections

61 build-depends: inflections

65− , QuickCheck

62+ , QuickCheck >= 2.7.6 && < 3.0

66 , base >= 4.6 && < 5.0

63 , base >= 4.6 && < 5.0

67− , containers

64+ , hspec >= 2.0 && < 3.0

68− , hspec

69− , hspec-megaparsec

65+ , hspec-megaparsec >= 0.3 && < 0.4

70− , megaparsec

66+ , megaparsec >= 5.1 && < 6.0

71− , text

67+ , text >= 0.2 && < 1.3

72− if !impl(ghc >= 7.10)

73− build-depends: void == 0.7.*

74−

75− if !impl(ghc >= 8.0)

76− build-depends: semigroups == 0.18.*

77−

78 if flag(dev)

68 if flag(dev)

79 ghc-options: -Wall -Werror

69 ghc-options: -Wall -Werror

80 else

70 else

stack.yaml+6−1

@@ -1 +1,6 @@

1−resolver: lts-21.3

1+resolver: lts-7.13

2+packages:

3+- '.'

4+extra-deps:

5+- hspec-megaparsec-0.3.0

6+- megaparsec-5.1.2

stack.yaml.lockdeleted−12

@@ -1,12 +0,0 @@

1−# This file was autogenerated by Stack.

2−# You should not edit this file by hand.

3−# For more information, please see the documentation at:

4−# https://docs.haskellstack.org/en/stable/lock_files

5−

6−packages: []

7−snapshots:

8−- completed:

9− sha256: 97710f56bf093fca0ee5d8dbe19d96b654c752e405b66795b4baedd84a794c60

10− size: 640010

11− url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/3.yaml

12− original: lts-21.3

test/Text/InflectionsSpec.hs+1−52

@@ -1,60 +1,10 @@

1−{-# OPTIONS_GHC -fno-warn-orphans #-}

2−{-# LANGUAGE CPP #-}

3{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

4

2

5module Text.InflectionsSpec (spec) where

3module Text.InflectionsSpec (spec) where

6

4

7−import Data.Void

8import Test.Hspec

5import Test.Hspec

9import Test.QuickCheck

6import Test.QuickCheck

10import Text.Inflections

7import Text.Inflections

11−import Text.Megaparsec

12−import Data.Text

13−

14−import qualified Data.List.NonEmpty as NE

15−import qualified Data.Set as S

16−

17−#if !MIN_VERSION_base(4,8,0)

18−import Control.Applicative

19−#endif

20−

21−instance Arbitrary Text where

22− arbitrary = pack <$> (arbitrary :: Gen String)

23−

24−arbitraryParseErrorBundle :: Gen (ParseErrorBundle Text Void)

25−arbitraryParseErrorBundle = ParseErrorBundle <$> nonEmptyParseErrors <*> arbitraryPosState

26− where

27− posArbitrary = mkPos <$> ((+1) . abs <$> arbitrary)

28− nonEmptyParseErrors :: Gen (NE.NonEmpty (ParseError Text Void))

29− nonEmptyParseErrors = NE.fromList <$> listOf1 arbitraryParseError

30− arbitrarySourcePos :: Gen SourcePos

31− arbitrarySourcePos = SourcePos <$> arbitrary <*> posArbitrary <*> posArbitrary

32− arbitraryPosState :: Gen (PosState Text)

33− arbitraryPosState =

34− PosState

35− <$> arbitrary

36− <*> arbitrary

37− <*> arbitrarySourcePos

38− <*> posArbitrary

39− <*> arbitrary

40−

41−arbitraryParseError :: Gen (ParseError Text Void)

42−arbitraryParseError = oneof [trivialError, fancyError]

43− where

44− trivialError = TrivialError <$> arbitrary <*> maybeErrorItem <*> setErrorItem

45− fancyError = FancyError <$> arbitrary <*> setErrorFancy

46− setErrorFancy = S.fromList <$> listOf arbitraryErrorFancy

47− maybeErrorItem = oneof [ Just <$> arbitraryErrorItem, return Nothing]

48− setErrorItem = S.fromList <$> listOf arbitraryErrorItem

49−

50−arbitraryErrorFancy :: Gen (ErrorFancy e)

51−arbitraryErrorFancy = oneof [ ErrorFail <$> arbitrary ]

52−

53−arbitraryErrorItem :: (Arbitrary e) => Gen (ErrorItem e)

54−arbitraryErrorItem = oneof [ tokens_, labels_, return EndOfInput ]

55− where

56− tokens_ = Tokens <$> (NE.fromList <$> listOf1 arbitrary)

57− labels_ = Label <$> (NE.fromList <$> listOf1 arbitrary)

58

8

59spec :: Spec

9spec :: Spec

60spec = do

10spec = do

@@ -88,10 +38,9 @@ spec = do

88 describe "betterThrow" $ do

38 describe "betterThrow" $ do

89 context "when given a parse error" $

39 context "when given a parse error" $

90 it "throws the correct exception" $

40 it "throws the correct exception" $

91− property $ forAll arbitraryParseErrorBundle $ \err ->

41+ property $ \err ->

92 betterThrow (Left err) `shouldThrow`

42 betterThrow (Left err) `shouldThrow`

93 (== InflectionParsingFailed err)

43 (== InflectionParsingFailed err)

94−

95 context "when given a value in Right" $

44 context "when given a value in Right" $

96 it "returns the value" $

45 it "returns the value" $

97 property $ \x ->

46 property $ \x ->