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

add bool var toggle function

Browse source 
Signed-off-by: Ava Hahn <ava@aidanis.online>
This commit is contained in:
Ava Hahn 2023-03-02 12:15:42 -08:00
parent 28e158f110
commit 5ce0a8e8b2
Signed by untrusted user who does not match committer: affine
GPG key ID: 3A4645B8CF806069
6 changed files with 160 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

97
tests/test_lib_bools.rs
View file

@ -141,4 +141,101 @@ mod bool_lib_tests {
assert!(false);
}
}
#[test]
fn test_toggle_a_bool() {
let document = "(def tester true)";
let change = "(toggle 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::Bool(ref b) = *s.car{
assert_eq!(false, *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::Bool(ref b) = *s.car{
assert_eq!(true, *b)
} else {
panic!()
}
} else {
panic!()
}
}
#[test]
fn test_toggle_errors_dont_lose_vars() {
let document = "(def tester 'oops')";
let change = "(toggle 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 toggle: can only toggle a boolean".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_toggle_errors_dont_lose_funcs() {
let document = "(def tester (oops) oops)";
let change = "(toggle 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 toggle: cannot toggle 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!()
}
}
}