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_is_type() {
    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_is_type();


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_is_int() {
    assert(is_int(-999));
    assert(is_int(-1));
    assert(is_int(0));
    assert(is_int(1));
    assert(is_int(999));
    assert(!is_int(-1.1));
    assert(!is_int(1.1));
    assert(!is_int(-0.1));
    assert(!is_int(0.1));
    assert(!is_int(-99.1));
    assert(!is_int(99.1));
    assert(!is_int(undef));
    assert(!is_int(false));
    assert(!is_int(true));
    assert(!is_int("foo"));
    assert(!is_int([0,1,2]));
    assert(!is_int([0:1:2]));
}
test_is_int();


module test_is_integer() {
    assert(is_integer(-999));
    assert(is_integer(-1));
    assert(is_integer(0));
    assert(is_integer(1));
    assert(is_integer(999));
    assert(!is_integer(-1.1));
    assert(!is_integer(1.1));
    assert(!is_integer(-0.1));
    assert(!is_integer(0.1));
    assert(!is_integer(-99.1));
    assert(!is_integer(99.1));
    assert(!is_integer(undef));
    assert(!is_integer(false));
    assert(!is_integer(true));
    assert(!is_integer("foo"));
    assert(!is_integer([0,1,2]));
    assert(!is_integer([0:1:2]));
}
test_is_integer();


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: expandtab tabstop=4 shiftwidth=4 softtabstop=4 nowrap