package Ġru . drone lek tron . grammar parser . lr one . lexer Ċ Ċ import Ġorg . junit . Assert . assertEquals Ċ import Ġorg . junit . Test Ċ Ċ import Ġru . drone lek tron . grammar parser . lr one . mocks . fsm . Float F sm Ċ Ċ class ĠFloat F sm Test Ġ{ Ċ ĉ @ Test Ċ ĉ fun Ġtest Good Float s () Ġ{ Ċĉ ĉ val Ġgood Float s Ġ= ĠlistOf ( Ċĉĉ ĉ "+ 1 2 . 3 4 e + 1 2 ", Ċĉĉ ĉ "- 1 2 . 3 4 e + 1 2 ", Ċĉĉ ĉ " 1 2 . 3 4 e + 1 2 ", Ċĉĉ ĉ ". 3 4 e + 1 2 ", Ċĉĉ ĉ "+ 1 2 . 3 4 e 1 2 ", Ċĉĉ ĉ "- 1 2 . 3 4 e 1 2 ", Ċĉĉ ĉ " 1 2 . 3 4 e 1 2 ", Ċĉĉ ĉ "+ 1 2 . 3 4 ", Ċĉĉ ĉ "- 1 2 . 3 4 ", Ċĉĉ ĉ " 1 2 . 3 4 " Ċĉ ĉ ) ĊĊĉ ĉ for Ġ( good Float Ġin Ġgood Float s ) Ġ{ Ċĉĉ ĉ assertEquals ( good Float , ĠFloat F sm . match ( good Float )) Ċĉ ĉ } Ċ ĉ } ĊĊ ĉ @ Test Ċ ĉ fun Ġtest Bad Float s () Ġ{ Ċĉ ĉ val Ġbad Float s Ġ= ĠlistOf ( Ċĉĉ ĉ ". ", Ċĉĉ ĉ ", ", Ċĉĉ ĉ " 0 .", Ċĉĉ ĉ " 0 ,", Ċĉĉ ĉ " 1 ", Ċĉĉ ĉ " 0 . 5 e ", Ċĉĉ ĉ ". 5 e ", Ċĉĉ ĉ "+ . 5 e " Ċĉ ĉ ) ĊĊĉ ĉ for Ġ( bad Float Ġin Ġbad Float s ) Ġ{ Ċĉĉ ĉ assert ( Float F sm . match ( bad Float ). isEmpty ()) Ċĉ ĉ } Ċ ĉ } Ċ } Ċ