package Ġdev . ats ush i eno . kt midi Ċ Ċ import Ġio . ktor . utils . io . core .* Ċ import Ġkotlin . test . Test Ċ import Ġkotlin . test . assert Content Equals Ċ import Ġkotlin . test . assertEquals Ċ Ċ // ĠThese Ġtests Ġare Ġimported Ġfrom Ġc midi 2 Ġproject Ġand Ġhave Ġf lipped ĠassertEquals () Ġarguments ... Ċ private Ġfun Ġ< T > ĠassertEquals F lipped ( actual : ĠT , Ġexpected : ĠT ) Ġ= ĠassertEquals ( expected , Ġactual ) Ċ Ċ class ĠU mp Factory Test Ġ{ ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Type 0 Messages () Ġ{ ĊĠĠĠĠĠĠĠ Ġ/* Ġtype Ġ 0 Ġ*/ ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . noop ( 0 ), Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . noop ( 1 ) Ġ, ĠĠ 0 x 0 1 0 0 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . jr Clock ( 0 , Ġ 0 ) Ġ, ĠĠ 0 x 0 0 1 0 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . jr Clock ( 0 , Ġ 1 . 0 ) Ġ, ĠĠ 0 x 0 0 1 0 7 A 1 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . jr Timestamp ( 0 , Ġ 0 ) Ġ, ĠĠ 0 x 0 0 2 0 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . jr Timestamp ( 1 , Ġ 1 . 0 ) Ġ, ĠĠ 0 x 0 1 2 0 7 A 1 2 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Type 1 Messages () Ġ{ ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . system Message ( 1 , Ġ 0 xF 1 . to Byte (), Ġ 9 9 , Ġ 0 ) Ġ, ĠĠ 0 x 1 1 F 1 6 3 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . system Message ( 1 , Ġ 0 xF 2 . to Byte (), Ġ 9 9 , Ġ 8 9 ) Ġ, ĠĠ 0 x 1 1 F 2 6 3 5 9 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . system Message ( 1 , Ġ 0 xFF . to Byte (), Ġ 0 , Ġ 0 ) Ġ, ĠĠ 0 x 1 1 FF 0 0 0 0 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Type 2 Messages () Ġ{ ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Message ( 1 , Ġ 0 x 8 0 . to Byte (), Ġ 2 , Ġ 6 5 , Ġ 1 0 ), Ġ 0 x 2 1 8 2 4 1 0 A ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Note Off ( 1 , Ġ 2 , Ġ 6 5 , Ġ 1 0 ), Ġ 0 x 2 1 8 2 4 1 0 A ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Note On ( 1 , Ġ 2 , Ġ 6 5 , Ġ 1 0 ), Ġ 0 x 2 1 9 2 4 1 0 A ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 PA f ( 1 , Ġ 2 , Ġ 6 5 , Ġ 1 0 ), Ġ 0 x 2 1 A 2 4 1 0 A ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 CC ( 1 , Ġ 2 , Ġ 6 5 , Ġ 1 0 ), Ġ 0 x 2 1 B 2 4 1 0 A ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Program ( 1 , Ġ 2 , Ġ 2 9 ), Ġ 0 x 2 1 C 2 1 D 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 CA f ( 1 , Ġ 2 , Ġ 1 0 ), Ġ 0 x 2 1 D 2 0 A 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Pitch B end Direct ( 1 , Ġ 2 , Ġ 0 ), Ġ 0 x 2 1 E 2 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Pitch B end Direct ( 1 , Ġ 2 , Ġ 1 ), Ġ 0 x 2 1 E 2 0 1 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Pitch B end Direct ( 1 , Ġ 2 , Ġ 0 x 3 FFF ), Ġ 0 x 2 1 E 2 7 F 7 F ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Pitch B end ( 1 , Ġ 2 , Ġ 0 ), Ġ 0 x 2 1 E 2 0 0 4 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Pitch B end ( 1 , Ġ 2 , Ġ- 8 1 9 2 ), Ġ 0 x 2 1 E 2 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . midi 1 Pitch B end ( 1 , Ġ 2 , Ġ 8 1 9 1 ), Ġ 0 x 2 1 E 2 7 F 7 F ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Type 3 Messages () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġgs Reset Ġ= ĠlistOf ( 0 xF 0 , Ġ 0 x 4 1 , Ġ 0 x 1 0 , Ġ 0 x 4 2 , Ġ 0 x 1 2 , Ġ 0 x 4 0 , Ġ 0 x 0 0 , Ġ 0 x 7 F , Ġ 0 x 0 0 , Ġ 0 x 4 1 , Ġ 0 xF 7 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġsy sex 1 2 Ġ= ĊĠĠĠĠĠĠĠĠĠĠĠ ĠlistOf ( 0 xF 0 , Ġ 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 , Ġ 5 , Ġ 6 , Ġ 7 , Ġ 8 , Ġ 9 , Ġ 1 0 , Ġ 1 1 , Ġ 0 xF 7 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} Ġ// Ġ 1 2 Ġbytes Ġwithout Ġ 0 xF 0 ĊĠĠĠĠĠĠĠ Ġval Ġsy sex 1 3 Ġ= ĠlistOf ( 0 xF 0 , Ġ 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 , Ġ 5 , Ġ 6 , Ġ 7 , Ġ 8 , Ġ 9 , Ġ 1 0 , Ġ 1 1 , Ġ 1 2 , Ġ 0 xF 7 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} Ġ// Ġ 1 3 Ġbytes Ġwithout Ġ 0 xF 0 ĊĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Sy sex Length ( gs Reset Ġ+ Ġ 1 ), Ġ 9 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Sy sex Length ( gs Reset ), Ġ 9 ) Ġ// Ġskip Ġ 0 xF 0 ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Sy sex Length ( sy sex 1 2 Ġ+ Ġ 1 ), Ġ 1 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Sy sex Length ( sy sex 1 2 ), Ġ 1 2 ) Ġ// Ġskip Ġ 0 xF 0 ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Sy sex Length ( sy sex 1 3 Ġ+ Ġ 1 ), Ġ 1 3 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Sy sex Length ( sy sex 1 3 ), Ġ 1 3 ) Ġ// Ġskip Ġ 0 xF 0 ĊĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Packet Count ( 0 ), Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Packet Count ( 1 ), Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Packet Count ( 7 ), Ġ 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Packet Count ( 1 2 ), Ġ 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 7 Get Packet Count ( 1 3 ), Ġ 3 ) ĊĊĠĠĠĠĠĠĠ Ġvar Ġv Ġ= ĠU mp Factory . sy sex 7 Direct ( 1 , Ġ 0 , Ġ 6 , Ġ 0 x 4 1 , Ġ 0 x 1 0 , Ġ 0 x 4 2 , Ġ 0 x 4 0 , Ġ 0 x 0 0 , Ġ 0 x 7 F ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 3 1 0 6 4 1 1 0 4 2 4 0 0 0 7 F ) ĊĊĠĠĠĠĠĠĠ Ġvar Ġlength Ġ= ĠU mp Factory . sy sex 7 Get Sy sex Length ( gs Reset ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( length , Ġ 9 ) ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . sy sex 7 Get Packet Of ( 1 , Ġlength , Ġgs Reset , Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 3 1 1 6 4 1 1 0 4 2 1 2 4 0 0 0 ) Ġ// Ġskip ĠF 0 Ġcorrectly . ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . sy sex 7 Get Packet Of ( 1 , Ġlength , Ġgs Reset , Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 3 1 3 3 7 F 0 0 4 1 0 0 0 0 0 0 ) ĊĊĠĠĠĠĠĠĠ Ġlength Ġ= ĠU mp Factory . sy sex 7 Get Sy sex Length ( sy sex 1 3 ) ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . sy sex 7 Get Packet Of ( 1 , Ġlength , Ġsy sex 1 3 , Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 3 1 1 6 0 0 0 1 0 2 0 3 0 4 0 5 ) Ġ// Ġstatus Ġ 1 ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . sy sex 7 Get Packet Of ( 1 , Ġlength , Ġsy sex 1 3 , Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 3 1 2 6 0 6 0 7 0 8 0 9 0 A 0 B ) Ġ// Ġstatus Ġ 2 ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . sy sex 7 Get Packet Of ( 1 , Ġlength , Ġsy sex 1 3 , Ġ 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 3 1 3 1 0 C 0 0 0 0 0 0 0 0 0 0 ) Ġ// Ġstatus Ġ 3 ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Type 4 Messages () Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġpitch Ġ= ĠU mp Factory . pitch 7 _ 9 Split ( 0 x 2 0 , Ġ 0 . 5 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pitch , Ġ 0 x 4 1 0 0 ) ĊĠĠĠĠĠĠĠ Ġpitch Ġ= ĠU mp Factory . pitch 7 _ 9 ( 3 2 . 5 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pitch , Ġ 0 x 4 1 0 0 ) ĊĊĠĠĠĠĠĠĠ Ġvar Ġv Ġ= ĠU mp Factory . midi 2 Channel Message 8 _ 8 _ 1 6 _ 1 6 ( ĊĠĠĠĠĠĠĠĠĠĠĠĠ 1 , ĊĠĠĠĠĠĠĠĠĠĠĠ ĠM idi Channel Status . NOTE _ OFF , ĊĠĠĠĠĠĠĠĠĠĠĠĠ 2 , ĊĠĠĠĠĠĠĠĠĠĠĠĠ 0 x 2 0 , ĊĠĠĠĠĠĠĠĠĠĠĠ ĠM idi Note AttributeType . Pitch 7 _ 9 , ĊĠĠĠĠĠĠĠĠĠĠĠĠ 0 xF ED C , ĊĠĠĠĠĠĠĠĠĠĠĠ Ġpitch ĊĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 8 2 2 0 0 3 F ED C 4 1 0 0 ) ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Channel Message 8 _ 8 _ 3 2 ( 1 , ĠM idi Channel Status . NOTE _ OFF , Ġ 2 , Ġ 0 x 2 0 , ĠM idi Note AttributeType . Pitch 7 _ 9 , Ġ 0 x 1 2 3 4 5 6 7 8 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 8 2 2 0 0 3 1 2 3 4 5 6 7 8 ) ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Channel Message 8 _ 8 _ 3 2 ( 0 , Ġ 0 x 6 0 , Ġ 0 , Ġ 0 x 4 0 , Ġ 0 , Ġ 0 x 8 1 0 0 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 0 6 0 4 0 0 0 8 1 0 0 0 0 0 0 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Note Off ( 1 , Ġ 2 , Ġ 6 4 , Ġ 0 , Ġ 0 x 1 2 3 4 , Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 8 2 4 0 0 0 1 2 3 4 0 0 0 0 ) ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Note Off ( 1 , Ġ 2 , Ġ 6 4 , Ġ 3 , Ġ 0 x 1 2 3 4 , Ġpitch ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 8 2 4 0 0 3 1 2 3 4 4 1 0 0 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Note On ( 1 , Ġ 2 , Ġ 6 4 , Ġ 0 , Ġ 0 xF ED C , Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 9 2 4 0 0 0 F ED C 0 0 0 0 ) ĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Note On ( 1 , Ġ 2 , Ġ 6 4 , Ġ 3 , Ġ 0 xF ED C , Ġpitch ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 9 2 4 0 0 3 F ED C 4 1 0 0 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 PA f ( 1 , Ġ 2 , Ġ 6 4 , Ġ 0 x 8 7 6 5 4 3 2 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 A 2 4 0 0 0 8 7 6 5 4 3 2 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 CC ( 1 , Ġ 2 , Ġ 1 , Ġ 0 x 8 7 6 5 4 3 2 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 B 2 0 1 0 0 8 7 6 5 4 3 2 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Program ( 1 , Ġ 2 , Ġ 1 , Ġ 2 9 , Ġ 8 , Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 C 2 0 0 0 1 1 D 0 0 0 8 0 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 CA f ( 1 , Ġ 2 , Ġ 0 x 8 7 6 5 4 3 2 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 D 2 0 0 0 0 8 7 6 5 4 3 2 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Pitch B end Direct ( 1 , Ġ 2 , Ġ 0 x 8 7 6 5 4 3 2 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 E 2 0 0 0 0 8 7 6 5 4 3 2 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Pitch B end ( 1 , Ġ 2 , Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 E 2 0 0 0 0 8 0 0 0 0 0 0 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Per Note RCC ( 1 , Ġ 2 , Ġ 5 6 , Ġ 0 x 1 0 , Ġ 0 x 3 3 3 3 3 3 3 3 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 0 2 3 8 1 0 3 3 3 3 3 3 3 3 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Per Note ACC ( 1 , Ġ 2 , Ġ 5 6 , Ġ 0 x 1 0 , Ġ 0 x 3 3 3 3 3 3 3 3 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 1 2 3 8 1 0 3 3 3 3 3 3 3 3 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 RP N ( 1 , Ġ 2 , Ġ 0 x 1 0 , Ġ 0 x 2 0 , Ġ 0 x 1 2 3 4 5 6 7 8 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 2 2 1 0 2 0 1 2 3 4 5 6 7 8 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 N RP N ( 1 , Ġ 2 , Ġ 0 x 1 0 , Ġ 0 x 2 0 , Ġ 0 x 1 2 3 4 5 6 7 8 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 3 2 1 0 2 0 1 2 3 4 5 6 7 8 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Relative RP N ( 1 , Ġ 2 , Ġ 0 x 1 0 , Ġ 0 x 2 0 , Ġ 0 x 1 2 3 4 5 6 7 8 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 4 2 1 0 2 0 1 2 3 4 5 6 7 8 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Relative N RP N ( 1 , Ġ 2 , Ġ 0 x 1 0 , Ġ 0 x 2 0 , Ġ 0 x 1 2 3 4 5 6 7 8 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 5 2 1 0 2 0 1 2 3 4 5 6 7 8 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Per Note Pitch B end Direct ( 1 , Ġ 2 , Ġ 5 6 , Ġ 0 x 8 7 6 5 4 3 2 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 6 2 3 8 0 0 8 7 6 5 4 3 2 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Per Note Pitch B end ( 1 , Ġ 2 , Ġ 5 6 , Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 6 2 3 8 0 0 8 0 0 0 0 0 0 1 ) ĊĊĠĠĠĠĠĠĠ Ġv Ġ= ĠU mp Factory . midi 2 Per Note Management ( 1 , Ġ 2 , Ġ 5 6 , ĠM idi Per Note Management Flags . DET ACH ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( v , Ġ 0 x 4 1 F 2 3 8 0 2 0 0 0 0 0 0 0 0 ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Type 5 Messages () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġgs Reset Ġ= ĠlistOf ( 0 x 4 1 , Ġ 0 x 1 0 , Ġ 0 x 4 2 , Ġ 0 x 1 2 , Ġ 0 x 4 0 , Ġ 0 x 0 0 , Ġ 0 x 7 F , Ġ 0 x 0 0 , Ġ 0 x 4 1 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġsy sex 2 7 Ġ= Ġ( 1 .. 2 7 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 8 Get Packet Count ( 0 ), Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 8 Get Packet Count ( 1 ), Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 8 Get Packet Count ( 1 3 ), Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 8 Get Packet Count ( 1 4 ), Ġ 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 8 Get Packet Count ( 2 6 ), Ġ 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( U mp Factory . sy sex 8 Get Packet Count ( 2 7 ), Ġ 3 ) ĊĊĠĠĠĠĠĠĠ Ġvar Ġlength Ġ= Ġ 9 ĊĠĠĠĠĠĠĠ Ġvar Ġpair Ġ= ĠU mp Factory . sy sex 8 Get Packet Of ( 1 , Ġ 7 , Ġlength , Ġgs Reset , Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . first , Ġ 0 x 5 1 0 A 0 7 4 1 1 0 4 2 1 2 4 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . second , Ġ 0 x 0 0 7 F 0 0 4 1 0 0 0 0 0 0 0 0 ) ĊĊĠĠĠĠĠĠĠ Ġlength Ġ= Ġ 2 7 ĊĠĠĠĠĠĠĠ Ġpair Ġ= ĠU mp Factory . sy sex 8 Get Packet Of ( 1 , Ġ 7 , Ġlength , Ġsy sex 2 7 , Ġ 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . first , Ġ 0 x 5 1 1 E 0 7 0 1 0 2 0 3 0 4 0 5 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . second , Ġ 0 x 0 6 0 7 0 8 0 9 0 A 0 B 0 C 0 D ) ĊĠĠĠĠĠĠĠ Ġpair Ġ= ĠU mp Factory . sy sex 8 Get Packet Of ( 1 , Ġ 7 , Ġlength , Ġsy sex 2 7 , Ġ 1 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . first , Ġ 0 x 5 1 2 E 0 7 0 E 0 F 1 0 1 1 1 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . second , Ġ 0 x 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 A ) ĊĠĠĠĠĠĠĠ Ġpair Ġ= ĠU mp Factory . sy sex 8 Get Packet Of ( 1 , Ġ 7 , Ġlength , Ġsy sex 2 7 , Ġ 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . first , Ġ 0 x 5 1 3 2 0 7 1 B 0 0 0 0 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals F lipped ( pair . second , Ġ 0 x 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 L ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġsy sex 7 Process () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġsy sex 6 Ġ= Ġ( 1 .. 6 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġpl Ġ= Ġmutable ListOf < U mp >() ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 7 Process ( 0 , Ġsy sex 6 ) Ġ{ l , Ġ_ Ġ-> Ġpl . add ( U mp ( l )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 , Ġpl . size , Ġ" pl Ġsize ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 0 6 0 1 0 2 , Ġpl [ 0 ]. int 1 , Ġ" v 1 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 3 0 4 0 5 0 6 , Ġpl [ 0 ]. int 2 , Ġ" v 1 . 2 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 2 , Ġ 1 , Ġ 6 , Ġ 0 x 3 0 , Ġ 6 , Ġ 5 , Ġ 4 , Ġ 3 ), Ġbytes 1 . to Typed Array (), Ġ" bytes 1 . 1 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( sy sex 6 , ĠU mp Retriever . get Sy sex 7 Data ( pl . iterator ()), Ġ" get Sy sex 7 : 6 ") ĊĊĠĠĠĠĠĠĠ Ġval Ġsy sex 7 Ġ= Ġ( 1 .. 7 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġpl . clear () ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 7 Process ( 0 , Ġsy sex 7 ) Ġ{ l , Ġ_ Ġ-> Ġpl . add ( U mp ( l )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 2 , Ġpl . size , Ġ" pl Ġsize 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 1 6 0 1 0 2 , Ġpl [ 0 ]. int 1 , Ġ" v 2 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 3 0 4 0 5 0 6 , Ġpl [ 0 ]. int 2 , Ġ" v 2 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 3 1 0 7 0 0 , Ġpl [ 1 ]. int 1 , Ġ" v 2 . 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpl [ 1 ]. int 2 , Ġ" v 2 . 4 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 _ 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 _ 2 Ġ= Ġpl [ 1 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 2 , Ġ 1 , Ġ 0 x 1 6 , Ġ 0 x 3 0 , Ġ 6 , Ġ 5 , Ġ 4 , Ġ 3 ), Ġbytes 2 _ 1 . to Typed Array (), Ġ" bytes 2 . 1 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 0 , Ġ 7 , Ġ 0 x 3 1 , Ġ 0 x 3 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 ), Ġbytes 2 _ 2 . to Typed Array (), Ġ" bytes 2 . 2 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( sy sex 7 , ĠU mp Retriever . get Sy sex 7 Data ( pl . iterator ()), Ġ" get Sy sex 7 : 7 ") ĊĊĠĠĠĠĠĠĠ Ġval Ġsy sex 1 2 Ġ= Ġ( 1 .. 1 2 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġpl . clear () ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 7 Process ( 0 , Ġsy sex 1 2 ) Ġ{ l , Ġ_ Ġ-> Ġpl . add ( U mp ( l )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 2 , Ġpl . size , Ġ" pl Ġsize 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 1 6 0 1 0 2 , Ġpl [ 0 ]. int 1 , Ġ" v 3 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 3 0 4 0 5 0 6 , Ġpl [ 0 ]. int 2 , Ġ" v 3 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 3 6 0 7 0 8 , Ġpl [ 1 ]. int 1 , Ġ" v 3 . 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 9 0 A 0 B 0 C , Ġpl [ 1 ]. int 2 , Ġ" v 3 . 4 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 3 _ 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 3 _ 2 Ġ= Ġpl [ 1 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 2 , Ġ 1 , Ġ 0 x 1 6 , Ġ 0 x 3 0 , Ġ 6 , Ġ 5 , Ġ 4 , Ġ 3 ), Ġbytes 3 _ 1 . to Typed Array (), Ġ" bytes 3 . 1 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 8 , Ġ 7 , Ġ 0 x 3 6 , Ġ 0 x 3 0 , Ġ 1 2 , Ġ 1 1 , Ġ 1 0 , Ġ 9 ), Ġbytes 3 _ 2 . to Typed Array (), Ġ" bytes 3 . 2 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( sy sex 1 2 , ĠU mp Retriever . get Sy sex 7 Data ( pl . iterator ()), Ġ" get Sy sex 7 : 1 2 ") ĊĊĠĠĠĠĠĠĠ Ġval Ġsy sex 1 3 Ġ= Ġ( 1 .. 1 3 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġpl . clear () ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 7 Process ( 0 , Ġsy sex 1 3 ) Ġ{ l , Ġ_ Ġ-> Ġpl . add ( U mp ( l )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 3 , Ġpl . size , Ġ" pl Ġsize 4 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 1 6 0 1 0 2 , Ġpl [ 0 ]. int 1 , Ġ" v 4 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 3 0 4 0 5 0 6 , Ġpl [ 0 ]. int 2 , Ġ" v 4 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 2 6 0 7 0 8 , Ġpl [ 1 ]. int 1 , Ġ" v 4 . 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 9 0 A 0 B 0 C , Ġpl [ 1 ]. int 2 , Ġ" v 4 . 4 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 3 0 3 1 0 D 0 0 , Ġpl [ 2 ]. int 1 , Ġ" v 4 . 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpl [ 2 ]. int 2 , Ġ" v 4 . 4 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 4 _ 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 4 _ 2 Ġ= Ġpl [ 1 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 4 _ 3 Ġ= Ġpl [ 2 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 2 , Ġ 1 , Ġ 0 x 1 6 , Ġ 0 x 3 0 , Ġ 6 , Ġ 5 , Ġ 4 , Ġ 3 ), Ġbytes 4 _ 1 . to Typed Array (), Ġ" bytes 4 . 1 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 8 , Ġ 7 , Ġ 0 x 2 6 , Ġ 0 x 3 0 , Ġ 1 2 , Ġ 1 1 , Ġ 1 0 , Ġ 9 ), Ġbytes 4 _ 2 . to Typed Array (), Ġ" bytes 4 . 2 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 0 , Ġ 1 3 , Ġ 0 x 3 1 , Ġ 0 x 3 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 ), Ġbytes 4 _ 3 . to Typed Array (), Ġ" bytes 4 . 3 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( sy sex 1 3 , ĠU mp Retriever . get Sy sex 7 Data ( pl . iterator ()), Ġ" get Sy sex 7 : 1 3 ") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġsy sex 8 Process () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġsy sex 1 Ġ= ĠlistOf ( 1 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġpl Ġ= Ġmutable ListOf < U mp >() ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 8 Process ( 0 , Ġsy sex 1 ) Ġ{ l 1 , Ġl 2 , Ġ_ Ġ-> Ġpl . add ( U mp ( l 1 , Ġl 2 )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 , Ġpl . size , Ġ" pl Ġsize ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 0 2 0 0 0 1 , Ġpl [ 0 ]. int 1 , Ġ" v 1 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpl [ 0 ]. int 2 , Ġ" v 1 . 2 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 , Ġ 0 , Ġ 2 , Ġ 0 x 5 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 ), Ġbytes 1 . to Typed Array (), Ġ" bytes 1 . 1 ") ĊĊĠĠĠĠĠĠĠ Ġval Ġsy sex 1 3 Ġ= Ġ( 1 .. 1 3 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġpl . clear () ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 8 Process ( 0 , Ġsy sex 1 3 ) Ġ{ Ġl 1 , Ġl 2 , Ġ_ Ġ-> Ġpl . add ( U mp ( l 1 , Ġl 2 )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 , Ġpl . size , Ġ" pl Ġsize 1 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 0 E 0 0 0 1 , Ġpl [ 0 ]. int 1 , Ġ" v 1 3 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 2 0 3 0 4 0 5 , Ġpl [ 0 ]. int 2 , Ġ" v 1 3 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 6 0 7 0 8 0 9 , Ġpl [ 0 ]. int 3 , Ġ" v 1 3 . 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 A 0 B 0 C 0 D , Ġpl [ 0 ]. int 4 , Ġ" v 1 3 . 4 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 1 3 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 , Ġ 0 , Ġ 1 4 , Ġ 0 x 5 0 , Ġ 5 , Ġ 4 , Ġ 3 , Ġ 2 , Ġ 9 , Ġ 8 , Ġ 7 , Ġ 6 , Ġ 1 3 , Ġ 1 2 , Ġ 1 1 , Ġ 1 0 ), Ġbytes 1 3 . to Typed Array (), Ġ" bytes 1 . 1 ") ĊĊĠĠĠĠĠĠĠ Ġval Ġsy sex 1 4 Ġ= Ġ( 1 .. 1 4 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġpl . clear () ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 8 Process ( 0 , Ġsy sex 1 4 ) Ġ{ Ġl 1 , Ġl 2 , Ġ_ Ġ-> Ġpl . add ( U mp ( l 1 , Ġl 2 )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 2 , Ġpl . size , Ġ" pl Ġsize 1 4 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 1 E 0 0 0 1 , Ġpl [ 0 ]. int 1 , Ġ" v 1 4 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 2 0 3 0 4 0 5 , Ġpl [ 0 ]. int 2 , Ġ" v 1 4 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 6 0 7 0 8 0 9 , Ġpl [ 0 ]. int 3 , Ġ" v 1 4 . 3 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 A 0 B 0 C 0 D , Ġpl [ 0 ]. int 4 , Ġ" v 1 4 . 4 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 3 2 0 0 0 E , Ġpl [ 1 ]. int 1 , Ġ" v 1 4 . 5 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpl [ 1 ]. int 2 , Ġ" v 1 4 . 6 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpl [ 1 ]. int 3 , Ġ" v 1 4 . 7 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpl [ 1 ]. int 4 , Ġ" v 1 4 . 8 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 1 4 _ 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 1 4 _ 2 Ġ= Ġpl [ 1 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 , Ġ 0 , Ġ 0 x 1 E , Ġ 0 x 5 0 , Ġ 5 , Ġ 4 , Ġ 3 , Ġ 2 , Ġ 9 , Ġ 8 , Ġ 7 , Ġ 6 , Ġ 1 3 , Ġ 1 2 , Ġ 1 1 , Ġ 1 0 ), Ġbytes 1 4 _ 1 . to Typed Array (), Ġ" bytes 1 4 . 1 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 4 , Ġ 0 , Ġ 0 x 3 2 , Ġ 0 x 5 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 ), Ġbytes 1 4 _ 2 . to Typed Array (), Ġ" bytes 1 4 . 2 ") ĊĊĠĠĠĠĠĠĠ Ġval Ġsy sex 2 6 Ġ= Ġ( 1 .. 2 6 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġpl . clear () ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 8 Process ( 0 , Ġsy sex 2 6 ) Ġ{ Ġl 1 , Ġl 2 , Ġ_ Ġ-> Ġpl . add ( U mp ( l 1 , Ġl 2 )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 2 , Ġpl . size , Ġ" pl Ġsize 2 6 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 1 E 0 0 0 1 , Ġpl [ 0 ]. int 1 , Ġ" v 2 6 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 3 E 0 0 0 E , Ġpl [ 1 ]. int 1 , Ġ" v 2 6 . 2 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 6 _ 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 6 _ 2 Ġ= Ġpl [ 1 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 , Ġ 0 , Ġ 0 x 1 E , Ġ 0 x 5 0 , Ġ 5 , Ġ 4 , Ġ 3 , Ġ 2 , Ġ 9 , Ġ 8 , Ġ 7 , Ġ 6 , Ġ 1 3 , Ġ 1 2 , Ġ 1 1 , Ġ 1 0 ), Ġbytes 2 6 _ 1 . to Typed Array (), Ġ" bytes 2 6 . 1 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 4 , Ġ 0 , Ġ 0 x 3 E , Ġ 0 x 5 0 , Ġ 1 8 , Ġ 1 7 , Ġ 1 6 , Ġ 1 5 , Ġ 2 2 , Ġ 2 1 , Ġ 2 0 , Ġ 1 9 , Ġ 2 6 , Ġ 2 5 , Ġ 2 4 , Ġ 2 3 ), Ġbytes 2 6 _ 2 . to Typed Array (), Ġ" bytes 2 6 . 2 ") ĊĊĊĠĠĠĠĠĠĠ Ġval Ġsy sex 2 7 Ġ= Ġ( 1 .. 2 7 ). map Ġ{ Ġi Ġ-> Ġi . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġpl . clear () ĊĠĠĠĠĠĠĠ ĠU mp Factory . sy sex 8 Process ( 0 , Ġsy sex 2 7 ) Ġ{ Ġl 1 , Ġl 2 , Ġ_ Ġ-> Ġpl . add ( U mp ( l 1 , Ġl 2 )) Ġ} ĊĠĠĠĠĠĠĠ ĠassertEquals ( 3 , Ġpl . size , Ġ" pl Ġsize 2 7 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 1 E 0 0 0 1 , Ġpl [ 0 ]. int 1 , Ġ" v 2 7 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 2 E 0 0 0 E , Ġpl [ 1 ]. int 1 , Ġ" v 2 7 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 5 0 3 2 0 0 1 B , Ġpl [ 2 ]. int 1 , Ġ" v 2 7 . 3 ") ĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 7 _ 1 Ġ= Ġpl [ 0 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 7 _ 2 Ġ= Ġpl [ 1 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 7 _ 3 Ġ= Ġpl [ 2 ]. to Platform Bytes ( Byte Order . LIT TLE _ ENDIAN ) ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 , Ġ 0 , Ġ 0 x 1 E , Ġ 0 x 5 0 , Ġ 5 , Ġ 4 , Ġ 3 , Ġ 2 , Ġ 9 , Ġ 8 , Ġ 7 , Ġ 6 , Ġ 1 3 , Ġ 1 2 , Ġ 1 1 , Ġ 1 0 ), Ġbytes 2 7 _ 1 . to Typed Array (), Ġ" bytes 2 6 . 1 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 1 4 , Ġ 0 , Ġ 0 x 2 E , Ġ 0 x 5 0 , Ġ 1 8 , Ġ 1 7 , Ġ 1 6 , Ġ 1 5 , Ġ 2 2 , Ġ 2 1 , Ġ 2 0 , Ġ 1 9 , Ġ 2 6 , Ġ 2 5 , Ġ 2 4 , Ġ 2 3 ), Ġbytes 2 7 _ 2 . to Typed Array (), Ġ" bytes 2 6 . 2 ") ĊĠĠĠĠĠĠĠ Ġassert Content Equals ( array Of ( 2 7 , Ġ 0 , Ġ 0 x 3 2 , Ġ 0 x 5 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 ), Ġbytes 2 7 _ 3 . to Typed Array (), Ġ" bytes 2 6 . 3 ") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġfrom Platform Bytes () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġbytes Ġ= ĠlistOf ( 0 x 4 0 , Ġ 0 x 9 1 , Ġ 0 x 4 0 , Ġ 0 , Ġ 0 x 6 4 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 x 0 0 , Ġ 0 x 2 0 , Ġ 0 x 0 0 , Ġ 0 xC 0 , Ġ 0 x 4 0 , Ġ 0 x 8 1 , Ġ 0 x 4 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 ). map Ġ{ Ġit . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġpackets Ġ= ĠU mp Factory . from Platform Bytes ( Byte Order . BIG _ ENDIAN , Ġbytes ). toList () ĊĠĠĠĠĠĠĠ ĠassertEquals ( 3 , Ġpackets . size , Ġ" packets . size ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 4 0 9 1 4 0 0 0 , Ġpackets [ 0 ]. int 1 , Ġ" 1 . 1 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 6 4 0 0 0 0 0 0 , Ġpackets [ 0 ]. int 2 , Ġ" 1 . 1 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 0 2 0 0 0 C 0 , Ġpackets [ 1 ]. int 1 , Ġ" 1 . 2 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 4 0 8 1 4 0 0 0 , Ġpackets [ 2 ]. int 1 , Ġ" 1 . 3 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpackets [ 2 ]. int 2 , Ġ" 1 . 3 . 2 ") ĊĊĠĠĠĠĠĠĠ Ġval Ġbytes 2 Ġ= ĠlistOf ( 0 , Ġ 0 x 4 0 , Ġ 0 x 9 1 , Ġ 0 x 4 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 x 6 4 , Ġ 0 xC 0 , Ġ 0 x 0 0 , Ġ 0 x 2 0 , Ġ 0 x 0 0 , Ġ 0 , Ġ 0 x 4 0 , Ġ 0 x 8 1 , Ġ 0 x 4 0 , Ġ 0 , Ġ 0 , Ġ 0 , Ġ 0 ). map Ġ{ Ġit . to Byte () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġpackets 2 Ġ= ĠU mp Factory . from Platform Bytes ( Byte Order . LIT TLE _ ENDIAN , Ġbytes 2 ). toList () ĊĠĠĠĠĠĠĠ ĠassertEquals ( 3 , Ġpackets 2 . size , Ġ" packets 2 . size ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 4 0 9 1 4 0 0 0 , Ġpackets 2 [ 0 ]. int 1 , Ġ" 2 . 1 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 6 4 0 0 0 0 0 0 , Ġpackets 2 [ 0 ]. int 2 , Ġ" 2 . 1 . 2 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 0 0 2 0 0 0 C 0 , Ġpackets 2 [ 1 ]. int 1 , Ġ" 2 . 2 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 x 4 0 8 1 4 0 0 0 , Ġpackets 2 [ 2 ]. int 1 , Ġ" 2 . 3 . 1 ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 0 , Ġpackets 2 [ 2 ]. int 2 , Ġ" 2 . 3 . 2 ") ĊĠĠĠ Ġ} Ċ } Ċ