package Ġorg . jetbrains . r . injection s Ċ Ċ import Ġcom . intellij . lang . Language Ċ import Ġorg . jetbrains . r . RL anguage Ċ import Ġorg . jetbrains . r . R Use ful TestCase Ċ import Ġorg . junit . Assert . assertNot Equals Ċ Ċ class ĠR Injection s Test Ġ: ĠR Use ful TestCase () Ġ{ ĊĠ Ġfun Ġtest Injection In Sh iny Markdown Call () Ġ{ ĊĠĠĠ Ġif Ġ( Language . find Language ByID (" Markdown ") Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠ Ġ// Language ĠMarkdown Ġnot Ġavailable ĊĠĠĠĠĠ Ġreturn ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġdo Test ( ĊĠĠĠĠĠ Ġ""" ĊĠĠĠĠĠĠĠ Ġmarkdown (" ĊĠĠĠĠĠĠĠ Ġ# ĠMark d < caret > own ĠExample ĊĠĠĠĠĠĠĠ ĠThis Ġis Ġa Ġmarkdown Ġparagraph ĊĠĠĠĠĠĠĠ Ġ") ĊĠĠĠĠĠ Ġ""" . trim Indent () ĊĠĠĠ Ġ) ĊĠ Ġ} ĊĊĠ Ġfun Ġtest Injection In Named Parameter Of Sh iny Markdown Call () Ġ{ ĊĠĠĠ Ġif Ġ( Language . find Language ByID (" Markdown ") Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠ Ġ// Language ĠMarkdown Ġnot Ġavailable ĊĠĠĠĠĠ Ġreturn ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġdo Test ( ĊĠĠĠĠĠ Ġ""" ĊĠĠĠĠĠĠĠ Ġmarkdown ( mds Ġ= Ġ" ĊĠĠĠĠĠĠĠ Ġ# ĠMark d < caret > own ĠExample ĊĠĠĠĠĠĠĠ ĠThis Ġis Ġa Ġmarkdown Ġparagraph ĊĠĠĠĠĠĠĠ Ġ") ĊĠĠĠĠĠ Ġ""" . trim Indent () ĊĠĠĠ Ġ) ĊĠ Ġ} ĊĊĠ Ġfun Ġtest Injection In Sh iny Html Template Call () Ġ{ ĊĠĠĠ Ġif Ġ( Language . find Language ByID (" HTML ") Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠ Ġ// Language ĠHTML Ġnot Ġavailable ĊĠĠĠĠĠ Ġreturn ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġdo Test (" html Template ( text _ Ġ= Ġ\" < div Ġst < caret > yle =' color : Ġred '> Hello </ div >\ ") ") ĊĠ Ġ} ĊĊĠ Ġfun Ġtest Injection In Sh iny Insert UIC all () Ġ{ ĊĠĠĠ Ġif Ġ( Language . find Language ByID (" CSS ") Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠ Ġ// Language ĠCSS Ġnot Ġavailable ĊĠĠĠĠĠ Ġreturn ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġdo Test (" insert UI ( selector Ġ= Ġ\" # my _< caret > id \") ") ĊĠ Ġ} ĊĊĠ Ġfun Ġtest Injection In Sh iny Remove UIC all () Ġ{ ĊĠĠĠ Ġif Ġ( Language . find Language ByID (" CSS ") Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠ Ġ// Language ĠCSS Ġnot Ġavailable ĊĠĠĠĠĠ Ġreturn ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġdo Test (" remove UI ( selector Ġ= Ġ\" # my _< caret > id \") ") ĊĠ Ġ} ĊĊĠ Ġfun Ġtest Injection In Sh iny Tag Members () Ġ{ ĊĠĠĠ Ġif Ġ( Language . find Language ByID (" CSS ") Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠ Ġ// Language ĠCSS Ġnot Ġavailable ĊĠĠĠĠĠ Ġreturn ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġdo Test (" tags ${ "$ "} input ( style =\" co < caret > lor : red \") ") ĊĠ Ġ} ĊĊĠ Ġfun Ġtest Injection In Sh iny Tags () Ġ{ ĊĠĠĠ Ġif Ġ( Language . find Language ByID (" CSS ") Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠ Ġ// Language ĠCSS Ġnot Ġavailable ĊĠĠĠĠĠ Ġreturn ĊĠĠĠ Ġ} ĊĠĠĠ Ġdo Test (" h 1 ( style =\" co < caret > lor : red \") ") ĊĠ Ġ} ĊĊĠ Ġprivate Ġfun Ġdo Test ( code : ĠString ) Ġ{ ĊĠĠĠ Ġadd Libraries () ĊĠĠĠ Ġmy Fixture . configure By Text (" test . r ", Ġcode ) ĊĠĠĠ Ġval Ġelement Ġ= Ġmy Fixture . file . findElement At ( my Fixture . caret Offset ) ĊĠĠĠ Ġassert Not Equals ( element !!. language , ĠR Language . INSTANCE ) ĊĠ Ġ} Ċ }