Allow negative exponents for GroupElement.exp

ergotree-interpreter/src/eval/exponentiate.rs

@@ -40,7 +40,7 @@ impl Evaluable for Exponentiate {
 mod tests {
     use super::*;
     use crate::eval::context::Context;
-    use crate::eval::tests::{eval_out, try_eval_out};
+    use crate::eval::tests::eval_out;
     use crate::sigma_protocol::private_input::DlogProverInput;
 
     use ergo_chain_types::EcPoint;
@@ -79,13 +79,19 @@ mod tests {
     fn eval_exponent_negative() {
         let left = force_any_val::<EcPoint>();
         let right = BigInt256::from_str_radix("-1", 10).unwrap();
+
+        let expected_exp = ergo_chain_types::ec_point::exponentiate(
+            &left,
+            &dlog_group::bigint256_to_scalar(right.clone()).unwrap(),
+        );
+
         let expr: Expr = Exponentiate {
             left: Box::new(Expr::Const(left.into())),
             right: Box::new(Expr::Const(right.into())),
         }
         .into();
 
         let ctx = force_any_val::<Context>();
-        assert!(try_eval_out::<EcPoint>(&expr, &ctx).is_err());
+        assert_eq!(eval_out::<EcPoint>(&expr, &ctx), expected_exp);
     }
 }

ergotree-ir/src/sigma_protocol/dlog_group.rs

@@ -73,10 +73,12 @@ fn biguint_to_bytes(x: &BigUint) -> [u8; 32] {
 }
 
 /// Attempts to create Scalar from BigInt256
-/// Returns None if not in the range [0, modulus).
 pub fn bigint256_to_scalar(bi: BigInt256) -> Option<Scalar> {
+    // To convert BigInt bi to Scalar calculate (bi mod order)
+    let order = order();
+    let mut bi = &**bi % &order;
     if Sign::Minus == bi.sign() {
-        return None;
+        bi += order;
     }
     #[allow(clippy::unwrap_used)] // since it's 256-bit BigInt it should always fit into BigUint
     let bu = bi.to_biguint().unwrap();