Jay Fields jaycfields

jaycfields / server.clj

Created February 23, 2013 20:28

	;; a simple server that's generating a new int that's < 100, every millisecond

	(ns synchro.core
	(:import [org.jetlang.fibers ThreadFiber]))

	(defonce server-list (atom []))

	(defonce appender (atom nil))
	(defonce fiber (doto (ThreadFiber.) .start))

jaycfields / gist:4691577

Created February 1, 2013 14:22

	Programming career distilled.

	- holy shit programming in language X isn't that hard.
	- okay, I have a hammer, everything is a nail.
	- holy shit there are other tools that make working even faster.
	- I can solve this problem using 3 different tools I know well.
	- I'm bored by learning other tools, I solve everything using my favorite tool.
	- become a manager.

jaycfields / ckvs.clj

Created January 11, 2013 22:53

	(expect (interaction (spit String #"some da" keyword? (contains-kvs :a :b :c :d)))
	(spit "/tmp/hello-world" "some data" :append {:a :b :c :d :e :f}))

jaycfields / tn.clj

Created January 11, 2013 22:46

	(defn true-or-nil? [x]
	(or (true? x) (nil? x)))

	;; this test passes
	(expect (interaction (spit #"/tmp/" String :append true-or-nil?))
	(do
	(spit "/tmp/somewhere-else" "nil")
	(spit "/tmp/hello-world" "some data" :append true)))

	;; so does this test

jaycfields / regex_string.clj

Created January 11, 2013 22:39

	(expect (interaction (spit #"/tmp/" String :append true))
	(do
	(spit "/tmp/somewhere-else" "nil")
	(spit "/tmp/hello-world" "some data" :append true)))

jaycfields / passing_with_regex.clj

Created January 11, 2013 22:34

	(expect (interaction (spit #"/tmp/" "some data" :append true))
	(do
	(spit "/tmp/somewhere-else" "nil")
	(spit "/tmp/hello-world" "some data" :append true)))

jaycfields / interaction.clj

Last active December 10, 2015 20:18

	(defn print-it [it]
	(println it))

	;;; the test needs to be in the form (expect expected actual),
	;;; and the line we're testing is (println it)
	;;; so you could envision a test similar to the one below

	(expect (interaction (println 5))
	(print-it 5))

jaycfields / interaction.clj

Last active December 10, 2015 20:18

	(defn print-it [it]
	(println it))

	;;; the test needs to be in the form (expect expected actual),
	;;; and the line we're testing is (println it)
	;;; so you could envision a test similar to the one below

	(expect (println 5)
	(print-it 5))

jaycfields / given_nicely.clj

Created November 13, 2012 02:08

	(given [x do-work] (expect x (let [i (atom 0)]
	do-work))
	0 @i

	1 (do (swap! i inc)
	@i)

	2 (do (swap! i inc)
	(swap! i inc)
	@i))

jaycfields / given_abused.clj

Created November 13, 2012 02:02