package Ġfoo Ċ Ċ class ĠFail ( val Ġmessage : ĠString ) Ġ: ĠException ( message ) Ċ native Ġfun Ġeval ( arg : ĠString ): ĠAny ? Ġ= Ġno Impl Ċ Ċ fun Ġtest ( test Name : ĠString , Ġactual : ĠAny , Ġexpected AsString : ĠString ) Ġ{ ĊĠĠĠ Ġval Ġexpected Ġ= Ġeval (" [$ expected AsString ]") ĊĠĠĠ Ġif Ġ( actual Ġ!= Ġexpected ) Ġthrow ĠFail (" Wrong Ġresult Ġfor Ġ'$ test Name ' Ġfunction . ĠExpected : Ġ$ expected Ġ| ĠActual : Ġ$ actual ") Ċ } Ċ Ċ fun Ġbox (): ĠString Ġ{ ĊĠĠĠ Ġtry Ġ{ ĊĠĠĠĠĠĠĠ Ġtest (" array ", Ġarray ( 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ), Ġ" 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ") ĊĠĠĠĠĠĠĠ Ġtest (" boolean Array ", Ġboolean Array ( true , Ġfalse , Ġfalse , Ġtrue , Ġtrue ), Ġ" true , Ġfalse , Ġfalse , Ġtrue , Ġtrue ") ĊĠĠĠĠĠĠĠ Ġtest (" char Array '", ĠcharArray (' 0 ', Ġ' 1 ', Ġ' 2 ', Ġ' 3 ', Ġ' 4 '), Ġ"' 0 ', Ġ' 1 ', Ġ' 2 ', Ġ' 3 ', Ġ' 4 '") ĊĠĠĠĠĠĠĠ Ġtest (" byteArray ", ĠbyteArray ( 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ), Ġ" 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ") ĊĠĠĠĠĠĠĠ Ġtest (" short Array ", Ġshort Array ( 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ), Ġ" 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ") ĊĠĠĠĠĠĠĠ Ġtest (" int Array ,", ĠintArray ( 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ), Ġ" 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ") ĊĠĠĠĠĠĠĠ Ġtest (" long Array ", Ġlong Array ( 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ), Ġ" 0 , Ġ 1 , Ġ 2 , Ġ 3 , Ġ 4 ") ĊĠĠĠĠĠĠĠ Ġtest (" float Array ", Ġfloat Array ( 0 . 0 . toFloat (), Ġ 1 . 0 . toFloat (), Ġ 2 . 0 . toFloat (), Ġ 3 . 0 . toFloat (), Ġ 4 . 0 . toFloat ()), Ġ" 0 . 0 , Ġ 1 . 0 , Ġ 2 . 0 , Ġ 3 . 0 , Ġ 4 . 0 ") ĊĠĠĠĠĠĠĠ Ġtest (" double Array ", Ġdouble Array ( 0 . 0 , Ġ 1 . 1 , Ġ 2 . 2 , Ġ 3 . 3 , Ġ 4 . 4 ), Ġ" 0 . 0 , Ġ 1 . 1 , Ġ 2 . 2 , Ġ 3 . 3 , Ġ 4 . 4 ") ĊĠĠĠ Ġ} ĊĠĠĠ Ġcatch Ġ( e : ĠFail ) Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġe . message ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ } Ċ