Sean Lee sleexyz

infinite fun

sleexyz / test_isolation_demonstration.hs

Created July 7, 2017 04:53

hspec test isolation

	#!/usr/bin/env stack
	-- stack --resolver lts-8.0 --install-ghc runghc --package hspec -- -Wall -Werror

	import Test.Hspec
	import Data.IORef

	-- * test should be isolated from other tests - Pass (expected: Pass) ✔

	main :: IO ()
	main = hspec $ do

sleexyz / test_isolation_spec.rb

Created July 7, 2017 04:54

rspec test isolation

	# 1. tests should not leak to sibling describe blocks
	describe "asdf" do
	describe "inner 1" do
	it "works" do
	expect(defined? @foo).to eql nil
	end
	end
	it "(mutation)" do
	@foo = true
	end

sleexyz / flowbug.js

Created July 9, 2017 18:36

callable classes cannot be extended

	/* @flow */

	declare class Callable<A, B> {
	(A): B
	}

	class WithFoo<A, B> extends Callable<A, B> {
	foo() {
	}
	}

sleexyz / tidalAsLibrary_2017-07-17T01:05:59-04:00.hs

Created July 17, 2017 05:06

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import Data.Function ((&))
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word8, Word32)
	import Control.Monad.Writer.Lazy
	import Data.String (fromString)
	import Control.Arrow

sleexyz / tidalAsLibrary_2017-07-17T03:06:33-04:00.hs

Created July 17, 2017 07:06

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import Data.Function ((&))
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word8, Word32)
	import Control.Monad.Writer.Lazy
	import Data.String (fromString)
	import Control.Arrow

sleexyz / tidalAsLibrary_2017-07-18T00:14:44-04:00.hs

Created July 18, 2017 04:14

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word32)
	import Data.String (fromString)
	import Control.Arrow ((>>>))

	-- Runs computation once. Persists across ghci sessions.

sleexyz / tidalAsLibrary.hs

Created July 22, 2017 20:12

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word32)
	import Data.String (fromString)
	import Control.Arrow ((>>>))

	-- Runs computation once. Persists across ghci sessions.

sleexyz / tidalAsLibrary.hs

Created July 22, 2017 20:26

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word32)
	import Data.String (fromString)
	import Control.Arrow ((>>>))

	-- Runs computation once. Persists across ghci sessions.

sleexyz / tidalAsLibrary.hs

Created July 23, 2017 01:42

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word32)
	import Data.String (fromString)
	import Control.Arrow ((>>>))

	-- Runs computation once. Persists across ghci sessions.

sleexyz / tidalAsLibrary.hs

Created July 29, 2017 21:21

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE RebindableSyntax #-}
	import Prelude
	import Sound.Tidal.Context
	import qualified Foreign.Store as ForeignStore
	import Data.Word (Word32)
	import Data.String (fromString)

	-- Runs computation once. Persists across ghci sessions.
	runOnce :: Word32 -> IO a -> IO a