adam-e-trepanier

Spork.each_run do
  # This code will be run each time you run your specs.
  AppName::Application.reload_routes!
  Factory.factories.clear
  Dir.glob("#{::Rails.root}/spec/factories/*.rb").each { |file| load "#{file}" }
end

adam-e-trepanier

module Kernel
  # Returns the object's singleton class.
  def singleton_class
    class << self
      self
    end
  end unless respond_to?(:singleton_class) # exists in 1.9.2

  # class_eval on an object acts like singleton_class.class_eval.
  def class_eval(*args, &block)

adam-e-trepanier

# controller code for /foo/1

before_filter do |controller|
  controller.some_verification(params[:id])
end

# controller code for /foo/1/bar/1

before_filter do |controller|
  controller.some_verification(params[:foo_id])

adam-e-trepanier

def set_json_headers
  request.env['HTTP_ACCEPT'] = 'application/json, text/javascript, *'
  request.env['CONTENT_TYPE'] = 'application/json'
end

adam-e-trepanier

require 'spec_helper'

feature "Credential idempotency" do
  # He shouldn't be describing it anyway, but you
  # could write the nice little stuff here
  
  scenario "Editing authorization information of a credential increments the version" do
    prev_version = obj.credential_version
    
    obj.modify_encrypted_data # A real Domain model or moved to a page object

adam-e-trepanier

-module(math_functions).
-export([test/0, even/1, odd/1, filter/2, split/1, split2/1]).

test() ->
  true = even(10),
  false = even(11),
  true = odd(11),
  false = odd(10),
  tests_passed.

adam-e-trepanier

(def data
  {:name "Adam Trepanier"
   :date-of-birth "1981-04-30"
   :gender "male"
   :patient-key "test-adam"
   :status "active"
   :phone "555-555-5555"
   :shipping-address {:street "123 Foo Bar Way"
                      :city "Somwhere"
                      :state "CA"

adam-e-trepanier

;; Destructor a map with another map -> patient has a shipping address
;; We use the :keys directive to to assign the shipping address info inside of data
;; Notice we also use the :keys directive to also get the name and date of birth
(let [{:keys [name date-of-birth orders]
       {:keys [street city state postal-code]} :shipping-address
       :as patient} data]
  (println name \- date-of-birth)
  (println street ", " city ", " state "  " postal-code)
  (println orders)
  (println "------- Full Patient Deatils -----")

adam-e-trepanier

;; In Clojure 1.6 we can now prefix the name of a key if its the same
;; A litte more context with the prefix, but still very clean
(let [{:keys [name date-of-birth orders
              shipping-address/street  shipping-address/city
              shipping-address/state shipping-address/postal-code]
       :as patient} data]
  (println name \- date-of-birth)
  (println street ", " city ", " state "  " postal-code)
  (println orders)
  (println "------- Full Patient Deatils -----")

adam-e-trepanier

;; In Clojure 1.6 we can now also auto resolve keyword forms in the :keys directive
;; I think you lose some context with auto-resolve, but its the shortest code
(let [{:keys [name date-of-birth orders
              ::street  ::city ::state ::postal-code]
       :as patient} data]
  (println name \- date-of-birth)
  (println street ", " city ", " state "  " postal-code)
  (println orders)
  (println "------- Full Patient Deatils -----")
  (println patient))