better data deserialization errors and test hint

now runs even being in a sequence

crates/aiken-lang/src/ast.rs

@@ -87,7 +87,12 @@ pub type UntypedTypeAlias = TypeAlias<()>;
 
 impl TypedFunction {
     pub fn test_hint(&self) -> Option<(BinOp, Box<TypedExpr>, Box<TypedExpr>)> {
-        match &self.body {
+        do_test_hint(&self.body)
+    }
+}
+
+pub fn do_test_hint(body: &TypedExpr) -> Option<(BinOp, Box<TypedExpr>, Box<TypedExpr>)> {
+    match body {
         TypedExpr::BinOp {
             name,
             tipo,
@@ -95,8 +100,34 @@ impl TypedFunction {
             right,
             ..
         } if tipo == &bool() => Some((*name, left.clone(), right.clone())),
-            _ => None,
+        TypedExpr::Sequence { expressions, .. } | TypedExpr::Pipeline { expressions, .. } => {
+            if let Some((binop, left, right)) = do_test_hint(&expressions[expressions.len() - 1]) {
+                let mut new_left_expressions = expressions.clone();
+                new_left_expressions.pop();
+                new_left_expressions.push(*left);
+
+                let mut new_right_expressions = expressions.clone();
+                new_right_expressions.pop();
+                new_right_expressions.push(*right);
+
+                Some((
+                    binop,
+                    TypedExpr::Sequence {
+                        expressions: new_left_expressions,
+                        location: Span::empty(),
                     }
+                    .into(),
+                    TypedExpr::Sequence {
+                        expressions: new_right_expressions,
+                        location: Span::empty(),
+                    }
+                    .into(),
+                ))
+            } else {
+                None
+            }
+        }
+        _ => None,
     }
 }
 

crates/uplc/src/machine/error.rs

@@ -44,8 +44,8 @@ pub enum Error {
     UnexpectedEd25519PublicKeyLength(usize),
     #[error("Ed25519S Signature should be 64 bytes but it was {0}")]
     UnexpectedEd25519SignatureLength(usize),
-    #[error("Failed to deserialise PlutusData:\n\n{0:#?}")]
+    #[error("Failed to deserialise PlutusData using {0}:\n\n{1:#?}")]
-    DeserialisationError(Value),
+    DeserialisationError(String, Value),
     #[error("Integer overflow")]
     OverflowError,
 }

crates/uplc/src/machine/runtime.rs

@@ -769,7 +769,10 @@ impl DefaultFunction {
                         )),
                     )))
                 }
-                v => Err(Error::DeserialisationError(v.clone())),
+                v => Err(Error::DeserialisationError(
+                    "UnConstrData".to_string(),
+                    v.clone(),
+                )),
             },
             DefaultFunction::UnMapData => match &args[0] {
                 Value::Con(Constant::Data(PlutusData::Map(m))) => {
@@ -788,7 +791,10 @@ impl DefaultFunction {
                             .collect(),
                     )))
                 }
-                v => Err(Error::DeserialisationError(v.clone())),
+                v => Err(Error::DeserialisationError(
+                    "UnMapData".to_string(),
+                    v.clone(),
+                )),
             },
             DefaultFunction::UnListData => match &args[0] {
                 Value::Con(Constant::Data(PlutusData::Array(l))) => {
@@ -800,7 +806,10 @@ impl DefaultFunction {
                             .collect(),
                     )))
                 }
-                v => Err(Error::DeserialisationError(v.clone())),
+                v => Err(Error::DeserialisationError(
+                    "UnListData".to_string(),
+                    v.clone(),
+                )),
             },
             DefaultFunction::UnIData => match &args[0] {
                 Value::Con(Constant::Data(PlutusData::BigInt(b))) => {
@@ -812,13 +821,19 @@ impl DefaultFunction {
                         unreachable!()
                     }
                 }
-                v => Err(Error::DeserialisationError(v.clone())),
+                v => Err(Error::DeserialisationError(
+                    "UnIData".to_string(),
+                    v.clone(),
+                )),
             },
             DefaultFunction::UnBData => match &args[0] {
                 Value::Con(Constant::Data(PlutusData::BoundedBytes(b))) => {
                     Ok(Value::Con(Constant::ByteString(b.to_vec())))
                 }
-                v => Err(Error::DeserialisationError(v.clone())),
+                v => Err(Error::DeserialisationError(
+                    "UnBData".to_string(),
+                    v.clone(),
+                )),
             },
             DefaultFunction::EqualsData => match (&args[0], &args[1]) {
                 (Value::Con(Constant::Data(d1)), Value::Con(Constant::Data(d2))) => {