forked from extendr/extendr
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
serde: this test fails, so it needs to be fixed somehow
- Loading branch information
Showing
3 changed files
with
402 additions
and
320 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,174 +1,172 @@ | ||
| #[cfg(feature = "serde")] | ||
| mod test { | ||
| use extendr_api::deserializer::from_robj; | ||
| use extendr_api::prelude::*; | ||
| use serde::Deserialize; | ||
|
|
||
| //////////////////////////////////////////////////////////////////////////////// | ||
| /// | ||
| /// Deserialize from a Robj. | ||
| /// | ||
| /// Like JSON, we can use a Robj as a storage format. | ||
| /// | ||
| /// For example if creating vectors from a RDS file or returning a structure | ||
| /// or just doing a conversion. | ||
| /// | ||
| #[test] | ||
| fn test_deserialize_robj() { | ||
| test! { | ||
| // In these tests, the wrapper is transparent and just tests the contents. | ||
| // So Int(i32) is actually testing i32. | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Null; | ||
| assert_eq!(from_robj::<Null>(&r!(NULL)), Ok(Null)); | ||
| assert_eq!(from_robj::<Null>(&r!(1)), Err(Error::ExpectedNull(r!(1)))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Int(i32); | ||
| assert_eq!(from_robj::<Int>(&r!(1)), Ok(Int(1))); | ||
| assert_eq!(from_robj::<Int>(&r!(1.0)), Ok(Int(1))); | ||
| assert_eq!(from_robj::<Int>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RInt(Rint); | ||
| assert_eq!(from_robj::<RInt>(&r!(1)), Ok(RInt(1.into()))); | ||
| assert_eq!(from_robj::<RInt>(&r!(1.0)), Ok(RInt(1.into()))); | ||
| assert_eq!(from_robj::<RInt>(&r!(Rint::na())).is_err(), true); | ||
| assert_eq!(from_robj::<RInt>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Float(f64); | ||
| assert_eq!(from_robj::<Float>(&r!(1)), Ok(Float(1.0))); | ||
| assert_eq!(from_robj::<Float>(&r!(1.0)), Ok(Float(1.0))); | ||
| assert_eq!(from_robj::<Float>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RFloat(Rfloat); | ||
| assert_eq!(from_robj::<RFloat>(&r!(1)), Ok(RFloat(1.0.into()))); | ||
| assert_eq!(from_robj::<RFloat>(&r!(1.0)), Ok(RFloat(1.0.into()))); | ||
| assert_eq!(from_robj::<RFloat>(&r!(Rfloat::na())).is_err(), true); | ||
| assert_eq!(from_robj::<RFloat>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Bool(bool); | ||
| assert_eq!(from_robj::<Bool>(&r!(TRUE)), Ok(Bool(true))); | ||
| assert_eq!(from_robj::<Bool>(&r!(FALSE)), Ok(Bool(false))); | ||
| assert_eq!(from_robj::<Bool>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RBool(Rbool); | ||
| assert_eq!(from_robj::<RBool>(&r!(TRUE)), Ok(RBool(TRUE))); | ||
| assert_eq!(from_robj::<RBool>(&r!(FALSE)), Ok(RBool(FALSE))); | ||
| assert_eq!(from_robj::<RBool>(&r!(Rbool::na())).is_err(), true); | ||
| assert_eq!(from_robj::<RBool>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VInt(Vec<i32>); | ||
| assert_eq!(from_robj::<VInt>(&r!(list!(1, 2))), Ok(VInt(vec![1, 2]))); | ||
| assert_eq!(from_robj::<VInt>(&r!([1, 2])), Ok(VInt(vec![1, 2]))); | ||
| assert_eq!(from_robj::<VInt>(&r!([1, 2, i32::na()])).is_err(), true); | ||
|
|
||
| // Any integer type will do. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VInt16(Vec<i16>); | ||
| assert_eq!(from_robj::<VInt16>(&r!(list!(1, 2))), Ok(VInt16(vec![1, 2]))); | ||
| assert_eq!(from_robj::<VInt16>(&r!([1, 2])), Ok(VInt16(vec![1, 2]))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VFloat64(Vec<f64>); | ||
| assert_eq!(from_robj::<VFloat64>(&r!(list!(1, 2))), Ok(VFloat64(vec![1., 2.]))); | ||
| assert_eq!(from_robj::<VFloat64>(&r!([1, 2])), Ok(VFloat64(vec![1., 2.]))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VBool(Vec<bool>); | ||
| assert_eq!(from_robj::<VBool>(&r!(list!(TRUE, FALSE))), Ok(VBool(vec![true, false]))); | ||
| assert_eq!(from_robj::<VBool>(&r!([TRUE, FALSE])), Ok(VBool(vec![true, false]))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Str(String); | ||
| assert_eq!(from_robj::<Str>(&r!("xyz")), Ok(Str("xyz".into()))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct StrSlice<'a>(&'a str); | ||
| assert_eq!(from_robj::<StrSlice>(&r!("xyz")), Ok(StrSlice("xyz"))); | ||
|
|
||
| // Structs are mapped to named lists. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Struct { a: i32, b: f64 } | ||
| assert_eq!(from_robj::<Struct>(&r!(list!(a=1, b=2))), Ok(Struct{ a: 1, b: 2.0 })); | ||
|
|
||
| // Enums are mapped to named lists of lists. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| enum Enum { | ||
| Unit, | ||
| Newtype(u32), | ||
| Tuple(u32, u32), | ||
| Struct { a: u32 }, | ||
| } | ||
|
|
||
| let j = r!("Unit"); | ||
| let expected = Enum::Unit; | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| // If the name is wrong: | ||
| let j = r!("UnitX"); | ||
| assert_eq!(from_robj::<Enum>(&j).is_err(), true); | ||
|
|
||
| let j = r!(list!(Newtype=1)); | ||
| let expected = Enum::Newtype(1); | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| let j = r!(list!(Tuple=list!(1, 2))); | ||
| let expected = Enum::Tuple(1, 2); | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| let j = r!(list!(Struct=list!(a=1))); | ||
| let expected = Enum::Struct { a: 1 }; | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| // Many things will generate a Robj. | ||
| // But note that the original Robj will not be copied verbatim. | ||
| // The Deserialize trait for Robj can also be used to generate | ||
| // JSON and other formats for Robj. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct WrapRobj(Robj); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!(TRUE)), Ok(WrapRobj(r!(TRUE)))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!(1)), Ok(WrapRobj(r!(1)))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!(1.0)), Ok(WrapRobj(r!(1.0)))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!("xyz")), Ok(WrapRobj(r!("xyz")))); | ||
|
|
||
| // Sequences are always converted to lists. | ||
| assert_eq!(from_robj::<WrapRobj>(&r!([TRUE, FALSE])), Ok(WrapRobj(r!(list!(TRUE, FALSE))))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!([1, 2])), Ok(WrapRobj(r!(list!(1, 2))))); | ||
|
|
||
| // If you use a wrapper type, conversions are more specific. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RIntegers(Integers); | ||
| assert_eq!(from_robj::<RIntegers>(&r!(1)), Ok(RIntegers(Integers::from_values([1])))); | ||
| assert_eq!(from_robj::<RIntegers>(&r!([1, 2])), Ok(RIntegers(Integers::from_values([1, 2])))); | ||
| assert_eq!(from_robj::<RIntegers>(&r!(1.0)).is_err(), true); | ||
| assert_eq!(from_robj::<RIntegers>(&r!("xyz")).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RDoubles(Doubles); | ||
| assert_eq!(from_robj::<RDoubles>(&r!(1)), Ok(RDoubles(Doubles::from_values([1.0])))); | ||
| // assert_eq!(from_robj::<RDoubles>(&r!([1, 2])), Ok(RDoubles(Doubles::from_values([1.0, 2.0])))); | ||
| assert_eq!(from_robj::<RDoubles>(&r!([1.0, 2.0])), Ok(RDoubles(Doubles::from_values([1.0, 2.0])))); | ||
| assert_eq!(from_robj::<RDoubles>(&r!("xyz")).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RLogicals(Logicals); | ||
| assert_eq!(from_robj::<RLogicals>(&r!(TRUE)), Ok(RLogicals(Logicals::from_values([TRUE])))); | ||
| assert_eq!(from_robj::<RLogicals>(&r!([TRUE, FALSE, NA_LOGICAL])), Ok(RLogicals(Logicals::from_values([TRUE, FALSE, NA_LOGICAL])))); | ||
| assert_eq!(from_robj::<RLogicals>(&r!("xyz")).is_err(), true); | ||
|
|
||
| // This requires a PR that is not yet merged. | ||
| // #[derive(Deserialize, PartialEq, Debug)] | ||
| // struct RStrings(Strings); | ||
| // assert_eq!(from_robj::<RStrings>(&r!("xyz")), Ok(RStrings(Strings::from_values(["xyz"])))); | ||
| // assert_eq!(from_robj::<RStrings>(&r!(["a", "b"])), Ok(RStrings(Strings::from_values(["a", "b"])))); | ||
| // assert_eq!(from_robj::<RStrings>(&r!(0)).is_err(), true); | ||
| #![cfg(feature = "serde")] | ||
| use extendr_api::deserializer::from_robj; | ||
| use extendr_api::prelude::*; | ||
| use serde::Deserialize; | ||
|
|
||
| //////////////////////////////////////////////////////////////////////////////// | ||
| /// | ||
| /// Deserialize from a Robj. | ||
| /// | ||
| /// Like JSON, we can use a Robj as a storage format. | ||
| /// | ||
| /// For example if creating vectors from a RDS file or returning a structure | ||
| /// or just doing a conversion. | ||
| /// | ||
| #[test] | ||
| fn test_deserialize_robj() { | ||
| test! { | ||
| // In these tests, the wrapper is transparent and just tests the contents. | ||
| // So Int(i32) is actually testing i32. | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Null; | ||
| assert_eq!(from_robj::<Null>(&r!(NULL)), Ok(Null)); | ||
| assert_eq!(from_robj::<Null>(&r!(1)), Err(Error::ExpectedNull(r!(1)))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Int(i32); | ||
| assert_eq!(from_robj::<Int>(&r!(1)), Ok(Int(1))); | ||
| assert_eq!(from_robj::<Int>(&r!(1.0)), Ok(Int(1))); | ||
| assert_eq!(from_robj::<Int>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RInt(Rint); | ||
| assert_eq!(from_robj::<RInt>(&r!(1)), Ok(RInt(1.into()))); | ||
| assert_eq!(from_robj::<RInt>(&r!(1.0)), Ok(RInt(1.into()))); | ||
| assert_eq!(from_robj::<RInt>(&r!(Rint::na())).is_err(), true); | ||
| assert_eq!(from_robj::<RInt>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Float(f64); | ||
| assert_eq!(from_robj::<Float>(&r!(1)), Ok(Float(1.0))); | ||
| assert_eq!(from_robj::<Float>(&r!(1.0)), Ok(Float(1.0))); | ||
| assert_eq!(from_robj::<Float>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RFloat(Rfloat); | ||
| assert_eq!(from_robj::<RFloat>(&r!(1)), Ok(RFloat(1.0.into()))); | ||
| assert_eq!(from_robj::<RFloat>(&r!(1.0)), Ok(RFloat(1.0.into()))); | ||
| assert_eq!(from_robj::<RFloat>(&r!(Rfloat::na())).is_err(), true); | ||
| assert_eq!(from_robj::<RFloat>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Bool(bool); | ||
| assert_eq!(from_robj::<Bool>(&r!(TRUE)), Ok(Bool(true))); | ||
| assert_eq!(from_robj::<Bool>(&r!(FALSE)), Ok(Bool(false))); | ||
| assert_eq!(from_robj::<Bool>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RBool(Rbool); | ||
| assert_eq!(from_robj::<RBool>(&r!(TRUE)), Ok(RBool(TRUE))); | ||
| assert_eq!(from_robj::<RBool>(&r!(FALSE)), Ok(RBool(FALSE))); | ||
| assert_eq!(from_robj::<RBool>(&r!(Rbool::na())).is_err(), true); | ||
| assert_eq!(from_robj::<RBool>(&r!(NULL)).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VInt(Vec<i32>); | ||
| assert_eq!(from_robj::<VInt>(&r!(list!(1, 2))), Ok(VInt(vec![1, 2]))); | ||
| assert_eq!(from_robj::<VInt>(&r!([1, 2])), Ok(VInt(vec![1, 2]))); | ||
| assert_eq!(from_robj::<VInt>(&r!([1, 2, i32::na()])).is_err(), true); | ||
|
|
||
| // Any integer type will do. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VInt16(Vec<i16>); | ||
| assert_eq!(from_robj::<VInt16>(&r!(list!(1, 2))), Ok(VInt16(vec![1, 2]))); | ||
| assert_eq!(from_robj::<VInt16>(&r!([1, 2])), Ok(VInt16(vec![1, 2]))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VFloat64(Vec<f64>); | ||
| assert_eq!(from_robj::<VFloat64>(&r!(list!(1, 2))), Ok(VFloat64(vec![1., 2.]))); | ||
| assert_eq!(from_robj::<VFloat64>(&r!([1, 2])), Ok(VFloat64(vec![1., 2.]))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct VBool(Vec<bool>); | ||
| assert_eq!(from_robj::<VBool>(&r!(list!(TRUE, FALSE))), Ok(VBool(vec![true, false]))); | ||
| assert_eq!(from_robj::<VBool>(&r!([TRUE, FALSE])), Ok(VBool(vec![true, false]))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Str(String); | ||
| assert_eq!(from_robj::<Str>(&r!("xyz")), Ok(Str("xyz".into()))); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct StrSlice<'a>(&'a str); | ||
| assert_eq!(from_robj::<StrSlice>(&r!("xyz")), Ok(StrSlice("xyz"))); | ||
|
|
||
| // Structs are mapped to named lists. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct Struct { a: i32, b: f64 } | ||
| assert_eq!(from_robj::<Struct>(&r!(list!(a=1, b=2))), Ok(Struct{ a: 1, b: 2.0 })); | ||
|
|
||
| // Enums are mapped to named lists of lists. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| enum Enum { | ||
| Unit, | ||
| Newtype(u32), | ||
| Tuple(u32, u32), | ||
| Struct { a: u32 }, | ||
| } | ||
|
|
||
| let j = r!("Unit"); | ||
| let expected = Enum::Unit; | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| // If the name is wrong: | ||
| let j = r!("UnitX"); | ||
| assert_eq!(from_robj::<Enum>(&j).is_err(), true); | ||
|
|
||
| let j = r!(list!(Newtype=1)); | ||
| let expected = Enum::Newtype(1); | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| let j = r!(list!(Tuple=list!(1, 2))); | ||
| let expected = Enum::Tuple(1, 2); | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| let j = r!(list!(Struct=list!(a=1))); | ||
| let expected = Enum::Struct { a: 1 }; | ||
| assert_eq!(expected, from_robj(&j).unwrap()); | ||
|
|
||
| // Many things will generate a Robj. | ||
| // But note that the original Robj will not be copied verbatim. | ||
| // The Deserialize trait for Robj can also be used to generate | ||
| // JSON and other formats for Robj. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct WrapRobj(Robj); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!(TRUE)), Ok(WrapRobj(r!(TRUE)))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!(1)), Ok(WrapRobj(r!(1)))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!(1.0)), Ok(WrapRobj(r!(1.0)))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!("xyz")), Ok(WrapRobj(r!("xyz")))); | ||
|
|
||
| // Sequences are always converted to lists. | ||
| assert_eq!(from_robj::<WrapRobj>(&r!([TRUE, FALSE])), Ok(WrapRobj(r!(list!(TRUE, FALSE))))); | ||
| assert_eq!(from_robj::<WrapRobj>(&r!([1, 2])), Ok(WrapRobj(r!(list!(1, 2))))); | ||
|
|
||
| // If you use a wrapper type, conversions are more specific. | ||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RIntegers(Integers); | ||
| assert_eq!(from_robj::<RIntegers>(&r!(1)), Ok(RIntegers(Integers::from_values([1])))); | ||
| assert_eq!(from_robj::<RIntegers>(&r!([1, 2])), Ok(RIntegers(Integers::from_values([1, 2])))); | ||
| assert_eq!(from_robj::<RIntegers>(&r!(1.0)).is_err(), true); | ||
| assert_eq!(from_robj::<RIntegers>(&r!("xyz")).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RDoubles(Doubles); | ||
| assert_eq!(from_robj::<RDoubles>(&r!(1)), Ok(RDoubles(Doubles::from_values([1.0])))); | ||
| // assert_eq!(from_robj::<RDoubles>(&r!([1, 2])), Ok(RDoubles(Doubles::from_values([1.0, 2.0])))); | ||
| assert_eq!(from_robj::<RDoubles>(&r!([1.0, 2.0])), Ok(RDoubles(Doubles::from_values([1.0, 2.0])))); | ||
| assert_eq!(from_robj::<RDoubles>(&r!("xyz")).is_err(), true); | ||
|
|
||
| #[derive(Deserialize, PartialEq, Debug)] | ||
| struct RLogicals(Logicals); | ||
| assert_eq!(from_robj::<RLogicals>(&r!(TRUE)), Ok(RLogicals(Logicals::from_values([TRUE])))); | ||
| assert_eq!(from_robj::<RLogicals>(&r!([TRUE, FALSE, NA_LOGICAL])), Ok(RLogicals(Logicals::from_values([TRUE, FALSE, NA_LOGICAL])))); | ||
| assert_eq!(from_robj::<RLogicals>(&r!("xyz")).is_err(), true); | ||
|
|
||
| // This requires a PR that is not yet merged. | ||
| // #[derive(Deserialize, PartialEq, Debug)] | ||
| // struct RStrings(Strings); | ||
| // assert_eq!(from_robj::<RStrings>(&r!("xyz")), Ok(RStrings(Strings::from_values(["xyz"])))); | ||
| // assert_eq!(from_robj::<RStrings>(&r!(["a", "b"])), Ok(RStrings(Strings::from_values(["a", "b"])))); | ||
| // assert_eq!(from_robj::<RStrings>(&r!(0)).is_err(), true); | ||
| } | ||
| } |
Oops, something went wrong.