24 lines
739 B
Rust
24 lines
739 B
Rust
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)"),
|
|
}
|
|
}
|