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

Some readme elaboration, but mostly cons

Browse source
This commit is contained in:
Ava Hahn 2023-03-09 16:03:06 -08:00
parent 928c9b91ed
commit 001e35755d
Signed by untrusted user who does not match committer: affine
GPG key ID: 3A4645B8CF806069
5 changed files with 31 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tests/test_lib_control.rs
View file

@ -34,7 +34,7 @@ mod control_lib_tests {
#[test]
fn test_complex_case_call() {
let document = "(if true (append () 1) 2)";
let document = "(if true (cons () 1) 2)";
let result = "(1)";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
@ -51,7 +51,7 @@ mod control_lib_tests {
fn test_let_multiphase_locals() {
let document = "(let (
(temp '1')
(temp (append () temp '2')))
(temp (cons () temp '2')))
temp)";
let result = "('1' '2')";
let mut syms = SymTable::new();
@ -67,7 +67,7 @@ mod control_lib_tests {
#[test]
fn test_let_multibody_evals() {
let document = "(let ((temp '1')) temp (append () temp '2'))";
let document = "(let ((temp '1')) temp (cons () temp '2'))";
let result = "('1' '2')";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
@ -84,9 +84,9 @@ mod control_lib_tests {
fn test_let_multiphase_local_multibody_evals() {
let document = "(let (
(temp '1')
(temp (append () temp '2')))
(temp (cons () temp '2')))
(echo 'first body')
(append temp '3'))";
(cons temp '3'))";
let result = "('1' '2' '3')";
let mut syms = SymTable::new();