Plaster

text
CL-USER> (parachute:test :3d-vectors-test) ? 3D-VECTORS-TEST::3D-VECTORS ? 3D-VECTORS-TEST::STRUCT 0.000 ✔ (of-type vec2 (vec2 1 2)) 0.000 ✔ (of-type vec3 (vec3 1 2 3)) 0.000 ✔ (of-type vec4 (vec4 1 2 3 4)) 0.000 ✔ (of-type vec2 (vec 1 2)) 0.000 ✔ (of-type vec3 (vec 1 2 3)) 0.000 ✔ (of-type vec4 (vec 1 2 3 4)) 0.000 ✔ (of-type vec2 (vcopy (vec 1 2))) 0.000 ✔ (of-type vec3 (vcopy (vec 1 2 3))) 0.000 ✔ (of-type vec4 (vcopy (vec 1 2 3 4))) 0.000 ✔ (true (vec2-p (vec2 1 2))) 0.000 ✔ (true (vec3-p (vec3 1 2 3))) 0.000 ✔ (true (vec4-p (vec4 1 2 3 4))) 0.000 ✔ (is = 1 (vx (vec 1 2))) 0.000 ✔ (is = 2 (vy (vec 1 2))) 0.000 ✔ (fail (vz (vec 1 2)) error) 0.000 ✔ (fail (vw (vec 1 2)) error) 0.000 ✔ (is = 1 (vx (vec 1 2 3))) 0.000 ✔ (is = 2 (vy (vec 1 2 3))) 0.000 ✔ (is = 3 (vz (vec 1 2 3))) 0.000 ✔ (fail (vw (vec 1 2 3)) error) 0.001 ✔ (is = 1 (vx (vec 1 2 3 4))) 0.000 ✔ (is = 2 (vy (vec 1 2 3 4))) 0.000 ✔ (is = 3 (vz (vec 1 2 3 4))) 0.000 ✔ (is = 4 (vw (vec 1 2 3 4))) 0.130 ✔ 3D-VECTORS-TEST::STRUCT ? 3D-VECTORS-TEST::COMPARATORS 0.000 ✔ (true (v= (vec 1 2) (vec 1 2))) 0.000 ✔ (true (v= (vec 1 2) (vec 1 2))) 0.000 ✔ (true (v= (vec 1 2 3) (vec 1 2 3))) 0.000 ✔ (true (v= (vec 1 2 3 4) (vec 1 2 3 4))) 0.000 ✔ (false (v= (vec 1 1) (vec 1 2))) 0.000 ✔ (false (v= (vec 1 1 1) (vec 1 2 3))) 0.000 ✔ (false (v= (vec 1 1 1 1) (vec 1 2 3 4))) 0.000 ✔ (fail (v= (vec 1 2) (vec 1 2 3)) error)