Start testing implications
This commit is contained in:
parent
33f751781e
commit
80d7460ec1
@ -1673,4 +1673,25 @@ mod tests
|
||||
if_and_only_if(vec![or(p2q2r2())]), if_and_only_if(vec![or(p3q3r3())])])),
|
||||
"p1 or q1 or r1 <-> p2 or q2 or r2 <-> p3 or q3 or r3");
|
||||
}
|
||||
|
||||
#[test]
|
||||
fn format_combination_implies_and_lower()
|
||||
{
|
||||
// Implies + implies
|
||||
assert_eq!(format(
|
||||
implies_right(implies_right(p1(), q1()), implies_right(p2(), q2()))),
|
||||
"(p1 -> q1) -> p2 -> q2");
|
||||
assert_eq!(format(
|
||||
implies_right(and(vec![implies_right(p1(), q1())]),
|
||||
and(vec![implies_right(p2(), q2())]))),
|
||||
"(p1 -> q1) -> p2 -> q2");
|
||||
assert_eq!(format(
|
||||
implies_right(or(vec![implies_right(p1(), q1())]),
|
||||
or(vec![implies_right(p2(), q2())]))),
|
||||
"(p1 -> q1) -> p2 -> q2");
|
||||
assert_eq!(format(
|
||||
implies_right(if_and_only_if(vec![implies_right(p1(), q1())]),
|
||||
if_and_only_if(vec![implies_right(p2(), q2())]))),
|
||||
"(p1 -> q1) -> p2 -> q2");
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user