package Ġjump aku . cur ves . core . test . curve . poly line Ċ Ċ import Ġjump aku . cur ves . core . curve . Param Point Ċ import Ġjump aku . cur ves . core . curve . poly line . Line Segment Ċ import Ġjump aku . cur ves . core . geom . Point Ċ import Ġjump aku . cur ves . core . test . geom . close To Ċ import Ġorg . hamcrest . Matchers .` is ` Ċ import Ġorg . junit . Assert . assertThat Ċ import Ġorg . junit . Test Ċ Ċ class ĠLine Segment Test Ġ{ ĊĊĠĠĠ Ġval Ġl Ġ= ĠLine Segment ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠParam Point ( Point . xy r ( 0 . 0 , Ġ 1 . 0 , Ġ 1 . 0 ), Ġ- 1 . 0 ), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠParam Point ( Point . xy r ( 1 . 0 , Ġ 0 . 0 , Ġ 3 . 0 ), Ġ 1 . 0 )) ĊĠĠĠĠĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Invoke () Ġ{ ĊĠĠĠĠĠĠĠ Ġprintln (" Invoke ") ĊĠĠĠĠĠĠĠ ĠassertThat ( l (- 1 . 0 ), Ġ` is `( close To ( Point . xy r ( 0 . 0 , Ġ 1 . 0 , Ġ 1 . 0 )))) ĊĠĠĠĠĠĠĠ ĠassertThat ( l ( 0 . 0 ), Ġ` is `( close To ( Point . xy r ( 0 . 5 , Ġ 0 . 5 , Ġ 2 . 0 )))) ĊĠĠĠĠĠĠĠ ĠassertThat ( l ( 1 . 0 ), Ġ` is `( close To ( Point . xy r ( 1 . 0 , Ġ 0 . 0 , Ġ 3 . 0 )))) ĊĠĠĠ Ġ} Ċ } ĊĊ