rrees

from mock import Mock, patch_object
import random

mock = Mock()

class MyTest(unittest.TestCase):

    @patch_object(random, 'shuffle', mock)
    def test_shuffling(self):
            thing_that_should_shuffle()

rrees

 
class MyClass {
 
    void tweeter() {
        println "Tweet, tweet"
    }
}
 
def my_object = new MyClass()

rrees

class MyClass {
    Closure aMethod

    MyClass() {
        aMethod = {println "Default"}
    }
}
 
def myObject = new MyClass(aMethod: { println "Hello"})
 

rrees

class MyClass
  def my_method
    puts "Hello"
  end
end

def with_method(object, method_name, replacement_method, &block)
	old_method = object.method(method_name)
	object.class.class_eval { define_method method_name, replacement_method}
	

rrees

(map #(intern *ns* %1 (fn [] println %2))  ['north 'south] ["North" "South"])

rrees

import java.util.Random

random = Random.new

def useRandom
	puts random.nextInt(5)
end

rrees

class MyClass {
    def methodMissing (String name, Object args) {
        println("Method missing was invoked for the call ${name}")
    }
}

g = new MyClass()

g.attr()
g.attr

rrees

(fn 
	([seq] (find-inc-seq [] [] seq))
	([cur-seq cur-longest-seq a-seq]
		(cond
			(empty? a-seq) 
				(let [ret (if (> (count cur-seq) (count cur-longest-seq)) cur-seq cur-longest-seq)]
					(if (> (count ret) 1) ret []))
				
			(empty? cur-seq) (find-inc-seq (conj [] (first a-seq)) cur-longest-seq (rest a-seq))
			:default (if (> (first a-seq) (last cur-seq))

rrees

(def example-story-events [
	{
		:title "Funding cut again"
		:tags [:science]
		:author ["Chuck Newton"]
	}
	{
		:tags [:politics]
	}
	{

rrees

(ns euroclojure.logic
	(:use [clojure.core.logic]))

(defn query []
	(run 1 [q]
		(membero q [1 2 3])))

;; 1

(defn query-all []