purescript-faker-ffi

module Main where

import Prelude
import Effect (Effect)
import Effect.Console (log)
import Faker.Gen (runGen)
import Faker.Person as Person
import Faker.Lorem as Lorem
import Faker.Helpers (listOf, oneOf, joinWith)

main :: Effect Unit
main = do
  name <- runGen Person.fullName
  log $ "Name: " <> name

  bio <- runGen $ joinWith " " [Person.firstName, Lorem.sentence]
  log $ "Bio: " <> bio

  names <- runGen $ listOf 5 Person.firstName
  log $ "Names: " <> show names

  word <- runGen $ oneOf [Lorem.word, Lorem.sentence]
  log $ "Random: " <> word

newtype Gen a = Gen (Effect a)
-- Derives Functor, Apply, Applicative, Bind, Monad

runGen :: forall a. Gen a -> Effect a

import Faker.Gen (Gen, runGen)
import Faker.Person as Person
import Faker.Number as Number
import Faker.Date as Date

data User = User String String Int String

genUser :: Gen User
genUser = do
  first <- Person.firstName
  last  <- Person.lastName
  age   <- Number.intRange { min: 18, max: 80 }
  joined <- Date.past
  pure $ User first last age joined

main :: Effect Unit
main = do
  user <- runGen genUser
  -- ...

class Fake a where
  fake :: Gen a

instance Fake UserId where
  fake = UserId <$> Number.intRange { min: 1, max: 999999 }

instance Fake Role where
  fake = Helpers.elements [Admin, User, Guest]

import Faker.Seed (runGenSeeded)

main = do
  name1 <- runGenSeeded 42 Person.firstName
  name2 <- runGenSeeded 42 Person.firstName
  -- name1 == name2

-- Default
sentence :: Gen String

-- With options
sentenceN :: Int -> Gen String
sentenceRange :: RangeOpts -> Gen String

-- Option record
type RangeOpts = { min :: Int, max :: Int }

import Faker.Internet as Internet

-- Default email
email <- runGen Internet.email

-- Customized
email <- runGen $ Internet.emailOpts
  { firstName: "Ada"
  , lastName: "Lovelace"
  , provider: "example.com"
  , allowSpecialCharacters: false
  }

import Faker.Finance as Finance
import Faker.Airline as Airline
import Faker.Science as Science

-- { name :: String, code :: String, symbol :: String, numericCode :: String }
cur <- runGen Finance.currency

-- { name :: String, iataCode :: String }
airport <- runGen Airline.airport

-- { symbol :: String, name :: String, atomicNumber :: Int }
element <- runGen Science.chemicalElement