Ability to mark entire describe or context blocks as pending

[glittershark]

It'd be nice to be able to mark entire describe or context blocks as pending, either by prefixing them with an x a-la rspec or just calling pending somewhere in the do-body of the block.

[jetpacmonkey]

+1

[sol]

This can already be done with something like

spec = before_ pending $ do
  describe "...

With this you can easily define xit and xdescribe, e.g.:

xit :: Example a => String -> a -> SpecWith (Arg a)
xit s = before_ pending . it s

xdescribe :: String -> SpecWith a -> SpecWith a
xdescribe s = before_ pending . describe s

I'm happy to accept a PR that adds xit and xdescribe.

[lslah]

While trying to add xit and xdescribe I noticed that the following spec would report one failing test instead of one pending test:

spec :: Spec
spec = before_ pending $ it "should be pending" False

Data.String.Strip
  should be pending FAILED [1]

Failures:

  test/Data/String/StripSpec.hs:9:
  1) Data.String.Strip should be pending

Randomized with seed 427512909

Finished in 0.0003 seconds
1 example, 1 failure

In contrast, the next spec works as expected:

spec :: Spec
spec = before_ pending $ it "should be pending" $ False `shouldBe` True

Data.String.Strip
  should be pending
     # PENDING: No reason given

Finished in 0.0002 seconds
1 example, 0 failures, 1 pending

Is this behaviour expected and desired?

[sol]

@lslah given that Bool-examples are both pure and rarely used, I did not consider it crucial enough to invest my time to implement support for around-hooks for them. It's fixed on master now.