package Ġme . kh ol . quantum . math Ċ Ċ import Ġme . kh ol . quantum . math . Complex . Companion . ONE Ċ import Ġorg . junit . jupiter . api . Test Ċ import Ġorg . hamcrest . Matcher Assert . assertThat Ċ import Ġorg . hamcrest . Matchers . equalTo Ċ Ċ internal Ġclass ĠMatrix Tensor Test Ġ{ ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġone Tensor One () Ġ= ĠassertThat ( ĊĠĠĠĠĠĠĠ ĠMatrix ( 1 , Ġ 1 , ĠONE ) Ġtensor ĠMatrix ( 1 , Ġ 1 , ĠONE ), ĊĠĠĠĠĠĠĠ ĠequalTo ( Matrix ( 1 , Ġ 1 , ĠONE )) ĊĠĠĠ Ġ) ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtwo Tensor One () Ġ= ĠassertThat ( ĊĠĠĠĠĠĠĠ ĠMatrix ( 2 , Ġ 1 , ĠONE , ĠONE ) Ġtensor ĠMatrix ( 1 , Ġ 1 , ĠONE ), ĊĠĠĠĠĠĠĠ ĠequalTo ( Matrix ( 2 , Ġ 1 , ĠONE , ĠONE )) ĊĠĠĠ Ġ) ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġone Tensor Two () Ġ= ĠassertThat ( ĊĠĠĠĠĠĠĠ ĠMatrix ( 1 , Ġ 2 , ĠONE , ĠONE ) Ġtensor ĠMatrix ( 1 , Ġ 1 , ĠONE ), ĊĠĠĠĠĠĠĠ ĠequalTo ( Matrix ( 1 , Ġ 2 , ĠONE , ĠONE )) ĊĠĠĠ Ġ) ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtwo Tensor Two () Ġ= ĠassertThat ( ĊĠĠĠĠĠĠĠ ĠMatrix ( 1 , Ġ 2 , ĠONE , ĠONE ) Ġtensor ĠMatrix ( 2 , Ġ 1 , ĠONE , ĠONE ), ĊĠĠĠĠĠĠĠ ĠequalTo ( Matrix ( 2 , Ġ 2 , ĠONE , ĠONE , ĠONE , ĠONE )) ĊĠĠĠ Ġ) ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtwo Tensor Two K et () Ġ= ĠassertThat ( ĊĠĠĠĠĠĠĠ ĠMatrix ( 2 , Ġ 1 , ĠONE , ĠONE ) Ġtensor ĠMatrix ( 2 , Ġ 1 , ĠONE , ĠONE ), ĊĠĠĠĠĠĠĠ ĠequalTo ( Matrix ( 4 , Ġ 1 , ĠONE , ĠONE , ĠONE , ĠONE )) ĊĠĠĠ Ġ) ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtwo Tensor Two B ra () Ġ= ĠassertThat ( ĊĠĠĠĠĠĠĠ ĠMatrix ( 1 , Ġ 2 , ĠONE , ĠONE ) Ġtensor ĠMatrix ( 1 , Ġ 2 , ĠONE , ĠONE ), ĊĠĠĠĠĠĠĠ ĠequalTo ( Matrix ( 1 , Ġ 4 , ĠONE , ĠONE , ĠONE , ĠONE )) ĊĠĠĠ Ġ) Ċ } Ċ