fix: generate proper strings from contract results

Fixes: #213

src/runnner/deno.rs

@@ -1,4 +1,6 @@
 use clarity_repl::clarity::coverage::CoverageReporter;
+use clarity_repl::clarity::types;
+use clarity_repl::clarity::util::hash;
 use clarity_repl::prettytable::{color, format, Attr, Cell, Row, Table};
 use clarity_repl::repl::session::CostsReport;
 use clarity_repl::repl::Session;
@@ -35,6 +37,7 @@ use serde::Serialize;
 use std::collections::HashSet;
 use std::collections::{btree_map::Entry, BTreeMap};
 use std::convert::TryFrom;
+use std::fmt::Write;
 use std::ops::Index;
 use std::path::Path;
 use std::path::PathBuf;
@@ -1183,6 +1186,61 @@ struct TransferSTXArgs {
     recipient: String,
 }
 
+fn value_to_string(value: &types::Value) -> String {
+    use clarity_repl::clarity::types::{CharType, SequenceData, Value};
+
+    match value {
+        Value::Tuple(tup_data) => {
+            let mut out = String::new();
+            write!(out, "{{");
+            for (i, (name, value)) in tup_data.data_map.iter().enumerate() {
+                write!(out, "{}: {}", &**name, value_to_string(value));
+                if i < tup_data.data_map.len() - 1 {
+                    write!(out, ", ");
+                }
+            }
+            write!(out, "}}");
+            out
+        }
+        Value::Optional(opt_data) => match opt_data.data {
+            Some(ref x) => format!("(some {})", value_to_string(&**x)),
+            None => "none".to_string(),
+        },
+        Value::Response(res_data) => match res_data.committed {
+            true => format!("(ok {})", value_to_string(&*res_data.data)),
+            false => format!("(err {})", value_to_string(&*res_data.data)),
+        },
+        Value::Sequence(SequenceData::String(CharType::ASCII(data))) => {
+            format!("\"{}\"", String::from_utf8(data.data.clone()).unwrap())
+        }
+        Value::Sequence(SequenceData::String(CharType::UTF8(data))) => {
+            let mut result = String::new();
+            for c in data.data.iter() {
+                if c.len() > 1 {
+                    // We escape extended charset
+                    result.push_str(&format!("\\u{{{}}}", hash::to_hex(&c[..])));
+                } else {
+                    result.push(c[0] as char)
+                }
+            }
+            format!("u\"{}\"", result)
+        }
+        Value::Sequence(SequenceData::List(list_data)) => {
+            let mut out = String::new();
+            write!(out, "[");
+            for (ix, v) in list_data.data.iter().enumerate() {
+                if ix > 0 {
+                    write!(out, ", ");
+                }
+                write!(out, "{}", value_to_string(v));
+            }
+            write!(out, "]");
+            out
+        }
+        _ => format!("{}", value),
+    }
+}
+
 fn mine_block(state: &mut OpState, args: Value, _: ()) -> Result<String, AnyError> {
     let args: MineBlockArgs =
         serde_json::from_value(args).expect("Invalid request from JavaScript.");
@@ -1215,7 +1273,7 @@ fn mine_block(state: &mut OpState, args: Value, _: ()) -> Result<String, AnyErro
                     }
                 };
                 let result = match execution.result {
-                    Some(output) => format!("{}", output),
+                    Some(output) => value_to_string(&output),
                     _ => unreachable!("Value empty"),
                 };
                 receipts.push((result, execution.events));
@@ -1360,3 +1418,84 @@ fn get_assets_maps(state: &mut OpState, args: Value, _: ()) -> Result<String, An
     })
     .to_string())
 }
+
+#[cfg(test)]
+mod tests {
+    use clarity_repl::clarity::representations::ClarityName;
+    use clarity_repl::clarity::types::{
+        ListTypeData, OptionalData, ResponseData, SequenceData, SequencedValue, TupleData,
+    };
+
+    use super::*;
+
+    #[test]
+    fn test_value_to_string() {
+        let mut s = value_to_string(&types::Value::Int(42));
+        assert_eq!(s, "42");
+
+        s = value_to_string(&types::Value::UInt(12345678909876));
+        assert_eq!(s, "u12345678909876");
+
+        s = value_to_string(&types::Value::Bool(true));
+        assert_eq!(s, "true");
+
+        s = value_to_string(&types::Value::buff_from(vec![1, 2, 3]).unwrap());
+        assert_eq!(s, "0x010203");
+
+        s = value_to_string(&types::Value::buff_from(vec![1, 2, 3]).unwrap());
+        assert_eq!(s, "0x010203");
+
+        s = value_to_string(&types::Value::Tuple(
+            TupleData::from_data(vec![(
+                ClarityName::try_from("foo".to_string()).unwrap(),
+                types::Value::Bool(true),
+            )])
+            .unwrap(),
+        ));
+        assert_eq!(s, "{foo: true}");
+
+        s = value_to_string(&types::Value::Optional(OptionalData {
+            data: Some(Box::new(types::Value::UInt(42))),
+        }));
+        assert_eq!(s, "(some u42)");
+
+        s = value_to_string(&types::NONE);
+        assert_eq!(s, "none");
+
+        s = value_to_string(&types::Value::Response(ResponseData {
+            committed: true,
+            data: Box::new(types::Value::Int(-321)),
+        }));
+        assert_eq!(s, "(ok -321)");
+
+        s = value_to_string(&types::Value::Response(ResponseData {
+            committed: false,
+            data: Box::new(types::Value::Sequence(types::SequenceData::String(
+                types::CharType::ASCII(types::ASCIIData {
+                    data: "'foo'".as_bytes().to_vec(),
+                }),
+            ))),
+        }));
+        assert_eq!(s, "(err \"'foo'\")");
+
+        s = value_to_string(&types::Value::Sequence(types::SequenceData::String(
+            types::CharType::ASCII(types::ASCIIData {
+                data: "Hello, \"world\"\n".as_bytes().to_vec(),
+            }),
+        )));
+        assert_eq!(s, "\"Hello, \"world\"\n\"");
+
+        s = value_to_string(&types::UTF8Data::to_value(
+            &"Hello, 'world'\n".as_bytes().to_vec(),
+        ));
+        assert_eq!(s, "u\"Hello, 'world'\n\"");
+
+        s = value_to_string(&types::Value::Sequence(SequenceData::List(
+            types::ListData {
+                data: vec![types::Value::Int(-321)],
+                type_signature: ListTypeData::new_list(types::TypeSignature::IntType, 2).unwrap(),
+            },
+        )));
+        assert_eq!(s, "[-321]");
+    }
+}