Commit 72d7eea

piq9117Gitea

piq9117

authored and

Gitea

committed

Generate Test (#8)

- generate test directory - generate test/Main.purs

1 parent 204452f commit 72d7eeaCopy full SHA for 72d7eea

File tree

+26

-0

lines changed

+26

-0

lines changed

Lines changed: 12 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -30,6 +30,8 @@ generateProj mLoc = do`
`30`	`30`	`writeTitleComponentFile mLoc`
`31`	`31`	`writeSpagoDhallFile mLoc`
`32`	`32`	`writePackagesDhallFile mLoc`
	`33`	`+ writeTestDir mLoc`
	`34`	`+ writeTestMainFile mLoc`
`33`	`35`
`34`	`36`	`writeSrcDir :: MonadIO m => Maybe Text -> m ()`
`35`	`37`	`writeSrcDir mLoc = do`
`@@ -75,3 +77,13 @@ writePackagesDhallFile mLoc = do`
`75`	`77`	`liftIO $`
`76`	`78`	`TP.writeTextFile ( Turtle.fromText $ mkPathName mLoc "packages.dhall" ) packagesDhallFile`
`77`	`79`	`mkMessage "Generating packages.dhall..."`
	`80`	`+`
	`81`	`+writeTestDir :: MonadIO m => Maybe Text -> m ()`
	`82`	`+writeTestDir mLoc = do`
	`83`	`+ liftIO $ TP.mkdir ( Turtle.fromText $ mkPathName mLoc "test" )`
	`84`	`+ mkMessage "Generating test..."`
	`85`	`+`
	`86`	`+writeTestMainFile :: MonadIO m => Maybe Text -> m ()`
	`87`	`+writeTestMainFile mLoc = do`
	`88`	`+ liftIO $ TP.writeTextFile ( Turtle.fromText $ mkPathName mLoc "test/Main.purs" ) testMainFile`
	`89`	`+ mkMessage "Generating test/Main.purs..."`

Lines changed: 4 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -5,6 +5,7 @@ module UmuReactBasic.Templates`
`5`	`5`	`, titleComponentFile`
`6`	`6`	`, spagoDhallFile`
`7`	`7`	`, packagesDhallFile`
	`8`	`+ , testMainFile`
`8`	`9`	`) where`
`9`	`10`
`10`	`11`	`import Import`
`@@ -24,3 +25,6 @@ spagoDhallFile = $(embedFileUtf8 "templates/spago.dhall")`
`24`	`25`
`25`	`26`	`packagesDhallFile :: Text`
`26`	`27`	`packagesDhallFile = $(embedFileUtf8 "templates/packages.dhall")`
	`28`	`+`
	`29`	`+testMainFile :: Text`
	`30`	`+testMainFile = $(embedFileUtf8 "templates/TestMain.purs")`

Lines changed: 10 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,10 @@`
	`1`	`+module Test.Main where`
	`2`	`+`
	`3`	`+import Prelude`
	`4`	`+-- Effect`
	`5`	`+import Effect (Effect)`
	`6`	`+import Effect.Class.Console (log)`
	`7`	`+`
	`8`	`+main :: Effect Unit`
	`9`	`+main = do`
	`10`	`+ log "You should add some tests."`

Comments

(0)