(import svgpath) (unless (equal? '((M 100 200) (L 200 100) (L -100 -200)) (->apath "M100 200L200 100-100-200")) (error "(->apath \"M100 200L200 100-100-200\")")) (unless (equal? '((m 100 200) (l 100 -100) (l -300 -300)) (->rpath "M100 200L200 100-100-200")) (error "(->rpath \"M100 200L200 100-100-200\")")) (unless (equal? '((M 100 200) (l 100 -100) (L -100 -200)) (->mpath "M100 200L200 100-100-200")) (error "(->mpath \"M100 200L200 100-100-200\")")) (unless (equal? '"M1000 1000L101 101l1 1" (path->string "M1000 1000 L101 101 102 102")) (error "(path->string \"M1000 1000 L101 101 102 102\")")) (unless (equal? '"M100 100l1 1-11 1" (path->string "M100 100 L101,101 90 102")) (error "(path->string \"M100 100 L101,101 90 102\")"))