Packages

purerl_test

0.1.10
0.1.10 0.1.9 0.1.8 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

A testing library for PureScript (`purerl`) projects.

HexDocs

Current section

Files

Jump to
Readme
10 Versions
2 Dependencies
Dependants
Files
Activity
purerl_test src PurerlTest ModuleUtilities.purs
Raw

src/PurerlTest/ModuleUtilities.purs 

module PurerlTest.ModuleUtilities

  ( findPureScriptSpecModules

  , pureScriptModuleToErlangModule

  ) where



import Prelude



import Data.Maybe (Maybe(..))

import Data.Maybe as Maybe

import Data.Newtype (wrap)

import Data.String (CodePoint, Pattern)

import Data.String as String

import Effect (Effect)

import Erl.Atom (Atom)

import Erl.Atom as Atom

import Erl.Data.List (List)



findPureScriptSpecModules :: Effect (List String)

findPureScriptSpecModules = do

  "test/**/*Spec.purs"

    # wildcard

    # map (map (pureScriptFileToPureScriptModule { prefix: Just "Test." }))



pureScriptModuleToErlangModule :: String -> Atom

pureScriptModuleToErlangModule module' = do

  module'

    # stripPrefixIfPresent (wrap "Elixir.")

    # String.split (wrap ".")

    # map lowerCaseFirstLetter

    # String.joinWith "_"

    # (_ <> "@ps")

    # Atom.atom



pureScriptFileToPureScriptModule :: { prefix :: Maybe String } -> String -> String

pureScriptFileToPureScriptModule options path = do

  let prefix = Maybe.fromMaybe "" options.prefix



  path

    # stripPrefixIfPresent (wrap "src/")

    # stripPrefixIfPresent (wrap "test/")

    # stripSuffixIfPresent (wrap ".purs")

    # String.split (wrap "/")

    # String.joinWith "."

    # (prefix <> _)



stripPrefixIfPresent :: Pattern -> String -> String

stripPrefixIfPresent prefix s = do

  s # String.stripPrefix prefix # Maybe.fromMaybe s



stripSuffixIfPresent :: Pattern -> String -> String

stripSuffixIfPresent suffix s = do

  s # String.stripSuffix suffix # Maybe.fromMaybe s



lowerCaseFirstLetter :: String -> String

lowerCaseFirstLetter s = modifyFirstLetter lowerCaseLetter s



modifyFirstLetter :: (CodePoint -> CodePoint) -> String -> String

modifyFirstLetter f s =

  case String.uncons s of

    Just { head, tail } -> head # f # String.singleton # (_ <> tail)

    Nothing -> s



foreign import lowerCaseLetter :: CodePoint -> CodePoint

foreign import upperCaseLetter :: CodePoint -> CodePoint

foreign import wildcard :: String -> Effect (List String)