dust/dust-lang/tests/values.rs

use std::collections::BTreeMap;

use dust_lang::{
    abstract_tree::{Identifier, Type, WithPos},
    error::{Error, TypeConflict, ValidationError},
    *,
};

#[test]
fn none() {
    assert_eq!(interpret("test", "x = 9"), Ok(None));
    assert_eq!(interpret("test", "x = 1 + 1"), Ok(None));
}

#[test]
fn integer() {
    assert_eq!(interpret("test", "1"), Ok(Some(Value::integer(1))));
    assert_eq!(interpret("test", "123"), Ok(Some(Value::integer(123))));
    assert_eq!(interpret("test", "-666"), Ok(Some(Value::integer(-666))));
}

#[test]
fn integer_saturation() {
    assert_eq!(
        interpret("test", "9223372036854775807 + 1"),
        Ok(Some(Value::integer(i64::MAX)))
    );
    assert_eq!(
        interpret("test", "-9223372036854775808 - 1"),
        Ok(Some(Value::integer(i64::MIN)))
    );
}

#[test]
fn float() {
    assert_eq!(
        interpret("test", "1.7976931348623157e308"),
        Ok(Some(Value::float(f64::MAX)))
    );
    assert_eq!(
        interpret("test", "-1.7976931348623157e308"),
        Ok(Some(Value::float(f64::MIN)))
    );
}

#[test]
fn float_saturation() {
    assert_eq!(
        interpret("test", "1.7976931348623157e308 + 1"),
        Ok(Some(Value::float(f64::MAX)))
    );
    assert_eq!(
        interpret("test", "-1.7976931348623157e308 - 1"),
        Ok(Some(Value::float(f64::MIN)))
    );
}

#[test]
fn string() {
    assert_eq!(
        interpret("test", "\"one\""),
        Ok(Some(Value::string("one".to_string())))
    );
    assert_eq!(
        interpret("test", "'one'"),
        Ok(Some(Value::string("one".to_string())))
    );
    assert_eq!(
        interpret("test", "`one`"),
        Ok(Some(Value::string("one".to_string())))
    );
    assert_eq!(
        interpret("test", "`'one'`"),
        Ok(Some(Value::string("'one'".to_string())))
    );
    assert_eq!(
        interpret("test", "'`one`'"),
        Ok(Some(Value::string("`one`".to_string())))
    );
    assert_eq!(
        interpret("test", "\"'one'\""),
        Ok(Some(Value::string("'one'".to_string())))
    );
}

#[test]
fn list() {
    assert_eq!(
        interpret("test", "[1, 2, 'foobar']"),
        Ok(Some(Value::list(vec![
            Value::integer(1).with_position((1, 2)),
            Value::integer(2).with_position((4, 5)),
            Value::string("foobar".to_string()).with_position((7, 15)),
        ])))
    );
}

#[test]
fn empty_list() {
    assert_eq!(interpret("test", "[]"), Ok(Some(Value::list(Vec::new()))));
}

#[test]
fn map() {
    let mut map = BTreeMap::new();

    map.insert(Identifier::new("x"), Value::integer(1));
    map.insert(Identifier::new("foo"), Value::string("bar".to_string()));

    assert_eq!(
        interpret("test", "{ x = 1, foo = 'bar' }"),
        Ok(Some(Value::map(map)))
    );
}

#[test]
fn empty_map() {
    assert_eq!(
        interpret("test", "{}"),
        Ok(Some(Value::map(BTreeMap::new())))
    );
}

#[test]
fn map_types() {
    let mut map = BTreeMap::new();

    map.insert(Identifier::new("x"), Value::integer(1));
    map.insert(Identifier::new("foo"), Value::string("bar".to_string()));

    assert_eq!(
        interpret("test", "{ x : int = 1, foo : str = 'bar' }"),
        Ok(Some(Value::map(map)))
    );
}

#[test]
fn map_type_errors() {
    assert_eq!(
        interpret("test", "{ foo : bool = 'bar' }")
            .unwrap_err()
            .errors(),
        &vec![Error::Validation {
            error: ValidationError::TypeCheck {
                conflict: TypeConflict {
                    actual: Type::String,
                    expected: Type::Boolean
                },
                actual_position: (15, 20).into(),
                expected_position: (8, 12).into(),
            },
            position: (0, 22).into()
        }]
    );
}

#[test]
fn range() {
    assert_eq!(interpret("test", "0..100"), Ok(Some(Value::range(0..100))));
}