Ċ import Ġio . warp 1 0 . warp script DSL .* Ċ import Ġorg . junit . Test Ċ import Ġorg . junit . Assert .* Ċ Ċ class ĠApply Test Ġ{ ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġminimal Apply () Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġtmp Ġ= ĠW arp Script . generate Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġallow Variable Name ( listOf (" test ")) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġapply ( load Elements Ġ= Ġ{ Ġload (" test ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġload (" test ")}, Ġop Ġ= ĠApply (). add ()) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġoutput Ġ= Ġ"[ Ġ\ n Ġ Ġ\$ test Ġ\ n Ġ Ġ\$ test Ġ\ n Ġ Ġ[] Ġ\ n Ġ Ġop . add Ġ\ n ] Ġ\ n AP PLY Ġ\ n " ĊĠĠĠĠĠĠĠ ĠassertEquals ( output , Ġtmp . toString ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġapply Test Native Element () Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġtmp Ġ= ĠW arp Script . generate Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġallow Variable Name ( listOf (" test ")) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġapply ( load Elements Ġ= Ġ{ Ġload (" test ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġload (" test ")}, Ġlabels Ġ= ĠlistOf (" test "), Ġop Ġ= ĠApply (). add ()) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġoutput Ġ= Ġ"[ Ġ\ n Ġ Ġ\$ test Ġ\ n Ġ Ġ\$ test Ġ\ n Ġ Ġ[ Ġ\' test \' Ġ] Ġ\ n Ġ Ġop . add Ġ\ n ] Ġ\ n AP PLY Ġ\ n " ĊĠĠĠĠĠĠĠ ĠassertEquals ( output , Ġtmp . toString ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test () ĊĠĠĠ Ġfun Ġonly Warp Script Except Op () Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġtmp Ġ= ĠW arp Script . generate Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġallow Variable Name ( listOf (" test ")) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġapply ( load Elements Ġ= Ġ{ Ġload (" test ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġload (" test ")}, Ġlabels Elements Ġ= Ġ{ Ġempty List () Ġ}, Ġop Ġ= ĠApply (). add ()) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġoutput Ġ= Ġ"[ Ġ\ n Ġ Ġ\$ test Ġ\ n Ġ Ġ\$ test Ġ\ n Ġ Ġ[] Ġ\ n Ġ Ġop . add Ġ\ n ] Ġ\ n AP PLY Ġ\ n " ĊĠĠĠĠĠĠĠ ĠassertEquals ( output , Ġtmp . toString ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test () ĊĠĠĠ Ġfun Ġchain Apply Warp Script () Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġtmp Ġ= ĠW arp Script . generate Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġallow Variable Name ( listOf (" test ")) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġapply ( load Elements Ġ= Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġapply ( load Elements Ġ= Ġ{ Ġload (" test ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġload (" test ")}, Ġlabels Elements Ġ= Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġempty List () ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠaddTo Existing List ( p 2 =" label ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ}, Ġop Ġ= ĠApply (). add ()) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ}, Ġop Ġ= ĠApply (). mask ()) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġoutput Ġ= ĠStringBuilder () ĊĠĠĠĠĠĠĠ Ġoutput . append ("[ Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" Ġ Ġ[ Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" ĠĠĠ Ġ\$ test Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" ĠĠĠ Ġ\$ test Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" ĠĠĠ Ġ[] Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" ĠĠĠĠĠ Ġ\' label \' Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" ĠĠĠ Ġ+ ! Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" ĠĠĠ Ġop . add Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" Ġ Ġ] Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" Ġ ĠAP PLY Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" Ġ Ġ[] Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" Ġ Ġop . mask Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" ] Ġ\ n ") ĊĠĠĠĠĠĠĠ Ġoutput . append (" AP PLY Ġ\ n ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( output . toString (), Ġtmp . toString ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ( expected Ġ= ĠException :: class ) ĊĠĠĠ Ġfun Ġfail Missing Op () Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġtmp Ġ= ĠW arp Script . generate Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġallow Variable Name ( listOf (" test ")) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġapply ( load Elements Ġ= Ġ{ Ġload (" test ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġload (" test ")}, Ġlabels Elements Ġ= Ġ{ Ġempty List () Ġ}) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ }