reiddraper’s gists

reiddraper / foo.bash

Created April 29, 2013 13:51

	git tag --contains 6f144b9208b8d5dc12cd75a2e5f9fcd1574ce670
	1.2.0
	1.3.0
	1.3.3
	1.3.3slf
	1.4.0.1
	1.4.0.2
	Java-1.2.1-release
	Python-1.2.1-release

reiddraper / convenience.clj

Last active December 17, 2015 23:09

nested properties in simple-check

	(defn gen-creator
	[{:arbitrary arbitrary-fun :shrink shrink-fun}]
	(reify Generator
	(arbitrary [this]
	(arbitrary-fun this)
	(shrink [this value]
	(shrink-fun this value)))

reiddraper / test.hs

Created June 11, 2013 20:41

	{-# LANGUAGE TemplateHaskell #-}

	module Main
	where

	import System.Environment (getArgs)
	import Data.ByteString.Char8 (pack)
	import Control.Distributed.Process (say, Process(..), spawn, RemoteTable(..))
	import Control.Distributed.Process.Node (newLocalNode, initRemoteTable, runProcess, localNodeId, LocalNode(..))
	import Control.Distributed.Process.Internal.Types (NodeId(..))

reiddraper / test.hs

Created June 21, 2013 01:46

	{-# LANGUAGE TemplateHaskell #-}

	module Main
	where

	import System.Environment (getArgs)
	import Data.ByteString.Char8 (pack)
	import Control.Distributed.Process (say, Process, spawnLink, RemoteTable)
	import Control.Distributed.Process.Node (newLocalNode, initRemoteTable, runProcess, localNodeId, LocalNode(..))
	import Control.Distributed.Process.Internal.Types (NodeId(..))

reiddraper / check.clj

Created July 30, 2013 23:03

	(require '[simple-check.core :as sc])
	(require '[simple-check.generators :as gen])
	(require '[simple-check.properties :as prop])

	(use 'byte-transforms)

	(def compression-type (gen/elements ["lz4" "snappy" "gzip" "zlib"]))

	;; a simple round-trip compression property...
	;; for all byte-arrays `b`, compressiong with

reiddraper / default_props.json

Created August 19, 2013 20:48

reiddraper / sort-idempotent.clj

Created October 23, 2013 00:32

Uses simple-check to test that sorting is idempotent.

	(require '[simple-check.core :as sc])
	(require '[simple-check.generators :as gen])
	(require '[simple-check.properties :as prop])

	(def sort-idempotent-prop
	(prop/for-all [v (gen/vector gen/int)]
	(= (sort v) (sort (sort v)))))

	(sc/quick-check 100 sort-idempotent-prop)
	;; => {:result true, :num-tests 100, :seed 1382488326530}

reiddraper / gist:7775233

Created December 3, 2013 18:51

	12:50:24 <{mochiweb_acceptor,init,3}> {riak_client,new,2}

	12:50:24 <{mochiweb_acceptor,init,3}> {riak_client,instance,2}

	12:50:24 <{mochiweb_acceptor,init,3}> {riak_client,get,4}

	12:50:24 <{mochiweb_acceptor,init,3}> {riak_client,mk_reqid,1}

	12:50:24 <{mochiweb_acceptor,init,3}> {riak_client,recv_timeout,2}

reiddraper / foo.sh

Created December 4, 2013 23:47

	dd if=/dev/zero of=/tmp/output bs=25k count=1k
	for i in {1..10}; do time curl -X PUT localhost:8098/riak/foo/a --data-binary @/tmp/output > foo; done

reiddraper / gist:7914186

Created December 11, 2013 16:54

Reid Draper reiddraper