irteus/test/geo.l: add test code for geometry functions

(https://github.com/euslisp/EusLisp/pull/21)