rudy 0.8.5 → 0.9.0

data/tryouts/01_mixins/01_hash_tryouts.rb

@@ -0,0 +1,20 @@
+
+group "Mixins"
+library :rudy, File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+tryout "Hash" do
+  setup do
+    def one_lvl; {:empty=>1}; end
+    def two_lvls; {:l1 => {:empty=>1}}; end
+    def three_lvls; { :l1 => { :l2 => {:empty=>1, :empty=>1} } }; end
+    def six_lvls; {:l1 => {:l2 => {:l3 => {:l4 => {:l5 => {}, :empty=>1}, :empty=>1}}}}; end
+  end
+  
+  dream [1, 2, 3, 6]
+  drill "should calculate deepest point" do
+    [one_lvl.deepest_point, two_lvls.deepest_point, 
+     three_lvls.deepest_point, six_lvls.deepest_point]
+  end
+end
+
+

data/tryouts/10_require_time/10_rudy_tryouts.rb

@@ -0,0 +1,33 @@
+
+group "Require-time"
+library :rudy, File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+tryout "Rudy Initialization" do
+  setup do
+  end
+
+  drill "version matches gemspec", Rudy::VERSION.to_s do
+    require 'rubygems' unless defined?(Gem)
+    eval( File.read(File.join(RUDY_HOME, 'rudy.gemspec')))
+    @spec.version.to_s
+  end
+  
+  drill             "has sysinfo", Rudy.sysinfo, :class, SysInfo
+  drill       "debug is disabled", Rudy.debug?, false
+  drill       "quiet is disabled", Rudy.quiet?, false
+  drill    "auto-yes is disabled", Rudy.auto?, false
+  
+  drill "debug can be enabled", true do
+    Rudy.enable_debug
+    Rudy.debug?
+  end
+  
+  drill "debug can be disabled", false do
+    Rudy.disable_debug
+    Rudy.debug?
+  end
+  
+end
+
+
+

data/tryouts/10_require_time/15_global_tryouts.rb

@@ -0,0 +1,58 @@
+rudy_lib_path = File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+group "Require-time"
+library :rudy, rudy_lib_path
+
+tryout "Initialization of Global" do
+  global = Rudy::Huxtable.global
+  drill "has global", global, :class, Rudy::Global
+  drill "has default region", global.region, :'us-east-1'
+  drill "has default zone", global.zone, :'us-east-1b'
+  drill "has default environment", global.environment, :stage
+  drill "has default role", global.role, :app
+  drill "default position is nil", global.position, nil
+  drill "default user is nil", global.user, nil
+end
+
+tryout "Global knows ENV" do
+  
+  dream 'ACCESS99'
+  drill "reads AWS_ACCESS_KEY" do
+    ENV['AWS_ACCESS_KEY'] = 'ACCESS99' and Rudy::Huxtable.reset_global
+    Rudy::Huxtable.global.accesskey
+  end
+  
+  dream 'SECRET33'
+  drill "reads AWS_SECRET_KEY before AWS_SECRET_ACCESS_KEY" do
+    ENV['AWS_SECRET_ACCESS_KEY'] = 'SACCESS7'
+    ENV['AWS_SECRET_KEY'] = 'SECRET33' and Rudy::Huxtable.reset_global
+    Rudy::Huxtable.global.secretkey
+  end
+  
+  dream 'SACCESS7'
+  dream :class, String
+  drill "reads AWS_SECRET_ACCESS_KEY" do
+    ENV['AWS_SECRET_ACCESS_KEY'] = 'SACCESS7'
+    ENV['AWS_SECRET_KEY'] = nil or Rudy::Huxtable.reset_global
+    Rudy::Huxtable.global.secretkey
+  end
+  
+  dream File.expand_path('CERT22')
+  drill "reads EC2_CERT" do
+    ENV['EC2_CERT'] = 'CERT22' and Rudy::Huxtable.reset_global
+    Rudy::Huxtable.global.cert
+  end
+  
+  dream File.expand_path('PK100')
+  drill "reads EC2_PRIVATE_KEY" do
+    ENV['EC2_PRIVATE_KEY'] = 'PK100' and Rudy::Huxtable.reset_global
+    Rudy::Huxtable.global.pkey
+  end
+
+end
+
+tryout "Population of Global" do
+  setup do
+    Rudy::Huxtable.update_config
+  end
+end

data/tryouts/12_config/10_load_config_tryouts.rb

@@ -0,0 +1,43 @@
+
+group "Config"
+library :rudy, File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+tryout "Loads config files" do
+  
+  drill "load configs when created", 1 do
+    @@config = Rudy::Config.new Rudy::CONFIG_FILE
+    @@config.paths.size
+  end
+  
+  drill "has accounts", :class, Rudy::Config::Accounts do
+    @@config.accounts
+  end
+  drill "has defaults", :class, Rudy::Config::Defaults do
+    @@config.defaults
+  end
+  
+  drill "loads additional configs", 2 do
+    @@config.paths << File.join(RUDY_HOME, 'Rudyfile')
+    @@config.refresh
+    @@config.paths.size
+  end
+  
+  drill "has machines", :class, Rudy::Config::Machines do
+    @@config.machines
+  end
+  drill "has commands", :class, Rudy::Config::Commands do
+    @@config.commands
+  end
+  drill "has routines", :class, Rudy::Config::Routines do
+    @@config.routines
+  end
+  
+  drill "autoloads known configs", true do
+    conf = Rudy::Config.new
+    conf.look_and_load   # Needs to run before checking accounts, et al
+    (!conf.paths.empty? && !conf.paths.nil?)
+  end
+  
+end
+
+

data/tryouts/12_config/20_defaults_tryouts.rb

@@ -0,0 +1,16 @@
+
+group "Config"
+library :rudy, File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+tryout "Defaults" do
+  setup do
+    @@config = Rudy::Config.new
+    @@config.look_and_load   # looks for and loads config files
+  end
+  
+  drill "has some defaults", ["environment", "role", "zone"].sort do
+    # Sorted so we can add new keys without breaking the test
+    @@config.defaults.keys.collect { |v| v.to_s }.sort
+  end
+  
+end

data/tryouts/12_config/30_accounts_tryouts.rb

@@ -0,0 +1,17 @@
+
+group "Config"
+library :rudy, File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+tryout "Accounts" do
+  setup do
+    @@config = Rudy::Config.new
+    @@config.look_and_load   # looks for and loads config files
+  end
+  
+  dream ["accesskey", "accountnum", "cert", "name", "pkey", "secretkey"]
+  drill "has aws account" do
+    # Sorted so we can add new keys without breaking the test
+    @@config.accounts.aws.keys.collect { |v| v.to_s }.sort
+  end
+  
+end

data/tryouts/12_config/40_machines_tryouts.rb

@@ -0,0 +1,53 @@
+
+group "Config"
+library :rudy, File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+tryout "Machines" do
+  ## drill "Setup vars", :dream => true do
+  drill "Setup vars", true do
+    @@config = Rudy::Config.new
+    @@config.look_and_load   # looks for and loads config files
+    @@reg, @@zon = @@config.defaults.region, @@config.defaults.zone 
+    @@env, @@rol = @@config.defaults.environment, @@config.defaults.role
+    true
+  end
+  
+  dream :class, Rudy::Config::Machines
+  dream :gibbler, "b44ba542bd2aa382cf77fa64ffc610e5e992609a" 
+  drill "has instance of Rudy::Config::Machines" do
+    @@config.machines
+  end
+  
+  drill "is not gibbled (yet)", false do
+    @@config.machines.gibbled?
+  end
+  
+  drill "has example AMIs by zone", ["ami-e348af8a", "ami-6ecde51a"] do
+    [@@config.machines[:'us-east-1'].ami, @@config.machines[:'eu-west-1'].ami]
+  end
+  
+  drill "can find us-east-1 AMI", 'ami-e348af8a' do
+    @@config.machines.find(:"us-east-1", :ami)
+  end
+  drill "can find eu-west-1 AMI", 'ami-6ecde51a' do
+    @@config.machines.find(:"eu-west-1", :ami)
+  end
+  drill "different default AMI for each zone", true do
+    eu = @@config.machines.find(:"eu-west-1", :ami)
+    us = @@config.machines.find(:"us-east-1", :ami)
+    (eu != us && !eu.nil? && !us.nil?)
+  end
+  drill "conf hash and find are equal", true do
+    conf = @@config.machines[@@env][@@rol]
+    find = @@config.machines.find(@@env, @@rol)
+    conf == find
+  end
+  drill "conf find and find_deferred are equal", true do
+    find = @@config.machines.find(@@env, @@rol)
+    find_def = @@config.machines.find_deferred(@@env, @@rol)
+    find == find_def
+  end
+
+  
+end
+

data/tryouts/12_config/50_commands_tryouts.rb

@@ -0,0 +1,17 @@
+
+rudy_lib_path = File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+group "Config"
+library :rudy, rudy_lib_path
+
+tryout "Commands" do
+  setup do
+    @@config = Rudy::Config.new
+    @@config.look_and_load   # looks for and loads config files
+  end
+  
+  drill "is a well-formed hash", [:allow] do
+    @@config.commands.to_hash.keys.uniq.sort
+  end
+  
+end

data/tryouts/12_config/60_routines_tryouts.rb

@@ -0,0 +1,16 @@
+
+rudy_lib_path = File.expand_path(File.join(GYMNASIUM_HOME, '..', 'lib'))
+
+group "Config"
+library :rudy, rudy_lib_path
+
+tryout "Routines" do
+  setup do
+    @@config = Rudy::Config.new
+    @@config.look_and_load   # looks for and loads config files
+  end
+  
+  xdrill "has aws account" do
+  end
+  
+end

data/tryouts/15_huxtable/10_huxtable_tryouts.rb

@@ -0,0 +1,47 @@
+
+
+group "Rudy::Huxtable"
+library :rudy, 'lib'
+
+tryout "Is well kept" do
+  set :oldlogger, Rudy::Huxtable.logger
+  setup do
+    #Rudy::Huxtable.update_config
+  end
+  clean do
+    Rudy::Huxtable.update_logger oldlogger
+  end
+  
+  drill "has config", Rudy::Huxtable.config, :class, Rudy::Config
+  drill "has global", Rudy::Huxtable.global, :class, Rudy::Global 
+  drill "has logger", Rudy::Huxtable.logger, :class, StringIO
+  drill "specify logger", :class, IO do
+    Rudy::Huxtable.update_logger STDOUT
+    Rudy::Huxtable.logger
+  end
+  
+ # drill "knows where config lives", Rudy::Huxtable.config_dirname 
+end
+
+tryout "Loads configuration" do
+  
+end
+
+
+tryout "Knows the defaults" do
+  setup do
+    class ::Olivia                 # :: to define the class in the root context
+      include Rudy::Huxtable
+    end
+  end
+  
+  drill "create olivia", 'Olivia' do
+    @@olivia = Olivia.new
+    @@olivia.class.to_s
+  end
+  
+  drill "machine group", 'stage-app' do
+    @@olivia.current_machine_group
+  end
+  
+end

data/tryouts/15_huxtable/20_user_tryouts.rb

@@ -0,0 +1,47 @@
+
+
+group "Rudy::Huxtable"
+library :rudy, 'lib'
+
+tryout "User related methods" do
+  set :user, Rudy::Utils.strand(4)
+  set :keydir, '/tmp'
+  set :global, Rudy::Huxtable.global
+  set :config, Rudy::Huxtable.config
+  setup do
+    Rudy.enable_debug
+    Rudy::Huxtable.update_config          # Read config files
+    config.defaults[:keydir] = keydir
+    Rudy::Huxtable.global.zone = 'us-east-1b'
+    module Cousin
+      extend Rudy::Huxtable
+    end 
+  end
+  
+  drill "knows current user", :root do
+    Cousin.current_machine_user
+  end
+  
+  drill "keypair path for current user", "#{keydir}/key-us-east-1b-stage-app" do
+    Cousin.user_keypairpath
+  end
+  drill "keypair path for arbitrary user", "#{keydir}/key-us-east-1b-stage-app-#{user}" do
+    Cousin.user_keypairpath user
+  end
+  drill "keypair path for root user", "#{keydir}/key-us-east-1b-stage-app" do
+    Cousin.user_keypairpath :root
+  end
+  
+  drill "keypair name for current user", "key-us-east-1b-stage-app" do
+    Cousin.user_keypairname
+  end
+  drill "keypair name for arbitrary user", "key-us-east-1b-stage-app-#{user}" do
+    Cousin.user_keypairname user
+  end
+  drill "keypair name for root user", "key-us-east-1b-stage-app" do
+    Cousin.user_keypairname :root
+  end
+  
+
+  
+end

data/tryouts/20_simpledb/10_domains_tryouts.rb

@@ -0,0 +1,36 @@
+
+library :rudy, 'lib'
+
+group "SimpleDB"
+
+tryouts "Domains" do
+  set :test_domain, 'test_' << Rudy::Utils.strand
+
+  setup do
+    Rudy::Huxtable.update_config
+    global = Rudy::Huxtable.global
+    akey, skey, region = global.accesskey, global.secretkey, global.region
+    @sdb = Rudy::AWS::SDB.new(akey, skey, region)
+  end
+  
+  drill "create simpledb connection", :class, Rudy::AWS::SDB do
+    @sdb
+  end
+  
+  drill "create a domain (#{test_domain})", true do
+    @sdb.create_domain test_domain
+  end
+  
+  drill "list domains", :class, Array do
+    stash :domains, @sdb.list_domains
+  end
+  
+  drill "destroy a domain (#{test_domain})", true do
+    @sdb.destroy_domain test_domain
+  end
+  
+end
+
+
+
+

data/tryouts/20_simpledb/20_objects_tryouts.rb

@@ -0,0 +1,56 @@
+
+library :rudy, 'lib'
+
+group "SimpleDB"
+
+tryouts "Objects" do
+
+  set :test_domain, 'test_' << Rudy::Utils.strand
+  set :produce, Hash[
+    'orange' => (rand(100) * 10).to_s,
+    'celery' => (rand(100) * 100).to_s,
+    'grapes' => 'green'
+  ]
+
+
+  setup do
+    Rudy::Huxtable.update_config
+    global = Rudy::Huxtable.global
+    akey, skey, region = global.accesskey, global.secretkey, global.region
+    @sdb = Rudy::AWS::SDB.new(akey, skey, region)
+  end
+  
+  drill "create test domain (#{test_domain})", true do
+    @sdb.create_domain test_domain
+  end
+  
+  drill "put object", true do
+    stash :product1, produce
+    @sdb.put(test_domain, 'produce1', produce, :replace)
+  end
+  
+  drill "get object by name", [produce.keys.sort, produce.values.sort] do
+    from_sdb = @sdb.get(test_domain, 'produce1')
+    stash :product1, from_sdb
+    [from_sdb.keys.sort, from_sdb.values.collect { |v| v.first }.sort ]
+  end
+  
+  drill "select objects", :gt, 0 do
+    stash[:query] = "select * from #{test_domain}"
+    stash[:items] = @sdb.select stash[:query]
+    stash[:items].is_a?(Hash) && stash[:items].keys.size
+  end
+  
+  dream true
+  drill "destroy objects by name" do
+    items = @sdb.select "select * from #{test_domain}"
+    items.keys.each { |name| @sdb.destroy test_domain, name }
+    @sdb.select("select * from #{test_domain}").nil?
+  end
+  
+  drill "destroy test domain (#{test_domain})", true do
+    @sdb.destroy_domain test_domain
+  end
+  
+end
+