package Ġcom . nib ado . projects . ad vent Ċ Ċ import Ġcom . nib ado . projects . ad vent . Point . Companion . parse Ċ import Ġorg . assertj . core . api . Assertions . assertThat Ċ import Ġorg . junit . jupiter . api . Test Ċ Ċ class ĠPoint Test Ġ{ ĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġman h att an () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġp 0 0 Ġ= Ġ 0 Ġpoint Ġ 0 ĊĠĠĠĠĠĠĠ Ġval Ġp 5 5 Ġ= Ġ 5 Ġpoint Ġ 5 ĊĠĠĠĠĠĠĠ Ġval Ġpm 5 5 Ġ= Ġ- 5 Ġpoint Ġ- 5 ĊĊĠĠĠĠĠĠĠ ĠassertThat ( p 0 0 . man h att an ( p 0 0 )). isEqualTo ( 0 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( p 5 5 . man h att an ( p 5 5 )). isEqualTo ( 0 ) ĊĊĠĠĠĠĠĠĠ ĠassertThat ( p 0 0 . man h att an ( p 5 5 )). isEqualTo ( 1 0 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( p 5 5 . man h att an ( p 0 0 )). isEqualTo ( 1 0 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( p 0 0 . man h att an ( pm 5 5 )). isEqualTo ( 1 0 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( pm 5 5 . man h att an ( p 0 0 )). isEqualTo ( 1 0 ) ĊĊĠĠĠĠĠĠĠ ĠassertThat ( pm 5 5 . man h att an ( p 5 5 )). isEqualTo ( 2 0 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( p 5 5 . man h att an ( pm 5 5 )). isEqualTo ( 2 0 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġparse () Ġ{ ĊĠĠĠĠĠĠĠ ĠassertThat ( parse (" 1 , 1 ")). isEqualTo ( 1 Ġpoint Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( parse (" 1 ; 1 ")). isEqualTo ( 1 Ġpoint Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( parse (" 1 , Ġ 1 ")). isEqualTo ( 1 Ġpoint Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( parse (" 1 : ĠĠĠĠ 1 ")). isEqualTo ( 1 Ġpoint Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( parse (" 5 9 , Ġ 1 1 0 ")). isEqualTo ( 5 9 Ġpoint Ġ 1 1 0 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġpair To Point () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġp Ġ= Ġ( 1 Ġto Ġ 2 ). to Point () ĊĊĠĠĠĠĠĠĠ ĠassertThat ( p ). isEqualTo ( 1 Ġpoint Ġ 2 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġplus () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġp Ġ= Ġ 1 Ġpoint Ġ 1 ĊĊĠĠĠĠĠĠĠ Ġval Ġt 1 Ġ= Ġp Ġ+ Ġ( 1 Ġpoint Ġ- 2 ) ĊĠĠĠĠĠĠĠ Ġval Ġt 2 Ġ= Ġp Ġ+ Ġ( 1 Ġto Ġ- 2 ) ĊĠĠĠĠĠĠĠ Ġval Ġt 3 Ġ= Ġp Ġ+ ĠDirection . SO UTH ĊĊĠĠĠĠĠĠĠ ĠassertThat ( t 1 ). isEqualTo ( 2 Ġpoint Ġ- 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 2 ). isEqualTo ( 2 Ġpoint Ġ- 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( t 3 ). isEqualTo ( 1 Ġpoint Ġ 2 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġrotate () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġinitial Ġ= ĠPoint ( 1 , Ġ 0 ) ĊĊĠĠĠĠĠĠĠ ĠassertThat ( initial . rotate 9 0 ()). isEqualTo ( 0 Ġpoint Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( initial . rotate ( 9 0 )). isEqualTo ( 0 Ġpoint Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( initial . rotate ( 1 8 0 )). isEqualTo (- 1 Ġpoint Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( initial . rotate ( 2 7 0 )). isEqualTo ( 0 Ġpoint Ġ- 1 ) ĊĠĠĠĠĠĠĠ ĠassertThat ( initial . rotate ( 3 6 0 )). isEqualTo ( 1 Ġpoint Ġ 0 ) ĊĠĠĠ Ġ} Ċ } Ċ