View test_check_shrink.clj
(require '[clojure.test.check.random :as random] | |
'[clojure.test.check.generators :as gen] | |
'[clojure.test.check.rose-tree :as rt]) | |
(defn shrinks | |
"Shows how a generator will shrink" | |
([g] (shrinks g 10 10)) | |
([g size] (shrinks g size 10)) | |
([g size sample] (take sample (distinct (map rt/root | |
(tree-seq (fn [_] true) rt/children (gen/call-gen g (random/make-random) size))))))) |
View named_schema.clj
(require '[clojure.test.check.generators :as gen]) | |
(require '[clojure.string :refer [join]]) | |
(require '[schema-generators.generators :as g]) | |
(require '[schema.core :as s]) | |
(def IP String) | |
#_(def IP (s/named String "IP")) | |
View bug_fix.clj
(ns bug-demo | |
(:require [datomic.ion.cast :as cast] | |
[clojure.java.io :refer [output-stream]])) | |
(cast/initialize-redirect :stderr) ; instead of :stdout | |
(cast/event {:msg "ShouldNotCauseAStackOverflowErrorInCider"}) |
View bug_demo.clj
(ns bug-demo | |
(:require [datomic.ion.cast :as cast] | |
[clojure.java.io :refer [output-stream]])) | |
(cast/initialize-redirect :stdout) | |
(cast/event {:msg "ShouldNotCauseAStackOverflowErrorInCider"}) |
View kaocha-deps.edn
:kaocha {:extra-paths ["test"] | |
:extra-deps {lambdaisland/kaocha {:mvn/version "0.0-529"} | |
lambdaisland/kaocha-junit-xml {:mvn/version "0.0-70"} | |
lambdaisland/kaocha-cloverage {:mvn/version "0.0-32"} | |
cloverage {:mvn/version "RELEASE"} | |
} | |
:main-opts ["-m" "kaocha.runner" | |
"--plugin" "kaocha.plugin/junit-xml" | |
"--plugin" "cloverage" "--no-cov-summary" | |
"--junit-xml-file" "target/test-results/junit.xml"]} |
View vc.py
#!/usr/local/bin/python | |
import os | |
import subprocess | |
import sys | |
commands ={ ".svn" : ["svn","-u","status"], | |
".git" : ["git", "status"] } | |
def parent_dirs(f_or_d): |
View resource-in-archives.el
(defun list-to-hash (coll) | |
(let ((rtnval (make-hash-table :test 'equal))) | |
(cl-loop for r across coll | |
when r | |
do (puthash (elt r 1) nil rtnval)) | |
rtnval)) | |
(defun jdee-open-source-resource-in-archive-p (archive resource) | |
"" |
View tooling.out
Groovy Shell (2.3.7, JVM: 1.7.0_45) | |
Type ':help' or ':h' for help. | |
groovy:000> | |
malabar = { classLoader = new groovy.lang.GroovyClassLoader(); | |
Map[] grapez = [[group: 'com.software-ninja' , module:'malabar', version:'2.3.2-SNAPSHOT']]; | |
groovy.grape.Grape.grab(classLoader: classLoader, grapez); | |
classLoader.loadClass('com.software_ninja.malabar.MalabarStart').newInstance().startCL(classLoader); }; | |
malabar(); | |
groovy:000> malabar = { classLoader = new groovy.lang.GroovyClassLoader(); |
View malabar-flycheck.el
(require 'flycheck) | |
(defun malabar-flycheck-command ( checker cback ) | |
"Use flycheck to search the current buffer for compiler errrors." | |
(if (not (comint-check-proc "*groovy*")) | |
(funcall cback 'finished nil) | |
(let* ((pom (ede-find-project-root "pom.xml")) | |
(pom-path (format "%spom.xml" pom)) | |
(script (if (buffer-modified-p) (buffer-file-name) (buffer-file-name)))) |
View diwithctx.clj
(defnctx-keys foo [db] | |
(update! db "foo"))) | |
(defnctx app [_ (foo)]) | |
(apply-ctx app (init-context)) |
NewerOlder