diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-27 22:24:37 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-27 22:24:37 -0500 |
| commit | 1c07b112aa8c721beadc0494972c18462a5946bf (patch) | |
| tree | 9e15cb6c118f8d6dda35b09c481360e0e266f3f2 /Biz/Test.hs | |
| parent | 6c72ee7b29b5b69e93854fde67cbc7a53f998ed7 (diff) | |
Set subscription in user page, operator precedence
I'm still working on figuring out operator precedence with my custom operators.
The normal precedences don't work well for writing code in a pipeline as I like,
so I have to re-define the operators with my own fixity settings. This will take
some fiddling to get right.
The user subscription allows setting to "Free" only now. It's fine because I
still need to do a design refresh on the pages I just made. One thing I noticed
is that it's getting harder to make changes without breaking stuff, so I either
need to make smaller incremental changes, or actually write some real tests.
I'll probably write tests soon.
Diffstat (limited to 'Biz/Test.hs')
| -rw-r--r-- | Biz/Test.hs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Biz/Test.hs b/Biz/Test.hs index db71831..85c405f 100644 --- a/Biz/Test.hs +++ b/Biz/Test.hs @@ -18,7 +18,6 @@ where import Alpha hiding (group) import qualified Test.Tasty as Tasty -import Test.Tasty.HUnit ((@=?), (@?=)) import qualified Test.Tasty.HUnit as HUnit import qualified Test.Tasty.QuickCheck as QuickCheck @@ -74,3 +73,13 @@ assertNotEqual preface notexpected actual = a -> HUnit.Assertion expected @?!= actual = assertNotEqual "" expected actual + +infixl 2 @?!= + +(@=?) :: (Eq a, Show a) => a -> a -> HUnit.Assertion +a @=? b = a HUnit.@=? b +infixl 2 @=? + +(@?=) :: (Eq a, Show a) => a -> a -> HUnit.Assertion +a @?= b = a HUnit.@?= b +infixr 2 @?= |