Adam Wespiser adamwespiser

Software Design Showcase Projects in Haskell

(WIP)

Automatic White-Box Testing with Free Monads | Alexander Granin
- Description: Article and showcase project about an approach to whitebox testing. Describes the idea of recordable and replayable business scenarios based on the Free Monad approach.
- Design Approach: [Free Monads]
- Technologies: [free, aeson]
- Teaches for: How to make a Free monad based business logic recordable and replayable. How to use the recordings for automatic whitebox testing. How to configure this system to do integration testing.

Taken from Deedle in 10 minutes, adapted to Analyze

import Analyze
import Analyze.Frame as Frame
import Analyze.Series as Series
import qualified Date.Time.Calendar  -- from the 'time' package

	alias kc='kubectl'
	alias kclf='kubectl logs --tail=200 -f'
	alias kcgs='kubectl get service -o wide'
	alias kcgd='kubectl get deployment -o wide'
	alias kcgp='kubectl get pod -o wide'
	alias kcgn='kubectl get node -o wide'
	alias kcdp='kubectl describe pod'
	alias kcds='kubectl describe service'
	alias kcdd='kubectl describe deployment'
	alias kcdf='kubectl delete -f'

	{-# LANGUAGE DefaultSignatures #-}
	{-# LANGUAGE DeriveGeneric #-}
	{-# LANGUAGE FlexibleContexts #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE MultiParamTypeClasses #-}
	{-# LANGUAGE TypeOperators #-}
	module GenericIso where

	import Data.Coerce
	import GHC.Generics

	begin
	require 'bundler/inline'
	rescue LoadError => e
	$stderr.puts 'Bundler version 1.10 or later is required. Please update your Bundler'
	raise e
	end

	gemfile(true) do
	source 'https://rubygems.org'
	gem 'rails', github: 'rails/rails'