affine/flesh
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

finished inc and dec, and tests

Browse source
This commit is contained in:
Ava Hahn 2023-03-07 22:16:57 -08:00
parent c74d6f5ddf
commit 8bf4b3c368
Signed by untrusted user who does not match committer: affine
GPG key ID: 3A4645B8CF806069
4 changed files with 304 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

208
tests/test_lib_math.rs
View file

@ -1,5 +1,5 @@
mod math_lib_tests {
use relish::ast::{eval, lex, SymTable};
use relish::ast::{eval, lex, Ctr, SymTable};
use relish::stdlib::{dynamic_stdlib, static_stdlib};
#[test]
@ -608,4 +608,210 @@ mod math_lib_tests {
result.to_string(),
);
}
#[test]
fn test_inc() {
let document = "(def tester '' 1)";
let change = "(inc tester)";
let check = "(tester)";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
dynamic_stdlib(&mut syms).unwrap();
let doc_tree = lex(&document.to_string()).unwrap();
let change_tree = lex(&change.to_string()).unwrap();
let check_tree = lex(&check.to_string()).unwrap();
eval(&doc_tree, &mut syms).unwrap();
eval(&change_tree, &mut syms).unwrap();
if let Ctr::Seg(ref s) = *eval(&check_tree, &mut syms).unwrap() {
if let Ctr::Integer(ref b) = *s.car {
assert_eq!(2, *b)
} else {
panic!()
}
} else {
panic!()
}
eval(&change_tree, &mut syms).unwrap();
if let Ctr::Seg(ref s) = *eval(&check_tree, &mut syms).unwrap() {
if let Ctr::Integer(ref b) = *s.car {
assert_eq!(3, *b)
} else {
panic!()
}
} else {
panic!()
}
}
#[test]
fn test_inc_errors_dont_lose_vars() {
let document = "(def tester '' 'oops')";
let change = "(inc tester)";
let check = "(tester)";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
dynamic_stdlib(&mut syms).unwrap();
let doc_tree = lex(&document.to_string()).unwrap();
let change_tree = lex(&change.to_string()).unwrap();
let check_tree = lex(&check.to_string()).unwrap();
eval(&doc_tree, &mut syms).unwrap();
if let Err(s) = eval(&change_tree, &mut syms) {
assert_eq!(
s,
"error in call to inc: can only increment an integer".to_string()
);
let intermediate = *eval(&check_tree, &mut syms).unwrap();
if let Ctr::Seg(ref s) = intermediate {
assert_eq!(s.to_string(), "('oops')".to_string());
} else {
eprintln!("did not expect: {}", intermediate);
panic!()
}
} else {
eprintln!("shouldn't have succeeded!");
panic!()
}
}
#[test]
fn test_inc_errors_dont_lose_funcs() {
let document = "(def tester '' (oops) oops)";
let change = "(inc tester)";
let check = "(tester '1')";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
dynamic_stdlib(&mut syms).unwrap();
let doc_tree = lex(&document.to_string()).unwrap();
let change_tree = lex(&change.to_string()).unwrap();
let check_tree = lex(&check.to_string()).unwrap();
eval(&doc_tree, &mut syms).unwrap();
if let Err(s) = eval(&change_tree, &mut syms) {
assert_eq!(
s,
"error in call to inc: cannot increment a function".to_string()
);
if let Ctr::String(ref s) = *eval(&check_tree, &mut syms).unwrap() {
assert_eq!(*s, "1".to_string());
} else {
panic!()
}
} else {
eprintln!("shouldn't have succeeded!");
panic!()
}
}
#[test]
fn test_dec() {
let document = "(def tester '' 1)";
let change = "(dec tester)";
let check = "(tester)";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
dynamic_stdlib(&mut syms).unwrap();
let doc_tree = lex(&document.to_string()).unwrap();
let change_tree = lex(&change.to_string()).unwrap();
let check_tree = lex(&check.to_string()).unwrap();
eval(&doc_tree, &mut syms).unwrap();
eval(&change_tree, &mut syms).unwrap();
if let Ctr::Seg(ref s) = *eval(&check_tree, &mut syms).unwrap() {
if let Ctr::Integer(ref b) = *s.car {
assert_eq!(0, *b)
} else {
panic!()
}
} else {
panic!()
}
eval(&change_tree, &mut syms).unwrap();
if let Ctr::Seg(ref s) = *eval(&check_tree, &mut syms).unwrap() {
if let Ctr::Integer(ref b) = *s.car {
assert_eq!(-1, *b)
} else {
panic!()
}
} else {
panic!()
}
}
#[test]
fn test_dec_errors_dont_lose_vars() {
let document = "(def tester '' 'oops')";
let change = "(dec tester)";
let check = "(tester)";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
dynamic_stdlib(&mut syms).unwrap();
let doc_tree = lex(&document.to_string()).unwrap();
let change_tree = lex(&change.to_string()).unwrap();
let check_tree = lex(&check.to_string()).unwrap();
eval(&doc_tree, &mut syms).unwrap();
if let Err(s) = eval(&change_tree, &mut syms) {
assert_eq!(
s,
"error in call to dec: can only decrement an integer".to_string()
);
let intermediate = *eval(&check_tree, &mut syms).unwrap();
if let Ctr::Seg(ref s) = intermediate {
assert_eq!(s.to_string(), "('oops')".to_string());
} else {
eprintln!("did not expect: {}", intermediate);
panic!()
}
} else {
eprintln!("shouldn't have succeeded!");
panic!()
}
}
#[test]
fn test_dec_errors_dont_lose_funcs() {
let document = "(def tester '' (oops) oops)";
let change = "(dec tester)";
let check = "(tester '1')";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
dynamic_stdlib(&mut syms).unwrap();
let doc_tree = lex(&document.to_string()).unwrap();
let change_tree = lex(&change.to_string()).unwrap();
let check_tree = lex(&check.to_string()).unwrap();
eval(&doc_tree, &mut syms).unwrap();
if let Err(s) = eval(&change_tree, &mut syms) {
assert_eq!(
s,
"error in call to dec: cannot decrement a function".to_string()
);
if let Ctr::String(ref s) = *eval(&check_tree, &mut syms).unwrap() {
assert_eq!(*s, "1".to_string());
} else {
panic!()
}
} else {
eprintln!("shouldn't have succeeded!");
panic!()
}
}
}