mikeg-vanity 1.3.0

data/test/playground_test.rb

@@ -0,0 +1,10 @@
+require "test/test_helper"
+
+class PlaygroundTest < Test::Unit::TestCase
+
+  def test_has_one_global_instance
+    assert instance = Vanity.playground
+    assert_equal instance, Vanity.playground
+  end
+
+end

data/test/rails_test.rb

@@ -0,0 +1,104 @@
+require "test/test_helper"
+
+class UseVanityController < ActionController::Base
+  attr_accessor :current_user
+
+  def index
+    render :text=>ab_test(:pie_or_cake)
+  end
+end
+
+# Pages accessible to everyone, e.g. sign in, community search.
+class UseVanityTest < ActionController::TestCase
+  tests UseVanityController
+
+  def setup
+    super
+    metric :sugar_high
+    new_ab_test :pie_or_cake do
+      metrics :sugar_high
+    end
+    UseVanityController.class_eval do
+      use_vanity :current_user
+    end
+  end
+
+  def test_vanity_cookie_is_persistent
+    get :index
+    assert cookie = @response["Set-Cookie"].find { |c| c[/^vanity_id=/] }
+    assert expires = cookie[/vanity_id=[a-f0-9]{32}; path=\/; expires=(.*)(;|$)/, 1]
+    assert_in_delta Time.parse(expires), Time.now + 1.month, 1.minute
+  end
+
+  def test_vanity_cookie_default_id
+    get :index
+    assert cookies['vanity_id'] =~ /^[a-f0-9]{32}$/
+  end
+
+  def test_vanity_cookie_retains_id
+    @request.cookies['vanity_id'] = "from_last_time"
+    get :index
+    assert_equal "from_last_time", cookies['vanity_id']
+  end
+
+  def test_vanity_identity_set_from_cookie
+    @request.cookies['vanity_id'] = "from_last_time"
+    get :index
+    assert_equal "from_last_time", @controller.send(:vanity_identity)
+  end
+
+  def test_vanity_identity_set_from_user
+    @controller.current_user = mock("user", :id=>"user_id")
+    get :index
+    assert_equal "user_id", @controller.send(:vanity_identity)
+  end
+
+  def test_vanity_identity_with_no_user_model
+    UseVanityController.class_eval do
+      use_vanity nil
+    end
+    @controller.current_user = Object.new
+    get :index
+    assert cookies['vanity_id'] =~ /^[a-f0-9]{32}$/
+  end
+
+  def test_vanity_identity_set_with_block
+    UseVanityController.class_eval do
+      attr_accessor :project_id
+      use_vanity { |controller| controller.project_id }
+    end
+    @controller.project_id = "576"
+    get :index
+    assert_equal "576", @controller.send(:vanity_identity)
+  end
+
+  # query parameter filter
+
+  def test_redirects_and_loses_vanity_query_parameter
+    get :index, :foo=>"bar", :_vanity=>"567"
+    assert_redirected_to "/use_vanity?foo=bar"
+  end
+
+  def test_sets_choices_from_vanity_query_parameter
+    first = experiment(:pie_or_cake).alternatives.first
+    # experiment(:pie_or_cake).fingerprint(first)
+    10.times do
+      @controller = nil ; setup_controller_request_and_response
+      get :index, :_vanity=>"aae9ff8081"
+      assert !experiment(:pie_or_cake).choose
+      assert experiment(:pie_or_cake).showing?(first)
+    end
+  end
+
+  def test_does_nothing_with_vanity_query_parameter_for_posts
+    first = experiment(:pie_or_cake).alternatives.first
+    post :index, :foo=>"bar", :_vanity=>"567"
+    assert_response :success
+    assert !experiment(:pie_or_cake).showing?(first)
+  end
+
+  def teardown
+    super
+    UseVanityController.send(:filter_chain).clear
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,135 @@
+$LOAD_PATH.delete_if { |path| path[/gems\/vanity-\d/] }
+$LOAD_PATH.unshift File.expand_path("../lib", File.dirname(__FILE__))
+RAILS_ROOT = File.expand_path("..")
+require "test/unit"
+require "mocha"
+require "action_controller"
+require "action_controller/test_case"
+require "active_record"
+require "initializer"
+Rails.configuration = Rails::Configuration.new
+require "lib/vanity"
+require "timecop"
+
+
+if $VERBOSE
+  $logger = Logger.new(STDOUT)
+  $logger.level = Logger::DEBUG
+else
+  $logger = Logger.new("/dev/null")
+end
+
+class Test::Unit::TestCase
+
+  def setup
+    FileUtils.mkpath "tmp/experiments/metrics"
+    new_playground
+  end
+
+  # Call this on teardown. It wipes put the playground and any state held in it
+  # (mostly experiments), resets vanity ID, and clears Redis of all experiments.
+  def nuke_playground
+    new_playground
+    Vanity.playground.redis.flushdb
+  end
+
+  # Call this if you need a new playground, e.g. to re-define the same experiment,
+  # or reload an experiment (saved by the previous playground).
+  def new_playground
+    Vanity.playground = Vanity::Playground.new(:logger=>$logger, :load_path=>"tmp/experiments", :db=>15)
+    Vanity.playground.mock! unless ENV["REDIS"]
+  end
+
+  # Defines the specified metrics (one or more names).  Returns metric, or array
+  # of metric (if more than one argument).
+  def metric(*names)
+    metrics = names.map do |name|
+      id = name.to_s.downcase.gsub(/\W+/, '_').to_sym
+      Vanity.playground.metrics[id] ||= Vanity::Metric.new(Vanity.playground, name)
+    end
+    names.size == 1 ? metrics.first : metrics
+  end
+
+  # Defines an A/B experiment.
+  def new_ab_test(name, &block)
+    id = name.to_s.downcase.gsub(/\W/, "_").to_sym
+    experiment = Vanity::Experiment::AbTest.new(Vanity.playground, id, name)
+    experiment.instance_eval &block
+    experiment.save
+    Vanity.playground.experiments[id] = experiment
+  end
+
+  # Returns named experiment.
+  def experiment(name)
+    Vanity.playground.experiment(name)
+  end
+  
+  def teardown
+    Vanity.context = nil
+    FileUtils.rm_rf "tmp"
+    Vanity.playground.redis.flushdb
+  end
+
+end
+
+ActionController::Routing::Routes.draw do |map|
+  map.connect ':controller/:action/:id'
+end
+
+
+ActiveRecord::Base.logger = $logger
+ActiveRecord::Base.establish_connection :adapter=>"sqlite3", :database=>File.expand_path("database.sqlite")
+# Call this to define aggregate functions not available in SQlite.
+class ActiveRecord::Base
+  def self.aggregates
+    connection.raw_connection.create_aggregate("minimum", 1) do
+      step do |func, value|
+        func[:minimum] = value.to_i unless func[:minimum] && func[:minimum].to_i < value.to_i
+      end
+      finalize { |func| func.result = func[:minimum] }
+    end
+
+    connection.raw_connection.create_aggregate("maximum", 1) do
+      step do |func, value|
+        func[:maximum] = value.to_i unless func[:maximum] && func[:maximum].to_i > value.to_i
+      end
+      finalize { |func| func.result = func[:maximum] }
+    end
+
+    connection.raw_connection.create_aggregate("average", 1) do
+      step do |func, value|
+        func[:total] = func[:total].to_i + value.to_i
+        func[:count] = func[:count].to_i + 1
+      end
+      finalize { |func| func.result = func[:total].to_i / func[:count].to_i }
+    end
+  end
+end
+
+
+class Array
+  # Not in Ruby 1.8.6.
+  unless method_defined?(:shuffle)
+    def shuffle
+      copy = clone
+      Array.new(size) { copy.delete_at(Kernel.rand(copy.size)) } 
+    end
+  end
+end
+
+
+# Source: http://gist.github.com/25455
+def context(*args, &block)
+  return super unless (name = args.first) && block
+  parent = Class === self ? self : (defined?(ActiveSupport::TestCase) ? ActiveSupport::TestCase : Test::Unit::TestCase)
+  klass = Class.new(parent) do
+    def self.test(name, &block) 
+      define_method("test_#{name.gsub(/\W/,'_')}", &block) if block
+    end
+    def self.xtest(*args) end
+    def self.setup(&block) define_method(:setup) { super() ; block.call } end
+    def self.teardown(&block) define_method(:teardown) { super() ; block.call } end
+  end
+  parent.const_set name.split(/\W+/).map(&:capitalize).join, klass
+  klass.class_eval &block
+end

data/vanity.gemspec

@@ -0,0 +1,18 @@
+Gem::Specification.new do |spec|
+  spec.name           = "mikeg-vanity"
+  spec.version        = "1.3.0"
+  spec.author         = "Assaf Arkin"
+  spec.email          = "assaf@labnotes.org"
+  spec.homepage       = "http://vanity.labnotes.org"
+  spec.summary        = "Experience Driven Development framework for Rails"
+  spec.description    = "Mirror, mirror on the wall ..."
+  spec.post_install_message = "To get started run vanity --help"
+
+  spec.files          = Dir["{bin,lib,vendor,test}/**/*", "CHANGELOG", "MIT-LICENSE", "README.rdoc", "vanity.gemspec"]
+  spec.executable     = "vanity"
+
+  spec.has_rdoc         = true
+  spec.extra_rdoc_files = "README.rdoc", "CHANGELOG"
+  spec.rdoc_options     = "--title", "Vanity #{spec.version}", "--main", "README.rdoc",
+                          "--webcvs", "http://github.com/assaf/#{spec.name}"
+end

data/vendor/redis-rb/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Ezra Zygmuntowicz
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/vendor/redis-rb/README.markdown

@@ -0,0 +1,36 @@
+# redis-rb
+
+A ruby client library for the redis key value storage system.
+
+## Information about redis
+
+Redis is a key value store with some interesting features:
+1. It's fast.
+2. Keys are strings but values can have types of "NONE", "STRING", "LIST",  or "SET".  List's can be atomically push'd, pop'd, lpush'd, lpop'd and indexed.  This allows you to store things like lists of comments under one key while retaining the ability to append comments without reading and putting back the whole list.
+
+See [redis on code.google.com](http://code.google.com/p/redis/wiki/README) for more information.
+
+See the build on [RunCodeRun](http://runcoderun.com/rsanheim/redis-rb)
+
+## Dependencies
+
+1. rspec - 
+		sudo gem install rspec
+
+2. redis - 
+
+		rake redis:install
+
+2. dtach - 
+
+		rake dtach:install
+
+3. git - git is the new black.
+
+## Setup
+
+Use the tasks mentioned above (in Dependencies) to get your machine setup.
+
+## Examples
+
+Check the examples/ directory.  *Note* you need to have redis-server running first.

data/vendor/redis-rb/Rakefile

@@ -0,0 +1,62 @@
+require 'rubygems'
+require 'rake/gempackagetask'
+require 'rubygems/specification'
+require 'date'
+require 'spec/rake/spectask'
+require 'tasks/redis.tasks'
+
+
+GEM = 'redis'
+GEM_NAME = 'redis'
+GEM_VERSION = '0.1'
+AUTHORS = ['Ezra Zygmuntowicz', 'Taylor Weibley', 'Matthew Clark', 'Brian McKinney', 'Salvatore Sanfilippo', 'Luca Guidi']
+EMAIL = "ez@engineyard.com"
+HOMEPAGE = "http://github.com/ezmobius/redis-rb"
+SUMMARY = "Ruby client library for redis key value storage server"
+
+spec = Gem::Specification.new do |s|
+  s.name = GEM
+  s.version = GEM_VERSION
+  s.platform = Gem::Platform::RUBY
+  s.has_rdoc = true
+  s.extra_rdoc_files = ["LICENSE"]
+  s.summary = SUMMARY
+  s.description = s.summary
+  s.authors = AUTHORS
+  s.email = EMAIL
+  s.homepage = HOMEPAGE
+  s.add_dependency "rspec"
+  s.require_path = 'lib'
+  s.autorequire = GEM
+  s.files = %w(LICENSE README.markdown Rakefile) + Dir.glob("{lib,tasks,spec}/**/*")
+end
+
+task :default => :spec
+
+desc "Run specs"
+Spec::Rake::SpecTask.new do |t|
+  t.spec_files = FileList['spec/**/*_spec.rb']
+  t.spec_opts = %w(-fs --color)
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+  pkg.gem_spec = spec
+end
+
+desc "install the gem locally"
+task :install => [:package] do
+  sh %{sudo gem install pkg/#{GEM}-#{GEM_VERSION}}
+end
+
+desc "create a gemspec file"
+task :make_spec do
+  File.open("#{GEM}.gemspec", "w") do |file|
+    file.puts spec.to_ruby
+  end
+end
+
+desc "Run all examples with RCov"
+Spec::Rake::SpecTask.new(:rcov) do |t|
+  t.spec_files = FileList['spec/**/*_spec.rb']
+  t.rcov = true
+end

data/vendor/redis-rb/bench.rb

@@ -0,0 +1,44 @@
+require 'benchmark'
+$:.push File.join(File.dirname(__FILE__), 'lib')
+require 'redis'
+
+times = 20000
+
+@r = Redis.new#(:debug => true)
+@r['foo'] = "The first line we sent to the server is some text"
+
+Benchmark.bmbm do |x|
+  x.report("set") do
+    20000.times do |i|
+      @r["set#{i}"] = "The first line we sent to the server is some text"; @r["foo#{i}"]
+    end
+  end
+  
+  x.report("set (pipelined)") do
+    @r.pipelined do |pipeline|
+      20000.times do |i|
+        pipeline["set_pipelined#{i}"] = "The first line we sent to the server is some text"; @r["foo#{i}"]
+      end
+    end
+  end
+  
+  x.report("push+trim") do
+    20000.times do |i|
+      @r.push_head "push_trim#{i}", i
+      @r.list_trim "push_trim#{i}", 0, 30
+    end
+  end
+  
+  x.report("push+trim (pipelined)") do
+    @r.pipelined do |pipeline|
+      20000.times do |i|
+        pipeline.push_head "push_trim_pipelined#{i}", i
+        pipeline.list_trim "push_trim_pipelined#{i}", 0, 30
+      end
+    end
+  end
+end
+
+@r.keys('*').each do |k|
+  @r.delete k
+end

data/vendor/redis-rb/benchmarking/suite.rb

@@ -0,0 +1,24 @@
+require 'fileutils'
+
+def run_in_background(command)
+  fork { system command }
+end
+
+def with_all_segments(&block)
+  0.upto(9) do |segment_number|
+    block_size = 100000
+    start_index = segment_number * block_size
+    end_index = start_index + block_size - 1
+    block.call(start_index, end_index)
+  end
+end
+
+#with_all_segments do |start_index, end_index|
+#  puts "Initializing keys from #{start_index} to #{end_index}"
+#  system "ruby worker.rb initialize #{start_index} #{end_index} 0"
+#end
+
+with_all_segments do |start_index, end_index|
+  run_in_background "ruby worker.rb write #{start_index} #{end_index} 10"
+  run_in_background "ruby worker.rb read #{start_index} #{end_index} 1"
+end