openshift-origin-console 1.3.2

data/test/functional/keys_controller_test.rb

@@ -0,0 +1,163 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class KeysControllerTest < ActionController::TestCase
+
+  setup :with_configured_user
+  setup :delete_keys
+
+  def unique_name_format
+    'key%i'
+  end
+
+  test "should show key creation form" do
+    get :new
+    assert_response :success
+    assert_template :new
+    assert_nil assigns(:first)
+    assert key = assigns(:key)
+    assert !key.persisted?
+  end
+
+  test "should create key" do
+    post :create, {:key => get_post_form}
+
+    assert key = assigns(:key)
+    assert key.errors.empty?, key.errors.inspect
+    assert_redirected_to account_path
+    #since this is only key the user has then it cannot be deleted (because of the old client tools)
+    #assert key.destroy
+  end
+
+  test "should create key and redirect back" do
+    @request.env['HTTP_REFERER'] = 'http://arbitrary/back'
+
+    post :create, {:key => get_post_form, :first => true}
+
+    assert key = assigns(:key)
+    assert key.errors.empty?, key.errors.inspect
+    assert_redirected_to 'http://arbitrary/back'
+    assert flash[:success]
+
+    #since this is only key the user has then it cannot be deleted (because of the old client tools)
+    #assert key.destroy
+  end
+
+  test "should create key and redirect back without referrer" do
+    post :create, {:key => get_post_form, :first => true}
+
+    assert key = assigns(:key)
+    assert key.errors.empty?, key.errors.inspect
+    assert_redirected_to account_path
+    assert flash[:success]
+
+    #since this is only key the user has then it cannot be deleted (because of the old client tools)
+    #assert key.destroy
+  end
+
+  test "should overwrite default key" do
+    (key = Key.new(:name => 'default', :raw_content => 'ssh-rsa defaultkey1', :as => @user)).save!
+
+    post :create, {:key => {:name => 'default', :raw_content => 'ssh-rsa defaultkey2'}, :first => true}
+
+    assert_redirected_to account_path
+    assert key = assigns(:key)
+    assert_equal 'defaultkey2', key.content
+    assert key.errors.empty?, key.errors.inspect
+    assert flash[:success]
+
+    key.destroy
+  end
+
+  test "should give key new name" do
+    (key = Key.new(:name => 'test', :raw_content => 'ssh-rsa nameuniquekey1', :as => @user)).save!
+
+    post :create, {:key => {:name => 'test', :raw_content => 'ssh-rsa nameuniquekey2'}, :first => true}
+
+    assert_redirected_to account_path
+    assert assigns(:first)
+    assert key = assigns(:key)
+    assert_equal 'test2', key.name
+    assert_equal 'nameuniquekey2', key.content
+    assert key.errors.empty?, key.errors.inspect
+    assert flash[:success]
+
+    assert key.destroy
+  end
+
+  test "should destroy key" do
+    (key = Key.new(get_post_form.merge(:as => @user))).save!
+    delete :destroy, :id => key.id
+    assert_redirected_to account_path
+  end
+
+  test "should destroy default key" do
+    (key = Key.new(get_post_form.merge(:name => 'default', :as => @user))).save!
+    delete :destroy, :id => key.id
+    assert_redirected_to account_path
+  end
+
+  test "should assign errors on empty name" do
+    post :create, {:key => get_post_form.merge(:name => '')}
+
+    assert_response :success
+    assert_template :new
+
+    assert key = assigns(:key)
+    assert !key.errors.empty?
+    assert key.errors[:name].present?, key.errors.inspect
+    assert_equal 1, key.errors[:name].length
+  end
+
+  test "should assign errors on long name" do
+    post :create, {:key => get_post_form.merge(:name => 'aoeu'*2000)}
+
+    assert_response :success
+    assert_template :new
+
+    assert key = assigns(:key)
+    assert !key.errors.empty?
+    assert key.errors[:name].present?, key.errors.inspect
+    assert_equal 1, key.errors[:name].length
+  end
+
+  test "should assign errors on invalid name" do
+    post :create, {:key => get_post_form.merge(:name => '@@@@')}
+
+    assert_response :success
+    assert_template :new
+
+    assert key = assigns(:key)
+    assert !key.errors.empty?
+    assert key.errors[:name].present?, key.errors.inspect
+    assert_equal 1, key.errors[:name].length
+  end
+
+  test "should assign errors on duplicate name" do
+    (key = Key.new(get_post_form.merge(:as => @user))).save!
+
+    post :create, {:key => get_post_form.merge(:name => key.name, :raw_content => 'ssh-rsa XYZ')}
+
+    assert_response :success
+    assert_template :new
+
+    assert key = assigns(:key)
+    assert !key.errors.empty?
+    assert key.errors[:name].present?, key.errors.inspect
+    assert_equal 1, key.errors[:name].length
+  end
+
+  test "should clear session cache" do
+    session[:has_sshkey] = 'true'
+    post :create, {:key => get_post_form}
+
+    assert key = assigns(:key)
+    assert key.errors.empty?, key.errors.inspect
+    assert_redirected_to account_path
+    assert_nil session[:key]
+  end
+
+  def get_post_form
+    name = unique_name
+    {:name => name, :raw_content => "ssh-rsa value#{name}"}
+  end
+end

data/test/functional/quickstarts.json

@@ -0,0 +1,18 @@
+{
+  "data": [
+    {
+      "quickstart": {
+        "body": "<p>A rich blogging platform with a comprehensive ecosystem of plugins and tools.</p>",
+        "id": "12069",
+        "href": "/community/content/wordpress-34",
+        "name": "Wordpress 3.4",
+        "updated": "1351452778",
+        "cartridges": "php-5.3, mysql-5.1",
+        "initial_git_url": "https://github.com/openshift/wordpress-example",
+        "language": "PHP",
+        "tags": "blog, example, php, wordpress"
+      }
+    }
+  ]
+}
+

data/test/functional/scaling_controller_test.rb

@@ -0,0 +1,153 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+
+class ScalingControllerTest < ActionController::TestCase
+
+  uses_http_mock :sometimes
+
+  def mock_domain
+    {:id => 'test'}
+  end
+  def app_without_scaling
+    {:name => 'test', :framework => 'php-5.3', :git_url => 'ssh://foo@bar-domain.rhcloud.com/~/something/repo.git'}
+  end
+  def app_with_scaling
+    {:name => 'test', :framework => 'php-5.3', :git_url => 'ssh://foo@bar-domain.rhcloud.com/~/something/repo.git', :scale => true}
+  end
+
+  def cartridges_without_scaling
+    [
+      {:name => 'php-5.3', :current_scale => 1, :scales_from => 1, :scales_to => 1},
+    ]
+  end
+  def cartridges_with_scaling(multiplier)
+    [
+      {:name => 'php-5.3', :collocated_with => ['extra-1.0', 'haproxy-1.4'], :scales_from => 1, :scales_to => multiplier*2, :current_scale => multiplier},
+      {:name => 'extra-1.0', :collocated_with => ['php-5.3', 'haproxy-1.4'], :scales_from => 1, :scales_to => 1, :current_scale => 1},
+      {:name => 'haproxy-1.4', :collocated_with => ['php-5.3', 'extra-1.0'], :scales_from => 1, :scales_to => 1, :current_scale => 1},
+      {:name => 'mysql-5.0', :scales_from => 1, :scales_to => 1, :current_scale => 1},
+    ]
+  end
+
+  def with_mock_app(app=app_without_scaling, cartridges=cartridges_without_scaling)
+    with_unique_user
+
+    allow_http_mock
+    ActiveResource::HttpMock.respond_to(false) do |mock|
+      mock.get '/broker/rest/cartridges.json', anonymous_json_header, [].to_json
+      mock.get '/broker/rest/user.json', json_header, {:max_gears => 16}.to_json
+      mock.get '/broker/rest/domains.json', json_header, [mock_domain].to_json
+      mock.get '/broker/rest/domains/test/applications/test.json', json_header, app.to_json
+      mock.get '/broker/rest/domains/test/applications.json', json_header, [app].compact.to_json
+      mock.get '/broker/rest/domains/test/applications/test/cartridges.json', json_header, cartridges.to_json
+    end
+    {:application_id => 'test'}
+  end
+
+  def without_scaling
+    with_unique_user
+    with_mock_app
+  end
+  def with_scaling(multiplier=1)
+    with_unique_user
+    with_mock_app(app_with_scaling, cartridges_with_scaling(multiplier))
+  end
+
+  test 'displays form and title for scaling' do
+    get :show, with_scaling(2)
+    assert_select 'h2', "php-5.3"
+    assert_select 'h2', "extra-1.0"
+    assert_select 'h2', "mysql-5.0"
+  end
+
+  def scalable_app_params
+    {
+      :application_id => with_scalable_app.to_param,
+      :id => scalable_cartridge.name
+    }
+  end
+  def scalable_cartridge
+    with_scalable_app.cartridges.find(&:scales?)
+  end
+  def assert_cart_scales(from, to, message='Cartridge scaling not set correctly')
+    scalable_cartridge.reload.tap{ |c| assert_equal [from,to], [c.scales_from, c.scales_to], message }
+  end
+
+  test 'updates scale range' do
+    put :update, {:cartridge => {:scales_from => 2, :scales_to => 3}}.merge(scalable_app_params)
+    assert_redirected_to application_scaling_path
+    assert_cart_scales 2, 3
+  end
+
+  test 'allows fixed scale range' do
+    put :update, {:cartridge => {:scales_from => 3, :scales_to => 3}}.merge(scalable_app_params)
+    assert_redirected_to application_scaling_path, assigns(:cartridge).errors.inspect
+    assert_cart_scales 3, 3
+  end
+
+  test 'allows unlimited scale range' do
+    put :update, {:cartridge => {:scales_from => 3, :scales_to => -1}}.merge(scalable_app_params)
+    assert_redirected_to application_scaling_path, assigns(:cartridge).errors.inspect
+    assert_cart_scales 3, -1
+  end
+
+  test 'flips scale range if necessary' do
+    put :update, {:cartridge => {:scales_from => 3, :scales_to => 2}}.merge(scalable_app_params)
+    assert_redirected_to application_scaling_path
+    assert_equal [2, 3], [assigns(:cartridge).scales_from, assigns(:cartridge).scales_to]
+    assert_cart_scales 2, 3
+  end
+
+  test 'rejects unlimited scales_from' do
+    put :update, {:cartridge => {:scales_from => -1, :scales_to => 2}}.merge(scalable_app_params)
+    assert_response :success
+    assert_select 'ul.alert-error > li', /Invalid scales_(from|to) factor -?\d+ provided/
+  end
+
+  test 'rejects out of range scales_from' do
+    if scalable_cartridge.supported_scales_from > 0
+      put :update, {:cartridge => {:scales_from => 0, :scales_to => 2}}.merge(scalable_app_params)
+      assert_response :success
+      assert_select 'ul.alert-error > li', /Invalid scales_(from|to) factor -?\d+ provided/
+    else
+      fail 'Test case needs to be updated, a cart can be scaled to 0 now'
+    end
+  end
+
+  test 'rejects impossible scales_to' do
+    put :update, {:cartridge => {:scales_from => 2, :scales_to => -2}}.merge(scalable_app_params)
+    assert_response :success
+    assert_select 'ul.alert-error > li', /Invalid scales_(from|to) factor -?\d+ provided/
+  end
+
+  [true, false].each do |mock|
+    test "should get redirected from show without scaling #{'(mock)' if mock}" do
+      get :show, mock ? without_scaling : {:application_id => with_app.to_param}
+      assert app = assigns(:application)
+      assert assigns(:domain)
+      assert_redirected_to new_application_scaling_path(app)
+    end
+
+    test "should get redirected from delete without scaling #{'(mock)' if mock}" do
+      get :delete, mock ? without_scaling : {:application_id => with_app.to_param}
+      assert app = assigns(:application)
+      assert assigns(:domain)
+      assert_redirected_to new_application_scaling_path(app)
+    end
+
+    test "should see new page without scaling #{'(mock)' if mock}" do
+      get :new, mock ? without_scaling : {:application_id => with_app.to_param}
+      assert app = assigns(:application)
+      assert assigns(:domain)
+      assert_response :success
+    end
+
+    test "should show if all components exist #{'(mock)' if mock}" do
+      get :show, mock ? with_scaling : {:application_id => with_scalable_app.to_param}
+      assert app = assigns(:application), @response.pretty_inspect
+      assert app.ssh_string
+      assert assigns(:domain)
+      assert_response :success
+    end
+  end
+end

data/test/integration/assets_test.rb

@@ -0,0 +1,34 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class AssetsTest < ActionDispatch::IntegrationTest
+  setup { open_session }
+
+  test 'retrieve the main javascript resource' do
+    get '/assets/console.js'
+    assert_response :success
+    assert_equal 'application/javascript', @response.content_type
+    assert @response.body.length > 10*1024
+    assert @response.body.include?("jQuery")
+  end
+
+  test 'retrieve an image' do
+    get '/assets/sprite-vert.png'
+    assert_response :success
+    assert_equal 'image/png', @response.content_type
+    assert @response.body.length > 1*1024
+  end
+
+  test 'retrieve common.css' do
+    get '/assets/common.css'
+    assert_response :success
+    assert_equal 'text/css', @response.content_type
+    assert @response.body.length > 20*1024
+  end
+
+  test 'retrieve origin.css' do
+    get '/assets/origin.css'
+    assert_response :success
+    assert_equal 'text/css', @response.content_type
+    assert @response.body.length > 20*1024
+  end
+end

data/test/integration/help_link_test.rb

@@ -0,0 +1,43 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class HelpLinkTest < ActionDispatch::IntegrationTest
+  class << self
+    def urls_from_module(mod)
+      obj = Class.new { include mod }.new
+
+      mod.public_instance_methods.collect do |name|
+        mod.instance_method(name)
+      end.select do |m|
+        m.name =~ /_url$/ && m.arity == 0
+      end.inject({}) do |hash, m|
+        uri = URI.parse(obj.send(m.name))
+        hash["#{mod.name}##{m.name}"] = uri if uri.is_a?(URI::HTTPS) || uri.is_a?(URI::HTTP)
+        hash
+      end
+    end
+    def create_test(name, uri)
+      test "can access #{name}(#{uri})" do
+        check_url(name, uri)
+      end
+    end
+  end
+
+  def check_url(name, uri)
+    begin
+      req = Net::HTTP.new(uri.host, uri.port)
+      if uri.is_a?(URI::HTTPS)
+        req.use_ssl = true
+        req.verify_mode = OpenSSL::SSL::VERIFY_NONE
+      end
+      res = req.start do |http|
+        http.get(uri.request_uri)
+      end
+      assert 200, res.code
+    rescue Exception => e
+      raise e, "Could not retrieve #{name}(#{uri}): #{e.message}"
+    end
+  end
+
+  urls_from_module(Console::HelpHelper).each_pair{ |name,uri| self.create_test(name,uri) }
+  urls_from_module(Console::CommunityHelper).each_pair{ |name,uri| self.create_test(name,uri) }
+end

data/test/integration/quickstarts_test.rb

@@ -0,0 +1,24 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class QuickstartsTest < ActiveSupport::TestCase
+
+  test 'retrieve quickstarts' do
+    quickstart = Quickstart.promoted.first
+    omit('Quickstarts are not present on the server') if quickstart.nil?
+    assert quickstart.tags.is_a? Array
+    assert quickstart.tags.present?
+    assert quickstart.tags.all?{ |t| t.is_a? Symbol }
+    assert quickstart.name.present?
+    assert quickstart.summary.present?
+    if quickstart.body.present?
+      assert quickstart.href.present?
+      assert quickstart.updated > 1.year.ago
+    end
+  end
+
+  test 'search quickstarts' do
+    quickstarts = Quickstart.search('blog')
+    omit('Quickstarts do not have a result matching "blog"') unless quickstarts.present?
+    assert quickstarts.first.tags.include?(:blog)
+  end
+end

data/test/integration/rescue_from_test.rb

@@ -0,0 +1,25 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class RescueFromTest < ActionDispatch::IntegrationTest
+  setup { open_session }
+
+  def with_user
+  end
+
+  def controller_raises(exception)
+    with_configured_user
+    ConsoleIndexController.any_instance.expects(:index).raises(exception)
+    with_rescue_from do
+      get '/', nil, {'HTTP_AUTHORIZATION' => ActionController::HttpAuthentication::Basic.encode_credentials(@user.login, @user.password)}
+    end
+  end
+
+  def default_error_message
+    /An error has occurred/i
+  end
+
+  test 'render unexpected error page' do
+    controller_raises(ActiveResource::ConnectionError.new(nil))
+    assert_error_page
+  end
+end