add wrappers for new tests approach with hspec

[Intey]

No description provided.

[Intey]

Нужен, чтобы изменить стиль форматирования тестов.
Было

task 1
  user should define the @ToJSON@ for Int [✔️]
  user should define the @ToJSON@ for Point 5 3 [✘]
  user should define the @ToJSON@ for Point 7 3 [✘]
triangleArea
  should return correct area [✔️]
    +++ OK, passed 100 tests.

Failures:

  /home/intey/projects/senjun/hs-builder/example/Task1Spec.hs:21:45: 
  1) task 1 user should define the @ToJSON@ for Point 5 3
       expected: "{\"x\": 5, \"y\": 3}"
        but got: "{\"x\":5,\"y\":3}"

  To rerun use: --match "/task 1/user should define the @ToJSON@ for Point 5 3/" --seed 1857915877

  /home/intey/projects/senjun/hs-builder/example/Task1Spec.hs:23:45: 
  2) task 1 user should define the @ToJSON@ for Point 7 3
       expected: "{\"x\":7, \"y\":3}"
        but got: "{\"x\":7,\"y\":3}"

  To rerun use: --match "/task 1/user should define the @ToJSON@ for Point 7 3/" --seed 1857915877

Randomized with seed 1857915877

Finished in 0.0006 seconds
4 examples, 2 failures

Стало

task 1.user should define the @ToJSON@ for Point 5 3
? "{\"x\": 5, \"y\": 3}"
- "{\"x\":5,\"y\":3}"

task 1.user should define the @ToJSON@ for Point 7 3
? "{\"x\":7, \"y\":3}"
- "{\"x\":7,\"y\":3}"

Чтобы это работало, надо в файле тестов регистрировать этот форматтер и запускать stack test --test-arguments="-f machine".