Ċ package Ġfoo Ċ Ċ fun Ġbox (): ĠString Ġ{ ĊĠĠĠ Ġtry Ġ{ ĊĠĠĠĠĠĠĠ Ġtest Companion Object Access () ĊĠĠĠĠĠĠĠ Ġtest In Call () ĊĠĠĠĠĠĠĠ Ġtest Double Constants () ĊĠĠĠĠĠĠĠ Ġtest Float Constants () ĊĠĠĠĠĠĠĠ Ġtest Local Fun () ĊĠĠĠĠĠĠĠ Ġtest TopLevel Fun () ĊĠĠĠĠĠĠĠ Ġtest Var Top Field () ĊĠĠĠ Ġ} ĊĠĠĠ Ġcatch Ġ( e : ĠThrowable ) Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġ" Error : Ġ\ n " Ġ+ Ġe ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ } Ċ Ċ fun Ġtest Companion Object Access () Ġ{ ĊĠĠĠ Ġval Ġi Ġ= ĠInt ĊĠĠĠ Ġval Ġd Ġ= ĠDouble ĊĠĠĠ Ġval Ġf Ġ= ĠFloat ĊĠĠĠ Ġval Ġl Ġ= ĠLong ĊĠĠĠ Ġval Ġsh Ġ= ĠShort ĊĠĠĠ Ġval Ġb Ġ= ĠByte ĊĠĠĠ Ġval Ġch Ġ= ĠChar ĊĠĠĠ Ġval Ġst Ġ= ĠString ĊĠĠĠ Ġval Ġen Ġ= ĠEnum Ċ } Ċ Ċ fun Ġtest In Call () Ġ{ ĊĠĠĠ Ġtest ( Int ) ĊĠĠĠ Ġtest ( Double ) ĊĠĠĠ Ġtest ( Float ) ĊĠĠĠ Ġtest ( Long ) ĊĠĠĠ Ġtest ( Short ) ĊĠĠĠ Ġtest ( Byte ) ĊĠĠĠ Ġtest ( Char ) ĊĠĠĠ Ġtest ( String ) ĊĠĠĠ Ġtest ( Enum ) Ċ } Ċ Ċ fun Ġtest Double Constants () Ġ{ ĊĠĠĠ Ġval Ġpi Ġ= ĠDouble . POSITIVE _ INFINITY ĊĠĠĠ Ġval Ġni Ġ= ĠDouble . NEGATIVE _ INFINITY ĊĠĠĠ Ġval Ġnan Ġ= ĠDouble . NaN ĊĊĠĠĠ Ġmy Assert Equals ( pi , ĠDouble . POSITIVE _ INFINITY ) ĊĠĠĠ Ġmy Assert Equals ( ni , ĠDouble . NEGATIVE _ INFINITY ) Ċ } Ċ Ċ fun Ġtest Float Constants () Ġ{ ĊĠĠĠ Ġval Ġpi Ġ= ĠFloat . POSITIVE _ INFINITY ĊĠĠĠ Ġval Ġni Ġ= ĠFloat . NEGATIVE _ INFINITY ĊĠĠĠ Ġval Ġnan Ġ= ĠFloat . NaN ĊĊĠĠĠ Ġmy Assert Equals ( pi , ĠFloat . POSITIVE _ INFINITY ) ĊĠĠĠ Ġmy Assert Equals ( ni , ĠFloat . NEGATIVE _ INFINITY ) Ċ } Ċ Ċ fun Ġtest Local Fun () Ġ{ ĊĠĠĠ Ġfun ĠInt . Companion . Local Fun () Ġ: ĠString Ġ= Ġ" Local Fun " ĊĠĠĠ Ġmy Assert Equals (" Local Fun ", ĠInt . Local Fun ()) Ċ } Ċ Ċ fun Ġtest TopLevel Fun () Ġ{ ĊĠĠĠ Ġmy Assert Equals (" Top Fun ", ĠInt . Top Fun ()) Ċ } Ċ Ċ fun Ġtest Var Top Field () Ġ{ ĊĠĠĠ Ġmy Assert Equals ( 0 , ĠInt . Top Field ) ĊĊĠĠĠ ĠInt . Top Field ++ ĊĠĠĠ Ġmy Assert Equals ( 1 , ĠInt . Top Field ) ĊĊĠĠĠ ĠInt . Top Field Ġ+= Ġ 5 ĊĠĠĠ Ġmy Assert Equals ( 6 , ĠInt . Top Field ) Ċ } Ċ Ċ fun Ġtest ( a : ĠAny ) Ġ{} Ċ Ċ var Ġ_ field : ĠInt Ġ= Ġ 0 Ċ var ĠInt . Companion . Top Field Ġ: ĠInt ĊĠĠĠ Ġget () Ġ= Ġ_ field ĊĠĠĠ Ġset ( value ) Ġ{ Ġ_ field Ġ= Ġvalue Ġ}; Ċ Ċ fun ĠInt . Companion . Top Fun () Ġ: ĠString Ġ= Ġ" Top Fun " Ċ Ċ fun Ġ< T > Ġmy Assert Equals ( a : ĠT , Ġb : ĠT ) Ġ{ ĊĠĠĠ Ġif Ġ( a Ġ!= Ġb ) Ġthrow ĠException ("$ a Ġ!= Ġ$ b ") Ċ } ĊĊĊ