package Ġorg . pl ave lo . parser Ċ Ċ import Ġorg . junit . Assert Ċ import Ġorg . junit . Test Ċ Ċ class ĠSeq Test Ġ{ ĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġ@ Throws ( Exception :: class ) ĊĠĠĠ Ġfun Ġseq () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġparser Ġ= ĠParser . seq ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠParser . string (" (" ), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠParser . regex ("[ ^ )] "). many (). map Ġ{ Ġxs Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġwhen Ġ( xs ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġis ĠValue . Single Ġ-> Ġxs ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġis ĠValue . Multiple Ġ-> ĠValue . Single ( xs . content (). join ToString ("")) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġis ĠValue . Empty Ġ-> Ġxs ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠParser . string (" )") ĊĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ Ġval Ġresult 1 Ġ= Ġparser . parse ("( string Ġbetween Ġpare ns ) "). right (). content () Ġas ĠList < *> ĊĠĠĠĠĠĠĠ ĠAssert . assertEquals ( 3 , Ġresult 1 . size ) ĊĠĠĠĠĠĠĠ ĠAssert . assertEquals (" (", Ġresult 1 [ 0 ]) ĊĠĠĠĠĠĠĠ ĠAssert . assertEquals (" string Ġbetween Ġpare ns ", Ġresult 1 [ 1 ]) ĊĠĠĠĠĠĠĠ ĠAssert . assertEquals (" )", Ġresult 1 [ 2 ]) ĊĠĠĠ Ġ} Ċ }