-
Notifications
You must be signed in to change notification settings - Fork 4
/
MonusTests.scala
40 lines (34 loc) · 1.42 KB
/
MonusTests.scala
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
/*
* Copyright 2021 Arman Bilge
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
package schrodinger.laws
import cats.kernel.Eq
import cats.kernel.laws.discipline.*
import org.scalacheck.Arbitrary
import org.scalacheck.Prop.forAll
import org.typelevel.discipline.Laws
import schrodinger.math.Monus
trait MonusTests[A](laws: MonusLaws[A]) extends Laws:
def monus(using Arbitrary[A], Arbitrary[A => A], Eq[A], Eq[Option[A]]): RuleSet =
val props = Seq(
"axiom 1" -> forAll(laws.monusAxiom1),
"axiom 2" -> forAll(laws.monusAxiom2),
"axiom 3" -> forAll(laws.monusAxiom3),
"axiom 4" -> forAll(laws.monusAxiom4),
"natural order consistency" -> forAll(laws.monusNaturalOrderConsistency),
) ++ PartialOrderTests[A](using laws.A.naturalOrder).partialOrder.all.properties
DefaultRuleSet("monus", None, props*)
object MonusTests:
def apply[A: Monus]: MonusTests[A] = new MonusTests(MonusLaws[A]) {}