include <BOSL2/std.scad>


module test_typeof() {
	assert(typeof(undef) == "undef");
	assert(typeof(true) == "boolean");
	assert(typeof(false) == "boolean");
	assert(typeof(-123) == "number");
	assert(typeof(0) == "number");
	assert(typeof(123) == "number");
	assert(typeof("") == "string");
	assert(typeof("foo") == "string");
	assert(typeof([]) == "list");
	assert(typeof(["foo","bar"]) == "list");
	assert(typeof([123,849,32]) == "list");
	assert(typeof([0:5]) == "range");
	assert(typeof([-3:0]) == "range");
	assert(typeof([0:1:5]) == "range");
	assert(typeof([-3:2:5]) == "range");
	assert(typeof([10:-2:-10]) == "range");
}
test_typeof();


module test_istype() {
	assert(is_type(undef,"undef"));
	assert(is_type(true,"boolean"));
	assert(is_type(false,"boolean"));
	assert(is_type(-123,"number"));
	assert(is_type(0,"number"));
	assert(is_type(123,"number"));
	assert(is_type("","string"));
	assert(is_type("foo","string"));
	assert(is_type([],"list"));
	assert(is_type([1,2,3],"list"));
	assert(is_type(["foo","bar"],"list"));
	assert(is_type([0:5],"range"));

	assert(is_type(undef,["undef"]));
	assert(is_type(true,["boolean"]));
	assert(is_type(false,["boolean"]));
	assert(is_type(-123,["number"]));
	assert(is_type(0,["number"]));
	assert(is_type(123,["number"]));
	assert(is_type("",["string"]));
	assert(is_type("foo",["string"]));
	assert(is_type([],["list"]));
	assert(is_type([1,2,3],["list"]));
	assert(is_type(["foo","bar"],["list"]));
	assert(is_type([0:5],["range"]));

	assert(is_type(123,["number","string"]));
	assert(is_type("foo",["number","string"]));
}
test_istype();


module test_is_def() {
	assert(!is_def(undef));
	assert(is_def(true));
	assert(is_def(false));
	assert(is_def(-123));
	assert(is_def(0));
	assert(is_def(123));
	assert(is_def(""));
	assert(is_def("foo"));
	assert(is_def([]));
	assert(is_def([3,4,5]));
	assert(is_def(["foo","bar","baz"]));
	assert(is_def([0:5]));
}
test_is_def();


module test_is_str() {
	assert(!is_str(undef));
	assert(!is_str(true));
	assert(!is_str(false));
	assert(!is_str(-123));
	assert(!is_str(0));
	assert(!is_str(123));
	assert(is_str(""));
	assert(is_str("foo"));
	assert(!is_str([]));
	assert(!is_str([3,4,5]));
	assert(!is_str(["foo","bar","baz"]));
	assert(!is_str([0:5]));
}
test_is_str();


module test_default() {
	assert(default(undef,23) == 23);
	assert(default(true,23) == true);
	assert(default(false,23) == false);
	assert(default(-123,23) == -123);
	assert(default(0,23) == 0);
	assert(default(123,23) == 123);
	assert(default("",23) == "");
	assert(default("foo",23) == "foo");
}
test_default();


module test_first_defined() {
	assert(first_defined([undef,undef,true,false,undef]) == true);
	assert(first_defined([undef,undef,false,true,undef]) == false);
	assert(first_defined([undef,undef,0,1,undef]) == 0);
	assert(first_defined([undef,undef,43,44,undef]) == 43);
	assert(first_defined([undef,undef,"foo","bar",undef]) == "foo");
	assert(first_defined([0,1,2,3,4]) == 0);
	assert(first_defined([2,3,4]) == 2);
	assert(first_defined([[undef,undef],[undef,true],[false,undef]],recursive=true) == [undef, true]);
}
test_first_defined();


module test_num_defined() {
	assert(num_defined([undef,undef,true,false,undef]) == 2);
	assert(num_defined([9,undef,true,false,undef]) == 3);
	assert(num_defined([undef,9,true,false,undef]) == 3);
	assert(num_defined(["foo",9,true,false,undef]) == 4);
}
test_num_defined();


module test_any_defined() {
	assert(!any_defined([undef,undef,undef,undef,undef]));
	assert(any_defined([3,undef,undef,undef,undef]));
	assert(any_defined([undef,3,undef,undef,undef]));
	assert(any_defined([undef,undef,3,undef,undef]));
	assert(any_defined([undef,undef,undef,3,undef]));
	assert(any_defined([undef,undef,undef,undef,3]));
	assert(any_defined([3,undef,undef,undef,3]));
	assert(any_defined([3,3,3,3,3]));
	assert(any_defined(["foo",undef,undef,undef,undef]));
	assert(any_defined([undef,"foo",undef,undef,undef]));
	assert(any_defined([undef,undef,"foo",undef,undef]));
	assert(any_defined([undef,undef,undef,"foo",undef]));
	assert(any_defined([undef,undef,undef,undef,"foo"]));
	assert(any_defined(["foo",undef,undef,undef,"foo"]));
	assert(any_defined(["foo","foo","foo","foo","foo"]));
	assert(any_defined([undef,undef,true,false,undef]));
}
test_any_defined();


module test_all_defined() {
	assert(!all_defined([undef,undef,undef,undef,undef]));
	assert(!all_defined([3,undef,undef,undef,undef]));
	assert(!all_defined([undef,3,undef,undef,undef]));
	assert(!all_defined([undef,undef,3,undef,undef]));
	assert(!all_defined([undef,undef,undef,3,undef]));
	assert(!all_defined([undef,undef,undef,undef,3]));
	assert(!all_defined([3,undef,undef,undef,3]));
	assert(all_defined([3,3,3,3,3]));
	assert(!all_defined(["foo",undef,undef,undef,undef]));
	assert(!all_defined([undef,"foo",undef,undef,undef]));
	assert(!all_defined([undef,undef,"foo",undef,undef]));
	assert(!all_defined([undef,undef,undef,"foo",undef]));
	assert(!all_defined([undef,undef,undef,undef,"foo"]));
	assert(!all_defined(["foo",undef,undef,undef,"foo"]));
	assert(all_defined(["foo","foo","foo","foo","foo"]));
	assert(!all_defined([undef,undef,true,false,undef]));
}
test_all_defined();


module test_get_radius() {
	assert(get_radius(r1=100,d1=undef,r=undef,d=undef,dflt=23) == 100);
	assert(get_radius(r1=undef,d1=200,r=undef,d=undef,dflt=23) == 100);
	assert(get_radius(r1=undef,d1=undef,r=100,d=undef,dflt=23) == 100);
	assert(get_radius(r1=undef,d1=undef,r=undef,d=200,dflt=23) == 100);
	assert(get_radius(r1=50,d1=undef,r=undef,d=undef,dflt=23) == 50);
	assert(get_radius(r1=undef,d1=100,r=undef,d=undef,dflt=23) == 50);
	assert(get_radius(r1=undef,d1=undef,r=50,d=undef,dflt=23) == 50);
	assert(get_radius(r1=undef,d1=undef,r=undef,d=100,dflt=23) == 50);
	assert(get_radius(r1=undef,d1=undef,r=undef,d=undef,dflt=23) == 23);
	assert(get_radius(r1=undef,d1=undef,r=undef,d=undef,dflt=undef) == undef);
}
test_get_radius();


module test_get_height() {
	assert(get_height(h=undef, l=undef, height=undef, dflt=undef) == undef);
	assert(get_height(h=undef, l=undef, height=undef, dflt=23) == 23);
	assert(get_height(h=undef, l=undef, height=50, dflt=23) == 50);
	assert(get_height(h=undef, l=50, height=undef, dflt=23) == 50);
	assert(get_height(h=50, l=undef, height=undef, dflt=23) == 50);
	assert(get_height(h=undef, l=undef, height=75, dflt=23) == 75);
	assert(get_height(h=undef, l=75, height=undef, dflt=23) == 75);
	assert(get_height(h=75, l=undef, height=undef, dflt=23) == 75);
}
test_get_height();


module test_scalar_vec3() {
	assert(scalar_vec3(undef) == undef);
	assert(scalar_vec3(3) == [3,3,3]);
	assert(scalar_vec3(3,dflt=1) == [3,1,1]);
	assert(scalar_vec3([3]) == [3,0,0]);
	assert(scalar_vec3([3,4]) == [3,4,0]);
	assert(scalar_vec3([3,4],dflt=1) == [3,4,1]);
	assert(scalar_vec3([3],dflt=1) == [3,1,1]);
	assert(scalar_vec3([3,4,5]) == [3,4,5]);
	assert(scalar_vec3([3,4,5,6]) == [3,4,5]);
}
test_scalar_vec3();


// vim: noexpandtab tabstop=4 shiftwidth=4 softtabstop=4 nowrap