greg/schala
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tests for basic pattern matching

Browse Source
This commit is contained in:
greg 2018-08-14 21:39:33 -07:00
parent 897c1181a9
commit 1b78fbff82
1 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
schala-lang/src/eval.rs
View File

@ -389,16 +389,27 @@ mod eval_tests {
use parsing::parse; use parsing::parse;
use eval::State; use eval::State;
macro_rules! all_output {
($string:expr) => {
{
let symbol_table = Rc::new(RefCell::new(SymbolTable::new()));
let mut state = State::new(symbol_table);
let ast = parse(tokenize($string)).0.unwrap();
state.symbol_table_handle.borrow_mut().add_top_level_symbols(&ast);
let reduced = ast.reduce(&state.symbol_table_handle.borrow());
let all_output = state.evaluate(reduced, true);
all_output
}
}
}
macro_rules! fresh_env { macro_rules! fresh_env {
($string:expr, $correct:expr) => { ($string:expr, $correct:expr) => {
let symbol_table = Rc::new(RefCell::new(SymbolTable::new())); {
let mut state = State::new(symbol_table); let all_output = all_output!($string);
let ast = parse(tokenize($string)).0.unwrap(); let ref output = all_output.last().unwrap();
state.symbol_table_handle.borrow_mut().add_top_level_symbols(&ast); assert_eq!(**output, Ok($correct.to_string()));
let reduced = ast.reduce(&state.symbol_table_handle.borrow()); }
let all_output = state.evaluate(reduced, true);
let ref output = all_output.last().unwrap();
assert_eq!(**output, Ok($correct.to_string()));
} }
} }
@ -437,4 +448,17 @@ mod eval_tests {
"#; "#;
fresh_env!(scope_ok, "20"); fresh_env!(scope_ok, "20");
} }
#[test]
fn basic_patterns() {
let source = r#"
type Option<T> = Some(T) | None
let x = Some(9); if x is Some(q) then { q } else { 0 }"#;
fresh_env!(source, "9");
let source = r#"
type Option<T> = Some(T) | None
let x = None; if x is Some(q) then { q } else { 0 }"#;
fresh_env!(source, "0");
}
} }