openshift-origin-controller 1.3.2

data/test/cucumber/step_definitions/cartridge-lifecycle-nodejs_steps.rb

@@ -0,0 +1,30 @@
+require 'json'
+
+When /^I add dependencies to (deplist.txt|package.json) on node modules(.*)$/ do |depfile, modules|
+    Dir.chdir(@app.repo) do
+      case depfile.strip
+      when "deplist.txt"
+        run("echo -e '#{modules.gsub(" ", "\n")}' >> ./deplist.txt")
+      when "package.json"
+        pkg = ""
+        File.open("package.json") { |f| pkg = JSON.parse(f.read) }
+        modules.split.each { |m| pkg['dependencies'][m] = "*" }
+        File.open("package.json", "w") { |f| f.write(JSON.dump(pkg)) }
+      end
+      run("git commit -a -m 'Test change'")
+      run("git push >> " + @app.get_log("git_push_nodejs_deps") + " 2>&1")
+    end
+end
+
+Then /^the application will have the (.*) node modules installed$/ do |modules| 
+  app_dir = File.join("/var/lib/openshift", @app.uid, @app.type)
+  node_mods_dir = File.join(app_dir, "node_modules")
+  repo_mods_dir = File.join(app_dir, "repo", "node_modules")
+  modules.split.each do |m|
+    if !File.directory?(File.join(node_mods_dir, m))  &&
+       !File.directory?(File.join(repo_mods_dir, m))
+      raise "Missing node_modules dir for #{m}"
+    end
+  end
+end
+

data/test/cucumber/step_definitions/cartridge-mongodb_steps.rb

@@ -0,0 +1,60 @@
+# step descriptions for MongoDB cartridge behavior.
+
+require 'mongo'
+require 'fileutils'
+
+Then /^the mongodb configuration file will( not)? exist$/ do |negate|
+  cart = @gear.carts['mongodb-2.2']
+  user_root = "#{$home_root}/#{@gear.uuid}/#{cart.name}"
+  config_file = "#{user_root}/etc/mongodb.conf"
+
+  begin
+    cnffile = File.new config_file
+  rescue Errno::ENOENT
+    cnffile = nil
+  end
+
+  unless negate
+    cnffile.should be_a(File)
+  else
+    cnffile.should be_nil
+  end
+end
+
+
+Then /^the mongodb database will( not)? +exist$/ do |negate|
+  cart = @gear.carts['mongodb-2.2']
+  user_root = "#{$home_root}/#{@gear.uuid}/#{cart.name}"
+  config_file = "#{user_root}/etc/mongodb.conf"
+  data_dir = "#{user_root}/data/"
+
+  begin
+    datadir = Dir.new data_dir
+  rescue Errno::ENOENT
+    datadir = nil
+  end
+
+  unless negate
+    datadir.should include "#{@app.name}.0"
+    datadir.should include "#{@app.name}.ns"
+    datadir.should include "mongod.lock"
+    datadir.should include "admin.0"
+    datadir.should include "admin.ns"
+  else
+    datadir.should be_nil
+  end
+end
+
+Then /^the mongodb admin user will have access$/ do
+  mongo_cart = @gear.carts['mongodb-2.2']
+
+  begin
+    dbh = Mongo::Connection.new(mongo_cart.db.ip.to_s).db(@app.name)
+    dbh.authenticate(mongo_cart.db.username.to_s, mongo_cart.db.password.to_s)
+  rescue Mongo::ConnectionError
+    dbh = nil
+  end
+
+  dbh.should be_a(Mongo::DB)
+  dbh.logout if dbh
+end

data/test/cucumber/step_definitions/cartridge-mysql_steps.rb

@@ -0,0 +1,56 @@
+# step descriptions for MySQL cartridge behavior.
+
+require 'mysql'
+require 'fileutils'
+
+Then /^the mysql configuration file will( not)? exist$/ do |negate|
+  mysql_cart = @gear.carts['mysql-5.1']
+
+  mysql_user_root = "#{$home_root}/#{@gear.uuid}/#{mysql_cart.name}"
+  mysql_config_file = "#{mysql_user_root}/etc/my.cnf"
+
+  if negate
+    assert_file_not_exists mysql_config_file
+  else
+    assert_file_exists mysql_config_file
+  end
+end
+
+
+Then /^the mysql database will( not)? +exist$/ do |negate|
+  mysql_cart = @gear.carts['mysql-5.1']
+
+  mysql_user_root = "#{$home_root}/#{@gear.uuid}/#{mysql_cart.name}"
+  mysql_data_dir = "#{mysql_user_root}/data"
+
+  begin
+    datadir = Dir.new mysql_data_dir
+  rescue Errno::ENOENT
+    datadir = nil
+  end
+
+  unless negate
+    datadir.should include "ibdata1"
+    datadir.should include "ib_logfile0"
+    datadir.should include "mysql"
+    datadir.should include @app.name
+  else
+    datadir.should be_nil
+  end
+end
+
+Then /^the mysql admin user will have access$/ do
+  mysql_cart = @gear.carts['mysql-5.1']
+
+  begin
+    dbh = Mysql.real_connect(mysql_cart.db.ip, 
+                             mysql_cart.db.username, 
+                             mysql_cart.db.password,
+                             'mysql')
+  rescue Mysql::Error
+    dbh = nil
+  end
+
+  dbh.should be_a(Mysql)
+  dbh.close if dbh
+end

data/test/cucumber/step_definitions/cartridge-php_steps.rb

@@ -0,0 +1,72 @@
+# Steps specific to the php-5.3 cartridge.
+require 'test/unit'
+require 'test/unit/assertions'
+
+include Test::Unit::Assertions
+
+# NOTE: Assumes the test context is the basic steps provided
+# by runtime_steps.rb
+Then /^the php application will( not)? be aliased$/ do | negate |
+  good_status = negate ? 1 : 0
+
+  exit_status = -1
+  OpenShift::timeout(20) do
+    begin
+      sleep 1
+      command = "/usr/bin/curl -L -H 'Host: #{@app.name}.#{$alias_domain}' -s http://localhost/health_check.php | /bin/grep -q -e '^1$'"
+      exit_status = runcon command, $selinux_user, $selinux_role, $selinux_type
+    end while exit_status != good_status
+  end
+  exit_status.should == good_status
+end
+
+When /^I (expose-port|conceal-port) the php application$/ do |action|
+  @cart.run_hook action, 0
+end
+
+Then /^the php application will( not)? be exposed$/ do | negate |
+  exitcode, output = @cart.run_hook_output 'show-port', 0
+
+  if negate
+    assert_nil output[0].index('PROXY_PORT')
+  else
+    assert_not_nil output[0].index('PROXY_PORT')
+  end
+end
+
+Then /^the php file permissions are correct/ do
+  gear_uuid = @gear.uuid
+  app_home = "/var/lib/openshift/#{gear_uuid}"
+  uid = Etc.getpwnam(gear_uuid).uid
+  gid = Etc.getpwnam(gear_uuid).gid
+  mcs = get_mcs_level(uid)
+  se_context = "unconfined_u:object_r:openshift_var_lib_t:#{mcs}"
+  se_context2 = "unconfined_u:object_r:openshift_rw_file_t:#{mcs}"
+  # Configure files (relative to app_home)
+  configure_files = { "php-5.3" => ['root', 'root', '40755', se_context],
+                    "php-5.3/" => ['root', 'root', '40755', se_context],
+                    ".pearrc" => ['root', 'root', '100644', se_context],
+                    "php-5.3/conf/" => ['root', 'root', '40755', se_context],
+                    "php-5.3/conf/php.ini" => ['root', 'root', '100644', se_context],
+                    "php-5.3/conf/magic" => ['root', 'root', '100644', se_context],
+                    "php-5.3/conf.d/" => ['root', 'root', '40755', se_context],
+                    "php-5.3/conf.d/openshift.conf" => ['root', 'root', '100644', se_context],
+                    "app-root/data/" => [gear_uuid, gear_uuid, '40755', se_context2],
+                    "php-5.3/logs/" => [gear_uuid, gear_uuid, '40755', se_context],
+                    "php-5.3/phplib/pear/" => [gear_uuid, gear_uuid, '40755', se_context],
+                    "app-root/data/" => [gear_uuid, gear_uuid, '40750', se_context2],
+                    "app-root/repo/" => [gear_uuid, gear_uuid, '40750', se_context],
+                    "php-5.3/run/" => [gear_uuid, gear_uuid, '40755', se_context],
+                    "php-5.3/run/httpd.pid" => [gear_uuid, gear_uuid, '100644', se_context],
+                    "app-root/repo/php/index.php" => [gear_uuid, gear_uuid, '100664', se_context],
+                    "php-5.3/sessions/" => [gear_uuid, gear_uuid, '40755', se_context], 
+                    "php-5.3/tmp/" => [gear_uuid, gear_uuid, '40755', se_context]
+                    } 
+  configure_files.each do | file, permissions |
+    raise "Invalid permissions for #{file}" unless mode?("#{app_home}/#{file}", permissions[2])
+    raise "Invalid context for #{file}" unless context?("#{app_home}/#{file}", permissions[3])
+    target_uid = Etc.getpwnam(permissions[0]).uid.to_i
+    target_gid = Etc.getgrnam(permissions[1]).gid.to_i
+    raise "Invalid ownership for #{file}" unless owner?("#{app_home}/#{file}", target_uid, target_gid)
+  end
+end

data/test/cucumber/step_definitions/cartridge-postgresql_steps.rb

@@ -0,0 +1,59 @@
+# step descriptions for PostgreSQL cartridge behavior.
+
+require 'pg'
+require 'fileutils'
+
+
+Then /^the postgresql configuration file will( not)? exist$/ do |negate|
+  pgsql_cart = @gear.carts['postgresql-8.4']
+
+  pgsql_user_root = "#{$home_root}/#{@gear.uuid}/#{pgsql_cart.name}"
+  pgsql_config_file = "#{pgsql_user_root}/data/postgresql.conf"
+
+  if negate
+    assert_file_not_exists pgsql_config_file
+  else
+    assert_file_exists pgsql_config_file
+  end
+end
+
+
+Then /^the postgresql database will( not)? +exist$/ do |negate|
+  pgsql_cart = @gear.carts['postgresql-8.4']
+
+  pgsql_user_root = "#{$home_root}/#{@gear.uuid}/#{pgsql_cart.name}"
+  pgsql_data_dir = "#{pgsql_user_root}/data"
+
+  begin
+    datadir = Dir.new pgsql_data_dir
+  rescue Errno::ENOENT
+    datadir = nil
+  end
+
+  unless negate
+    datadir.should include "base"
+    datadir.should include "global"
+    datadir.should include "pg_clog"
+    datadir.should include "pg_log"
+    datadir.should include "pg_xlog"
+  else
+    datadir.should be_nil
+  end
+end
+
+
+Then /^the postgresql admin user will have access$/ do
+  pgsql_cart = @gear.carts['postgresql-8.4']
+
+  begin
+    # FIXME: For now use psql -- we should try programatically later.
+    dbconn = PGconn.connect(pgsql_cart.db.ip, 5432, '', '', 'postgres',
+                            pgsql_cart.db.username, pgsql_cart.db.password)
+  rescue PGError
+    $logger.error("Couldn't connect to Postgres, ip=#{pgsql_cart.db.ip}, user=#{pgsql_cart.db.username}, pwd=#{pgsql_cart.db.password}")
+    dbconn = nil
+ end
+
+ dbconn.should be_a(PGconn)
+ dbconn.close if dbconn
+end

data/test/cucumber/step_definitions/cartridge-switchyard_steps.rb

@@ -0,0 +1,29 @@
+# step descriptions for MySQL cartridge behavior.
+
+require 'fileutils'
+
+Then /^the eap module configuration file will( not)? exist$/ do |negate|
+
+  env_dir = "#{$home_root}/#{@gear.uuid}/.env"
+  module_config_file = "#{env_dir}/OPENSHIFT_JBOSSEAP_MODULE_PATH"
+
+  if negate
+    assert_file_not_exists module_config_file
+  else
+    assert_file_exists module_config_file
+  end
+end
+
+Then /^the as module configuration file will( not)? exist$/ do |negate|
+ 
+  env_dir = "#{$home_root}/#{@gear.uuid}/.env"
+  module_config_file = "#{env_dir}/OPENSHIFT_JBOSSAS_MODULE_PATH"
+
+  if negate
+    assert_file_not_exists module_config_file
+  else
+    assert_file_exists module_config_file
+  end
+end
+
+

data/test/cucumber/step_definitions/client_steps.rb

@@ -0,0 +1,12 @@
+Given /^an accepted node$/ do
+  # TODO: Add any required checks here
+end
+
+Given /^the libra client tools$/ do
+  File.exists?($create_app_script).should be_true
+  File.exists?($create_domain_script).should be_true
+  File.exists?($client_config).should be_true
+  File.exists?($ctl_app_script).should be_true
+
+  File.exists?($rhc_script).should be_true
+end

data/test/cucumber/step_definitions/descriptor_step.rb

@@ -0,0 +1,32 @@
+require 'rubygems'
+require 'openshift-origin-controller'
+
+  
+When /^a descriptor file is provided$/ do
+  @descriptor_file = File.expand_path("../misc/descriptor/manifest.yml", File.expand_path(File.dirname(__FILE__)))
+end 
+    
+When /^the descriptor file is parsed as a cartridge$/ do
+  f = File.open(@descriptor_file)
+  @app = OpenShift::Cartridge.new.from_descriptor(YAML.load(f))
+  f.close
+end
+
+Then /^the descriptor profile exists$/ do
+  @app.default_profile.nil?.should be_false
+end
+
+Then /^atleast (\d+) group exists$/ do |count|
+  len = @app.profiles[0].groups.length
+  check = (len >= Integer(count))
+  check.should be_true
+end
+
+Then /^atleast (\d+) component exists$/ do |count|
+   g = @app.profiles[0].groups[0]
+   comp = @app.profiles[0].components(g.component_refs[0].component)
+   check = (not comp.nil?)
+   check.should be_true
+end
+
+

data/test/cucumber/step_definitions/idler_steps.rb

@@ -0,0 +1,37 @@
+# match against oo-idle and oo-restore to avoid conflict
+When /^I oo-(idle|restore) the application$/ do |action|
+  cmd = nil
+
+  case action
+    when "idle"
+      cmd = "/usr/sbin/oo-idler -u #{@gear.uuid}" 
+    when "restore"
+      cmd = "/usr/sbin/oo-restorer -u #{@gear.uuid}"
+  end
+
+  exit_code = run cmd
+  assert_equal 0, exit_code, "Failed to #{action} application running #{cmd}"
+end
+
+Then /^I record the active capacity( after idling)?$/ do |negate|
+  @active_capacity = `facter active_capacity`.to_f
+
+  if (negate)
+    # active capacity may be 0.0 after idling.
+    @active_capacity.should be >= 0.0
+  else 
+    @active_capacity.should be > 0.0
+  end 
+end
+
+Then /^the active capacity has been (reduced|increased)$/ do |change|
+  current_capacity = `facter active_capacity`.to_f
+  current_capacity.should be >= 0.0
+
+  case change
+    when "reduced"
+      @active_capacity.should be > current_capacity
+    when "increased"
+      @active_capacity.should be < current_capacity
+  end
+end

data/test/cucumber/step_definitions/node_steps.rb

@@ -0,0 +1,203 @@
+# 
+# 
+# Steps that can be used to check applications installed on a server (node)
+#
+#require 'etc'
+
+require 'open4'
+require 'dnsruby'
+
+# Controller cartridge command paths
+$cartridge_root = '/usr/libexec/openshift/cartridges'
+$controller_config_path = "oo-app-create"
+$controller_config_format = "#{$controller_config_path} -c '%s' -a '%s' --with-namespace '%s' --with-app-name '%s'"
+$controller_deconfig_path = "oo-app-destroy"
+$controller_deconfig_format = "#{$controller_deconfig_path} -c '%s' -a '%s' --with-namespace '%s' --with-app-name '%s'"
+$home_root = "/var/lib/openshift"
+
+# --------------------------------------------------------------------------
+# Account Checks
+# --------------------------------------------------------------------------
+# These must run after server_steps.rb: I create a <name> app for <framework>
+
+# These depend on test data of this form:
+#    And the following test data
+#      | accountname 
+#      | 00112233445566778899aabbccdde000
+
+
+# copied from server-common/openshift/user.rb 20110630
+def gen_small_uuid()
+    # Put config option for rhlogin here so we can ignore uuid for dev environments
+    %x[/usr/bin/uuidgen].gsub('-', '').strip
+end
+
+def gen_unique_login_and_namespace(namespace=nil)
+  if !namespace
+    chars = ("1".."9").to_a
+    namespace = "ci" + Array.new(8, '').collect{chars[rand(chars.size)]}.join
+  end
+  login = "cucumber-test_#{namespace}@example.com"
+  [ login, namespace ]
+end
+
+def gen_unique_app_name
+  chars = ("1".."9").to_a
+  "app" + Array.new(4, '').collect{chars[rand(chars.size)]}.join
+end
+
+Given /^a new gear with namespace "([^\"]*)" and app name "([^\"]*)"$/ do |namespace, name|
+  # generate a random account name and use the stock SSH keys
+  # generate a random UUID and use the stock keys
+  acctname = gen_small_uuid
+  login, namespace = gen_unique_login_and_namespace(namespace)
+  @account = {
+    'accountname' => acctname,
+    'login' => login,
+    'namespace' => namespace,
+    'appnames' => [ name ],
+  }
+
+  command = $controller_config_format % [acctname, acctname, namespace, name]
+  runcon(command, $selinux_user, $selinux_role, $selinux_type)
+
+  # get and store the account UID's by name
+  @account['uid'] = Etc.getpwnam(acctname).uid
+end
+
+Given /^a new guest account$/ do
+  # generate a random account name and use the stock SSH keys
+  # generate a random UUID and use the stock keys
+  acctname = gen_small_uuid
+  login, namespace = gen_unique_login_and_namespace
+  appname = gen_unique_app_name
+  @account = {
+    'accountname' => acctname,
+    'login' => login,
+    'namespace' => namespace,
+    'appnames' => [ appname ],
+  }
+
+  command = $controller_config_format % [acctname, acctname, namespace, appname]
+  runcon(command, $selinux_user, $selinux_role, $selinux_type)
+
+  # get and store the account UID's by name
+  @account['uid'] = Etc.getpwnam(acctname).uid
+end
+
+Given /^the guest account has no application installed$/ do
+  # Assume this is true
+end
+
+When /^I create a guest account$/ do
+  # call /usr/libexec/openshift/cartridges  @table.hashes.each do |row|
+  # generate a random account name and use the stock SSH keys
+  # generate a random UUID and use the stock keys
+  acctname = gen_small_uuid
+  login, namespace = gen_unique_login_and_namespace
+  appname = gen_unique_app_name
+  @account = {
+    'accountname' => acctname,
+    'login' => login,
+    'namespace' => namespace,
+    'appnames' => [ appname ],
+  }
+
+  command = $controller_config_format % [acctname, acctname, namespace, appname]
+  runcon(command, $selinux_user, $selinux_role, $selinux_type)
+
+  # get and store the account UID's by name
+  @account['uid'] = Etc.getpwnam(acctname).uid
+end
+
+When /^I delete the guest account$/ do
+  # call /usr/libexec/openshift/cartridges  @table.hashes.each do |row|
+  
+  command = $controller_deconfig_format % [@account['accountname'],
+                                           @account['accountname'],
+                                           @account['namespace'],
+                                           @account['appnames'][0]]
+  runcon(command, $selinux_user, $selinux_role, $selinux_type)
+
+end
+
+When /^I create a new namespace$/ do
+  acctname = gen_small_uuid
+  login, namespace = gen_unique_login_and_namespace
+  @account = {
+    'accountname' => acctname,
+    'login' => login,
+    'password' => 'xyz123',
+    'namespace' => namespace
+  }
+  register_user(login, "xyz123") if $registration_required
+  ec = run("#{$rhc_script} domain create #{namespace} -l #{login} -p #{@account['password']} -d")
+end
+
+When /^I delete the namespace$/ do
+  ec = run("#{$rhc_script} domain destroy #{@account['namespace']} -l #{@account['login']} -p #{@account['password']} -d")
+  ec.should be == 0
+end
+
+Then /^a namespace should get deleted$/ do
+  res = Dnsruby::Resolver.new
+  begin
+    maxttl=300
+    minretry=5
+    Timeout::timeout(maxttl + 20) do
+      while true
+        Dnsruby::PacketSender.clear_caches
+        ret = res.query("#{@account['namespace']}.dev.rhcloud.com", Dnsruby::Types.TXT)
+        if ret.answer.length >= 1
+          if ret.answer[0].ttl > maxttl
+            retryin = maxttl
+          elsif ret.answer[0].ttl < minretry
+            retryin = minretry
+          else
+            retryin = ret.answer[0].ttl
+          end
+        else
+          retryin = maxttl
+        end
+        $logger.debug "The domain is still resolvable.  Waiting for the TTL to expire in #{retryin} seconds."
+        sleep(retryin)
+      end
+    end
+  rescue Timeout::Error
+    $logger.warn "Timed out while waiting for the domain name to disappear."
+    raise
+  rescue Dnsruby::NXDomain
+    true
+  end
+end
+
+Then /^an account password entry should( not)? exist$/ do |negate|
+  # use @app['uuid'] for account name
+  
+  begin
+    @pwent = Etc.getpwnam @account['accountname']
+  rescue
+    nil
+  end
+
+  if negate
+    @pwent.should be_nil      
+  else
+    @pwent.should_not be_nil
+  end
+end
+
+Then /^an HTTP proxy config file should( not)? exist$/ do |negate|
+
+end
+
+Then /^an account home directory should( not)? exist$/ do |negate|
+  @homedir = File.directory? "#{$home_root}/#{@account['accountname']}"
+    
+  if negate
+    @homedir.should_not be_true
+  else
+    @homedir.should be_true
+  end
+end
+