Add tests for series and scoping features
This commit is contained in:
@@ -0,0 +1,23 @@
|
||||
use myc::ast::environment::Environment;
|
||||
use myc::ast::types::Value;
|
||||
|
||||
#[test]
|
||||
fn test_series_api_with_limit() {
|
||||
let env = Environment::new();
|
||||
// (series limit schema)
|
||||
let source = "(series 100 {:price :float})";
|
||||
let result = env.compile(source).into_result();
|
||||
assert!(result.is_ok(), "Series creation with limit should work: {:?}", result.err());
|
||||
}
|
||||
|
||||
#[test]
|
||||
fn test_record_structural_equality_order() {
|
||||
let env = Environment::new();
|
||||
// Known design choice: currently order dependent.
|
||||
let source = "(= {:a 1 :b 2} {:b 2 :a 1})";
|
||||
let result = env.run_script(source);
|
||||
match result {
|
||||
Ok(Value::Bool(false)) => {},
|
||||
_ => panic!("Expected false (current implementation behavior)"),
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user