Ava Affine
6d2925984f
* split into multi member workspace in preparation for a no_std core * env and posix stuff neatly crammed into a seperate shell project * some pokes at interactive-devel.f * updated ci * removed 'l' shortcut for 'load' and update docs * remove out of date readme content * updated tests * more sensible cond implementation and extra tests * substr stdlib function with tests Signed-off-by: Ava Affine <ava@sunnypup.io>
76 lines
1.9 KiB
Rust
76 lines
1.9 KiB
Rust
mod file_lib_tests {
|
|
use flesh::ast::{eval, lex, SymTable};
|
|
use flesh::stdlib::static_stdlib;
|
|
|
|
#[test]
|
|
fn test_fexists() {
|
|
let document = "(exists? \"/tmp\")";
|
|
let result = "true";
|
|
|
|
let mut syms = SymTable::new();
|
|
static_stdlib(&mut syms);
|
|
assert_eq!(
|
|
*eval(&lex(&document.to_string()).unwrap(), &mut syms)
|
|
.unwrap()
|
|
.to_string(),
|
|
result.to_string(),
|
|
);
|
|
}
|
|
|
|
#[test]
|
|
fn test_fexists_doesnt() {
|
|
let document = "(exists? \"cargo.timtam\")";
|
|
let result = "false";
|
|
|
|
let mut syms = SymTable::new();
|
|
static_stdlib(&mut syms);
|
|
assert_eq!(
|
|
*eval(&lex(&document.to_string()).unwrap(), &mut syms)
|
|
.unwrap()
|
|
.to_string(),
|
|
result.to_string(),
|
|
);
|
|
}
|
|
|
|
#[test]
|
|
fn test_write_file() {
|
|
let document = "
|
|
(let ((s \"test\")
|
|
(t \"/tmp/flesh-lib-test-file-1\"))
|
|
(write-file t s)
|
|
(echo (read-file t))
|
|
(eq? (read-file t) s))";
|
|
let result = "true";
|
|
|
|
let mut syms = SymTable::new();
|
|
static_stdlib(&mut syms);
|
|
assert_eq!(
|
|
*eval(&lex(&document.to_string()).unwrap(), &mut syms)
|
|
.unwrap()
|
|
.to_string(),
|
|
result.to_string(),
|
|
);
|
|
}
|
|
|
|
#[test]
|
|
fn test_append_file() {
|
|
let document = "
|
|
(let ((s \"test\")
|
|
(t \"/tmp/flesh-lib-test-file-2\"))
|
|
(write-file t s)
|
|
(append-file t s)
|
|
(eq? (read-file t)
|
|
(concat s s)))";
|
|
let result = "true";
|
|
|
|
let mut syms = SymTable::new();
|
|
static_stdlib(&mut syms);
|
|
assert_eq!(
|
|
*eval(&lex(&document.to_string()).unwrap(), &mut syms)
|
|
.unwrap()
|
|
.to_string(),
|
|
result.to_string(),
|
|
);
|
|
}
|
|
|
|
}
|