lib-laddertypes/src/test/curry.rs
2023-10-02 15:15:58 +02:00

61 lines
1.5 KiB
Rust

use {
crate::{dict::*}
};
//<<<<>>>><<>><><<>><<<*>>><<>><><<>><<<<>>>>\\
#[test]
fn test_curry() {
let mut dict = TypeDict::new();
assert_eq!(
dict.parse("<A B C>").unwrap().curry(),
dict.parse("<<A B> C>").unwrap()
);
assert_eq!(
dict.parse("<A B C D>").unwrap().curry(),
dict.parse("<<<A B> C> D>").unwrap()
);
assert_eq!(
dict.parse("<A B C D E F G H I J K>").unwrap().curry(),
dict.parse("<<<<<<<<<<A B> C> D> E> F> G> H> I> J> K>").unwrap()
);
assert_eq!(
dict.parse("<A~X B C>").unwrap().curry(),
dict.parse("<<A~X B> C>").unwrap()
);
assert_eq!(
dict.parse("<A B C~Y~Z> ~ K").unwrap().curry(),
dict.parse("< <A B> C~Y~Z > ~ K").unwrap()
);
}
#[test]
fn test_decurry() {
let mut dict = TypeDict::new();
assert_eq!(
dict.parse("<<A B> C>").unwrap().decurry(),
dict.parse("<A B C>").unwrap()
);
assert_eq!(
dict.parse("<<<A B> C> D>").unwrap().decurry(),
dict.parse("<A B C D>").unwrap(),
);
assert_eq!(
dict.parse("<<<<<<<<<<A B> C> D> E> F> G> H> I> J> K>").unwrap().decurry(),
dict.parse("<A B C D E F G H I J K>").unwrap()
);
assert_eq!(
dict.parse("<<A~X B> C>").unwrap().decurry(),
dict.parse("<A~X B C>").unwrap()
);
assert_eq!(
dict.parse("<<A~X B> C~Y>~K").unwrap().decurry(),
dict.parse("<A~X B C~Y> ~K").unwrap()
);
}
//<<<<>>>><<>><><<>><<<*>>><<>><><<>><<<<>>>>\\