61 lines
1.5 KiB
Rust
61 lines
1.5 KiB
Rust
/* types/tests/display.rs
|
|
* Eryn Wells <eryn@erynwells.me>
|
|
*/
|
|
|
|
//! Tests of how various types implement Display.
|
|
|
|
extern crate sibiltypes;
|
|
|
|
use sibiltypes::{Obj, Pair, Sym};
|
|
|
|
|
|
#[test]
|
|
fn empty_pairs_display_correctly() {
|
|
let empty = Pair::empty();
|
|
let disp = format!("{}", empty);
|
|
assert_eq!(disp, "(())");
|
|
}
|
|
|
|
#[test]
|
|
fn pair_with_only_car_is_single_element_list() {
|
|
let sym = Obj::new(Sym::with_str("ab"));
|
|
let pair = Pair::with_car(sym);
|
|
let disp = format!("{}", pair);
|
|
assert_eq!(disp, "(ab)");
|
|
}
|
|
|
|
#[test]
|
|
fn pair_with_car_and_cdr_is_dotted_pair() {
|
|
let ab = Obj::new(Sym::with_str("ab"));
|
|
let cd = Obj::new(Sym::with_str("cd"));
|
|
let pair = Pair::new(ab, cd);
|
|
let disp = format!("{}", pair);
|
|
assert_eq!(disp, "(ab . cd)");
|
|
}
|
|
|
|
#[test]
|
|
fn two_pair_list_displays_as_list() {
|
|
let ab = Obj::new(Sym::with_str("ab"));
|
|
let cd = Obj::new(Sym::with_str("cd"));
|
|
let pair = Pair::new(ab, Obj::new(Pair::with_car(cd)));
|
|
let disp = format!("{}", pair);
|
|
assert_eq!(disp, "(ab cd)");
|
|
}
|
|
|
|
#[test]
|
|
fn three_element_list_with_full_second_pair() {
|
|
let ab = Obj::new(Sym::with_str("ab"));
|
|
let cd = Obj::new(Sym::with_str("cd"));
|
|
let ef = Obj::new(Sym::with_str("ef"));
|
|
let pair = Pair::new(ab, Obj::new(Pair::new(cd, ef)));
|
|
let disp = format!("{}", pair);
|
|
assert_eq!(disp, "(ab cd . ef)");
|
|
}
|
|
|
|
#[test]
|
|
fn syms_display_as_strings() {
|
|
let sym = Sym::with_str("abc");
|
|
let disp = format!("{}", sym);
|
|
assert_eq!(disp, "abc");
|
|
}
|
|
|