// ĠCopyright Ġ( c ) Ġ 2 0 1 7 , ĠHol ger ĠBrand l , ĠE k ater ina ĠT uz ova Ċ /* Ċ Ġ* ĠCopyright Ġ 2 0 1 1 ĠHol ger ĠBrand l Ċ Ġ* Ċ Ġ* ĠThis Ġcode Ġis Ġlicensed Ġunder ĠBSD . ĠFor Ġdetails Ġsee Ċ Ġ* Ġhttp :// www . opensource . org / licenses / bsd - license . php Ċ Ġ*/ Ċ Ċ package Ġorg . jetbrains . r . actions Ċ Ċ import Ġcom . intellij . openapi . application . run Write Action Ċ import Ġcom . intellij . openapi . file Types . File Types Ċ import Ġcom . intellij . psi . Psi Directory Ċ import Ġorg . jetbrains . r . R Use ful TestCase Ċ import Ġkotlin . reflect . K Class Ċ import Ġkotlin . reflect . full . create Instance Ċ Ċ class ĠNew Script Test Ġ: ĠR Use ful TestCase () Ġ{ ĊĊĠ Ġfun Ġtest R Script Create () Ġ{ ĊĠĠĠ Ġdo Test ( New R Script Action :: class , Ġ" R ", ĠNew R Script Action . NEW _ R _ SCRIPT _ TEMPLATE _ NAME ) ĊĠ Ġ} ĊĊĠ Ġfun Ġtest R Markdown Create () Ġ{ ĊĠĠĠ Ġadd Libraries () ĊĠĠĠ Ġdo Test ( New R Markdown Action :: class , Ġ" r md ", ĠNew R Markdown Action . NOTE BOOK _ TEMPLATE _ NAME ) ĊĠĠĠ Ġdo Test ( New R Markdown Action :: class , Ġ" r md ", ĠNew R Markdown Action . DOCUMENT _ TEMPLATE _ NAME ) ĊĠĠĠ Ġdo Test ( New R Markdown Action :: class , Ġ" r md ", ĠNew R Markdown Action . PRESENT ATION _ TEMPLATE _ NAME ) ĊĠĠĠ Ġdo Test ( New R Markdown Action :: class , Ġ" r md ", ĠNew R Markdown Action . SH IN Y _ TEMPLATE _ NAME ) ĊĠ Ġ} ĊĊĠ Ġprivate Ġfun Ġfind Src Dir (): ĠPsi Directory Ġ{ ĊĠĠĠ Ġreturn Ġmy Fixture . configure By Text ( File Types . PLAIN _ TEXT , Ġ" dummy Ġcontent "). containing Directory ĊĠ Ġ} ĊĊĠ Ġprivate Ġfun Ġ< T Ġ: ĠTest able Create File From Template Action > Ġdo Test ( file Creator Class : ĠK Class < T >, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġextension : ĠString , ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġtemplate Name : ĠString ) Ġ{ ĊĠĠĠ Ġval ĠfileName Ġ= Ġ"$ template Name . R md " ĊĠĠĠ Ġval Ġnew File Ġ= Ġrun Write Action Ġ{ ĊĠĠĠĠĠ Ġfile Creator Class . create Instance (). create Test File ( fileName , Ġtemplate Name , Ġfind Src Dir ()) ĊĠĠĠ Ġ} ĊĠĠĠ ĠassertNotNull ( new File ) ĊĠĠĠ ĠassertEquals ("$ fileName .$ extension ", Ġnew File !!. name ) ĊĠ Ġ} Ċ }