internethakai 0.2.0

data/CHANGES

@@ -0,0 +1,53 @@
+0.2.0:
+* accesslog2yml を削除
+* hakaigen を追加
+* <b>重要</b>: concurrency を max_scenario に、fork を max_process に、変更しました(しばらくは後方互換性を残します)。
+
+0.1.9:
+* 変数の記号を変更
+* <b>重要</b>: %%VAR%% という変数が使えなくなります。かわりに %(VAR)% を使用してください。
+* WAITする機能を追加。
+
+0.1.8:
+* オプション追加。cookie に対応
+* SetVarのバグ修正
+
+0.1.7:
+* SetVarAction/RegexpSetVarActionのエラー修正
+
+0.1.6:
+* RegexpSetVarActionのエラー修正
+
+0.1.5:
+* リダイレクト前にクライアントを解放してしまうバグを修正
+* バージョン番号のまちがいを修正
+* スレッドモードをアップデート(taskの仕様変更に追従)
+
+0.1.4:
+* CPU処理効率化のため、タスクの実行順序を変更
+* 最短レスポンスタイムのワーストランキングを表示
+* CheckNoRedirectActionを追加
+
+0.1.3:
+* fork時にCtrl+Cしてもレポートが表示されるようにした
+* fork時にプロセスが1つ死ぬと全体が死ぬようにした
+* fork時に各プロセスの起動タイミングをずらしていたのをやめた
+* fork時にRequestPerSecとTimePerRequestをまとめて表示するようにした
+* -v にrubyのバージョンもだすように修正
+
+0.1.2:
+* gemが0.1.1aというバージョン番号を認識できないようなので急遽バージョンアップ
+* CHANGESを追加
+* -v, --versionオプションを追加
+* -h, --helpの表示を変更
+
+0.1.1a:
+* max_requestがconcurrencyと同じになるバグを修正
+
+0.1.1:
+* シナリオの順序がおかしくなるバグを修正
+* 余計なパスを叩くバグを修正
+* テストを追加
+
+0.1:
+* gemパッケージ化

data/README

@@ -0,0 +1,177 @@
+= DESTROY YOUR INTERNET!!
+= 負荷試験スクリプト: インターネット破壊
+
+== インターネット破壊とは何か
+CUIで使える高機能な負荷試験スクリプトです。
+設定ファイルを作成することでシナリオ試験を実施でき、多重I/Oを利用して、簡単に高負荷をかけることができます。
+
+
+== 基本的な使い方
+コマンドライン引数でコンフィグファイルを指定します。
+
+ $ internethakai scenario.yml
+
+エラーカウントが0だった場合は、exit status 0で終了し、それ以外の場合はexit status が 1 となります。
+
+
+== シナリオの自動生成
+以下のコマンドでシナリオを自動で作成することができます。
+最初に使うときはこちらを使用してみてください。
+
+ $ hakaigen
+
+
+== 実行時オプション
+[-h --help] ヘルプを表示
+[-v --version] バージョンを表示
+[-r --max-request] リクエスト並列数を上書きします。
+[-s --max-scenario] シナリオ並列数を上書きします。
+[-l --loop] ループ回数を上書きします。
+[--test] テストモードで実行。テストモードで実行すると、強制的に並列数を1、ループ数1、1プロセス、ログレベル3で実行します。リクエストが正常に送られているか確認するために使用できます。
+
+
+=== シナリオの基本項目
+YAMLの連想配列で設定項目を指定します。指定すべきキー名について解説します。
+
+[loop] 各シナリオのループ回数を指定します。
+[max_request] HTTPクライアントの数を指定します。max_requestが10であればHTTPクライアントを10作成し、10のクライアントが同時にリクエストします。なおここで設定した値は全プロセスの合計値です。おすすめの値は "100" です(1プロセスあたり100コネクションくらいになるように調整しましょう)。
+[max_scenario] シナリオの数を指定します。デフォルトではmax_requestと同じ値になります。特に指定の必要はありませんが、アクセスするユーザーの数を増やしたい場合に多めに設定します。たとえば、max_requestが10、max_scenarioが20であれば、20*ループ数分のシナリオを10個のHTTPクラアントが順次実行していきます。<b>concurrencyというキー名から変更しました。</b>
+[log_level]
+  ログ出力のレベルを指定します。おすすめの値は "2" です。
+
+  4 :: 取得したhtmlの内容まで表示
+
+  3 :: 各リクエストの詳細を表示
+
+  2 :: 基本項目のみ表示
+[encoding] ページの文字コード UTF-8, Shift_JIS, JIS, EUC-JP
+[domain]
+ ホスト名(httpを含める)
+
+   例.
+   domian: 
+     http://example.com
+[rev] true, false。true に設定すると、RubyRevを使用し、多重I/Oでのリクエストを行ないます。おすすめの値、true。初期値true。
+[user_agent]
+  リクエストに使用するUserAgent
+    例.
+    user_agent:
+       'DoCoMo/2.0 P903i(c100;TB;W24H12)'
+[show_report] true, false。 true にすると、結果レポートを表示します。
+[save_report] true, false。 true にすると、結果レポートをファイルに保存します。
+[log_dir] 結果レポートを保存するディレクトリ。省略時は設定ファイルと同じディレクトリとなります。
+[ranking] 平均レスポンス、エラー率のワーストランキングを何位まで表示するか。デフォルトは10。
+[timeout] タイムアウトするまでの秒数。デフォルトは60秒です。おすすめの値、5。
+[actions] リクエストの内容。action のリストを指定します。後述します。
+[max_process]
+  破壊力をあげたい場合に設定しましょう。プロセス数を指定します。1プロセスあたり100コネクションくらいになるように調整しましょう。<b>forkというキー名から変更しました</b>。
+    例.
+    max_process: 4
+[host_name] 基本的に指定の必要はありませんが、特別にHOSTヘッダを指定したい場合に設定してください。
+
+
+
+
+=== actions の書き方
+==== 基本的な書き方
+ YAMLの配列形式で、アクション(1回のリクエストに相当)を書いていきます。
+ アクションは連想配列で指定します。pathというキーが必須です(アクションに文字列だけを書いた場合、pathと見なします)。
+ path キーにリクエストするパスを指定します。ホスト名を省略した場合は、基本項目で指定したものが使われます。
+ methodの値を省略した場合、GETリクエストと見なします。
+   例.
+   -
+     path: /index.php
+==== POSTリクエスト
+ method に "POST", post_params にパラメータを指定します。
+   例.
+   -
+     path: /main_loadtest.php/shop/updateWithGamePoint
+     method: POST
+     post_params:
+       equipped: "on"
+       item_id: "13"
+==== 内容のチェック
+ scan を指定すると、該当のテキストが HTML に含まれるかどうかチェックします。
+==== サイズのチェック
+ assert_size を指定すると、コンテンツのサイズが一定以上かどうかチェックします。
+==== リダイレクトの確認
+ リダイレクトの確認をしたい場合は、class に RedirectCheckActionを指定してください。
+ assert_redirect に リダイレクト先のURLを指定します。
+ assert_redirect_scan を指定すると、リダイレクト先のHTMLもチェックできます(省略可能)。
+
+   例.
+   -  path: /main.php/my/index
+      scan: "マイページ"
+   -  path: /main.php/cheat/gp
+      class: RedirectCheckAction
+      assert_redirect: /main.php/my/index
+      assert_redirect_scan: "購入したドレス"
+
+ また、リダイレクトしないことを確認したい場合は、class に NoRedirectCheckAction を指定してください。
+==== 変数の設定
+ 動的な変数を使用することができます。ユーザーIDなどを動的に取得したい場合に利用してください。
+
+ 変数を設定するには、class に SetVarAction を指定します。
+
+   例.
+     - path: /main.php/special/person
+       class: SetVarAction
+       key: person_id
+
+ person_id というキー名にレスポンスボディの中身が設定されます。これに続くアクションのパス名やPOSTパラメーターに変数を使用できます。
+
+  <b>【重要】変数の記号を変えました</b>。
+
+   例.
+     - path: /main.php/hoge/index?person_id=%(person_id)%
+
+
+==== 正規表現による変数の設定
+ 正規表現を使用して変数をセットできます(contributed by nakazawa-k)。
+
+ 変数を設定するには、class に RegexpSetVarAction を指定します。
+
+ exprというキーで正規表現を使用してください。$~[1] (最後にマッチした正規表現の後方参照の部分)が変数の値となります。
+
+   例.
+     - path: /main.php/somepath/
+       class: RegexpSetVarAction
+       expr: 'battle_id=(\d+)'
+       key: battle_id
+
+ battle_id というキー名に正規表現の(\d+)の部分がセットされます。これに続くアクションのパス名やPOSTパラメーターに変数を使用できます。
+
+
+==== WAIT
+ リクエストの際に、わざと少し待たせることができます。wait というキーを指定すると、リクエストを送る前に指定時間何もしないで待ちます。単位は秒です。
+   例.
+     - path: /main.php/somepath/
+       wait: 1.5
+
+
+== 実行時の表示
+[o] 並列数分のリクエストが終了
+[x] タイムアウトなどエラー
+[O] 1プロセス分のリクエストが終了
+
+
+== 高度な使い方
+クラスを指定することで、挙動の詳細を変更できます。
+
+=== ソーシャルアプリで使用する
+client_handler に "SocialClientHandler" を指定します。
+
+クエリパラメーターに opensocial_viewer_id というキー名で、opensocial_person_id をつけるようになります。
+
+opensocial_id_path に opensocial_person_id のリストを書いたファイルのパスを指定すると、そちらの id を選択して使用します(ファイルは改行区切り)。
+
+ファイルではなく、opensocial_ids というキー名で、opensocial_person_id のリストを指定することもできます。
+
+=== 携帯サイトで使用する(動作未検証)
+client_handler に "MobileClientHandler" を指定します。
+
+アクションごとに carrier を指定することで、ケータイキャリアを指定することもできます(1=DoCoMo, 2=KDDI, 3=SoftBank)。
+
+uid_path に uid のリストを書いたファイルのパスを指定すると、そちらの uid を選択して使用します。ファイルは、改行区切りで、各行に、キャリアid と uid を "," 区切りで書いてください。ファイルではなく、uids というキー名でuidのリストを指定することもできます。
+
+

data/bin/hakaigen

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+begin
+    require 'internethakai'
+rescue LoadError
+    require 'rubygems'
+    require 'internethakai'
+end
+gen = InternetHakai::Generator::new
+gen.build

data/bin/internethakai

@@ -0,0 +1,9 @@
+#!/usr/bin/env ruby
+
+begin
+    require 'internethakai'
+rescue LoadError
+    require 'rubygems'
+    require 'internethakai'
+end
+InternetHakai::Main::new::main

data/internethakai.gemspec

@@ -0,0 +1,27 @@
+require 'rubygems'
+require 'lib/internethakai'
+#バージョンのupdate時は
+#INSTALL, gemspec, Makefile, lib/internethakai.rb をupdate
+
+GEMSPEC = Gem::Specification::new do |s|
+    s.name = 'internethakai'
+    s.version = InternetHakai::VERSION
+    s.author = 'takada-at'
+    s.email = 'takada-at@klab.jp'
+    s.summary = 'scenario test tool for web application'
+    s.platform = Gem::Platform::RUBY
+    s.required_ruby_version = '>= 1.8.6'
+    s.executables = Dir::glob("bin/*").map{|f|File::basename(f)}
+    s.default_executable = 'internethakai'
+    s.add_dependency('rev', '= 0.3.2')
+    s.add_dependency('iobuffer', '= 0.1.3')
+    s.files = Dir::glob("{lib,bin}/**/*") + ['internethakai.gemspec']
+    s.has_rdoc = true
+    s.rdoc_options = %w(-U -c UTF-8 -t "インターネット破壊" --main=README)
+    s.extra_rdoc_files = ["README", "CHANGES"]
+    s.homepage = ''
+    s.rubyforge_project = 'internethakai'
+    s.description = <<EOF
+    scenario test tool for web application.
+EOF
+end

data/lib/internethakai.rb

@@ -0,0 +1,26 @@
+require 'internethakai/core'
+require 'internethakai/scenario_builder'
+require 'internethakai/scenario_handler'
+require 'internethakai/scenario'
+require 'internethakai/executor'
+require 'internethakai/util'
+require 'internethakai/logger'
+require 'internethakai/response'
+require 'internethakai/action'
+require 'internethakai/http_client'
+require 'internethakai/client_handler'
+require 'internethakai/reporter'
+require 'internethakai/time_register'
+require 'internethakai/client_queue'
+require 'internethakai/concurrency_manager'
+require 'internethakai/main'
+require 'internethakai/generator'
+
+module InternetHakai
+    # インターネット破壊
+    VERSION = '0.2.0'
+    GET="GET"
+    POST="POST"
+    PUT="PUT"
+    DELETE="DELETE"
+end

data/lib/internethakai.rb.~1~

@@ -0,0 +1,25 @@
+require 'internethakai/core'
+require 'internethakai/scenario_builder'
+require 'internethakai/scenario_handler'
+require 'internethakai/scenario'
+require 'internethakai/executor'
+require 'internethakai/util'
+require 'internethakai/logger'
+require 'internethakai/response'
+require 'internethakai/action'
+require 'internethakai/http_client'
+require 'internethakai/client_handler'
+require 'internethakai/reporter'
+require 'internethakai/time_register'
+require 'internethakai/client_queue'
+require 'internethakai/concurrency_manager'
+require 'internethakai/main'
+
+module InternetHakai
+    # インターネット破壊
+    VERSION = '0.1.3'
+    GET="GET"
+    POST="POST"
+    PUT="PUT"
+    DELETE="DELETE"
+end

data/lib/internethakai/action.rb

@@ -0,0 +1,403 @@
+module InternetHakai
+    # = httpリクエストを行なうアクション
+    class RequestAction < BaseAction
+        require 'kconv'
+        ERROR_MAX = 3
+        REDIRECT_MAX = 10
+        #attr_accessor :client_queue
+        def initialize opt, scenario
+            super
+            if @opt.has_key? "scan"
+                @opt["scan"] = Util::convert_encoding(@opt["scan"], @opt)
+            end
+            @logger = BaseHandler::get_handler(@opt["logger"])
+            @logging = @opt['log_level'] >= 3
+            if ! @logging
+                #メソッド書き換え！
+                def log *args
+                end
+                def http_request( method, path, bodystring = nil)
+                    if @redirect > REDIRECT_MAX
+                        return on_error('too many redirect')
+                    end
+                    path = @client_handler.handle_url(@http_client, path, @opt)
+                    bodystring = @client_handler.handle_body(@http_client, bodystring, @opt) if bodystring
+
+                    # リクエスト処理
+                    @http_client.request_send(method, path, bodystring)
+                end
+            end
+            if @opt['rev']
+                @rev = true
+                @task_queue = BaseHandler::get_handler('TaskQueue')
+                def call_on_complete response
+                    @task_queue.add(@on_complete_method)
+                end
+                def on_free
+                    if @http_client
+                        @http_client.release
+                        @http_client = nil
+                    end
+                end
+            else
+                def call_on_complete response
+                    on_complete
+                end
+                def on_free
+                end
+            end
+            @register = BaseHandler::get_handler(@opt["response_handler"])
+            clcls = BaseHandler::get_class(@opt["client_handler"])
+            @client_handler = clcls::new(@scenario)
+            @method_run = method(:run)
+            #@call_on_complete_method = method(:call_on_complete)
+            @on_complete_method = method(:on_complete)
+            @on_error_method = method(:on_error)
+            @ruby19 = RUBY_VERSION >= "1.9"
+        end
+        def set_client cl
+            @http_client = cl
+        end
+        def get_client
+            client = @http_client
+            client.reconnect
+            client.set_callback(@on_complete_method, @on_error_method)
+            client
+        end
+        def mkclient
+            #puts "error: run out of http client: create"
+            clientcls = @opt['client_class_obj']
+            cl = clientcls::create2(@opt['host'], @opt['port'])
+            cl.timeout = @opt['timeout']
+            cl.set_headers(@opt['header'])
+            return cl
+        end
+        def get_default
+            {
+                "method" => "GET"
+            }
+        end
+        def run
+            super
+            return unless @opt['path']
+            init
+            @client_handler.performance_id = @performance_id
+            #p [object_id, @client_handler.object_id]
+            @client_handler.set_opt(@opt)
+            @http_client = get_client
+            #return dispatch_next unless @http_client
+            #return unless @http_client
+            @http_client = @client_handler.handle_client(@http_client)
+            @register_key = @opt["type"]
+
+            @http_client.set_cookie(@scenario.cookie) if @scenario.cookie
+            http_request(@opt['method'], @opt['path'], @opt['post_string'])
+        end
+        def init
+            @redirect = 0
+            @debug_msgs = []
+            @errorcount = 0
+        end
+        def on_free
+        end
+        def free
+            on_free
+            @scenario.next
+            #@_on_complete_calback.call if @_on_complete_calback
+            @scenario_handler.quit_action(@scenario_id)
+        end
+        def log *args
+            @debug_msgs << args.join
+        end
+        # http リクエスト発行
+        # path: urlのpath
+        # body: postの場合のbody
+        def http_request( method, path, bodystring = nil)
+            if @redirect > REDIRECT_MAX
+                return on_error('too many redirect')
+            end
+            url = path
+            url = @client_handler.handle_url(@http_client, url, @opt)
+            #p [self.object_id, self.performance_id, url]
+            #bodystring = @client_handler.handle_body(@http_client, bodystring, @opt) unless bodystring.nil?
+            bodystring = @client_handler.handle_body(@http_client, bodystring, @opt) if bodystring
+
+            log("URL:::", url)
+            log "BODY:::", bodystring.to_s
+            # リクエスト処理
+            @http_client.request_send(method, url, bodystring)
+        end
+
+        def on_error err, response=nil
+            if err.is_a? String
+                @logger.run(err, 2)
+                @errorcount += 1
+                on_complete response
+                return
+            elsif err.is_a? TimeoutError
+                @logger.run("x", 2)
+                @errorcount += 1
+                on_complete response
+                return
+            elsif err.is_a? SystemCallError
+                free
+                raise err
+            elsif err.is_a? SocketError
+                free
+                raise err
+            elsif err.is_a? Interrupt
+                free
+                raise err
+            elsif err.is_a? Exception
+                free
+            end
+            @logger.run("error: #{err.to_s}\n", 2)
+            @errorcount += 1
+            return on_complete(response)
+        end
+
+        #リクエスト完了時の処理
+        def on_complete response
+            if response.nil? #レスポンスが空の場合。時間だけ記録
+                @http_client.release
+                @http_client = nil
+                
+                log "CONTENT_LENGTH:::", 0
+                @register.regist(@register_key, 0, response, @errorcount)
+                free
+                return
+            end
+
+            if (response.status / 100 == 3)
+                #リダイレクトの場合
+                begin
+                    ok = false
+                    url = response.location
+                    tmp = url.size
+                    idx = url.index('/', 8) || url.size
+                    path = url[idx, tmp ]
+                    path = '/'+path if path[0,1]!='/'
+                    @logger.run(response.body, 4) if response && @errorcount>0 && (response.content_type.include?('text') || response.content_type.include?('xml'))
+                    on_redirect path
+                    @redirect += 1
+                    @redirect_url = path
+                    #リダイレクトの場合は次のリクエストへ
+                    @opt['url'] = url
+                    log "REDIRECT:::", url
+                    log "++++++++++++++++++++++++++++++++++++++\n"
+                    @logger.run(@debug_msgs.join("\n")+"\n",3)
+                    @debug_msgs = []
+
+                    @logger.run("\r\n+++++++++++++++++++++++++++++++\n", 4)
+                    @rtime = response.time unless response.nil?
+                    @register.regist(@register_key, @rtime, response, @errorcount)
+                    @scenario.set_cookie(response.cookie)
+                    #@response = nil
+                    if @opt['follow_redirect']
+                        @register_key = @redirect_url.gsub( /\?.*$/, '' ).gsub( /[#;].*/, '' )
+                        @http_client.reconnect
+                        ok = true
+                        http_request(GET, @redirect_url, nil)
+                        return
+                    else
+                        #リダイレクトリクエストしない / freen呼ぶ
+                        free
+                        return
+                    end
+                rescue
+                    raise
+                    free unless ok
+                    return
+                end
+            end
+
+            begin
+                #puts "on complete1: #{Time::now.usec/1000.to_f}"
+                @http_client.release
+                @http_client = nil
+                log "STATUS_CODE:::",response.status
+                size = 0
+                size = response.body.size if response.body
+                log "CONTENT_LENGTH:::",size
+                if response.status != 200
+                    if response.content_type != 'application/x-shockwave-flash'
+                        log "RESPONSE:::", response.body
+                    end
+                end
+                @rtime = response.time
+                @scenario.set_cookie(response.cookie)
+                log "RESPONSE_TIME:::",@rtime
+                #puts "on complete1.1: #{Time::now.usec/1000.to_f}"
+
+                response.body.force_encoding(@opt['encoding']) if @ruby19 and (response.content_type.include?('text') || response.content_type.include?('xml'))
+                if(@opt["scan"])
+                    check_scan response.body, @opt["scan"]
+                end
+                if(@opt["assert_size"])
+                    check_size response.body, @opt["assert_size"]
+                end
+                on_response(response)
+
+                #puts "on complete2.1: #{Time::now.usec/1000.to_f}"
+                @register.regist(@register_key, @rtime, response, @errorcount)
+                #puts "on complete2: #{Time::now.usec/1000.to_f}"
+
+                @debug_msgs << "++++++++++++++++++++++++++++++++++++++\n"
+                @logger.run(@debug_msgs.join("\n")+"\n",3)
+                @debug_msgs = []
+                @logger.run(response.body, 4) if response && (response.content_type.include?('text') || response.content_type.include?('xml'))
+                @logger.run("\r\n+++++++++++++++++++++++++++++++\n", 4)
+            ensure
+                free #絶対freeを呼ぶ！
+            end
+        end
+
+        def on_redirect newurl
+
+        end
+        def on_response response
+        end
+        def check_size body, size
+            unless body.size > size
+                @debug_msgs << "SIZE_CHECK:::false:::"+body.size.to_s
+                @errorcount += 1
+            else
+                @debug_msgs << "SIZE_CHECK:::true"
+            end
+        end
+        def check_scan body, scan
+            unless body.include? scan
+                @debug_msgs << "SCAN:::false:::"+scan
+                @errorcount += 1
+            else
+                @debug_msgs << "SCAN:::true"
+            end
+        end
+        def to_s
+            "<#{self.class}:#{object_id}:#{@opt['path']}>"
+        end
+        # 黒魔術
+        def set_wait
+            @oldrun = method(:run)
+            if @opt['rev']
+                def self.fire
+                    @timer.disable
+                    @oldrun.call
+                end
+                def self.run
+                    @timer.reset
+                    @timer.enable unless @timer.enabled?
+                end
+                @timer = Rev::TimerWatcher::new(@opt['wait'], true)
+                @timer.attach(Rev::Loop::default)
+                @timer.disable
+                @timer.on_timer(&method(:fire))
+            else
+                def self.run
+                    sleep @opt['wait']
+                    @oldrun.call
+                end
+            end
+        end
+    end
+    #変数をセットするアクション
+    class SetVarAction < RequestAction
+        def on_response response
+            return if response.nil? || response.status != 200
+            if @opt['key']
+                @client_handler.set_var(@opt['key'], response.body.chomp)
+                @debug_msgs << "SET_VAR:::#{@opt['key']}: #{response.body.chomp}\n"
+            end
+        end
+    end
+    #正規表現で取得した変数をセットするアクション
+    class RegexpSetVarAction < RequestAction
+        def on_response response
+            return if response.nil? || response.status != 200
+            if @opt['key'] && @opt['expr']
+                r = @opt['compiled_expr']
+                r =~ response.body
+                if Regexp.last_match
+                    @client_handler.set_var(@opt['key'],Regexp.last_match(1))
+                    @debug_msgs << "REGEXP_SET_VAR:::#{@opt['key']}: #{Regexp.last_match(1)}\n"
+                end
+            end
+        end
+    end
+    #リダイレクトしないことをチェック
+    class NoRedirectCheckAction < RequestAction
+        def on_redirect newurl
+            @errorcount+=1
+            log "ASSERT_NO_REDIRECT:::false"
+        end
+    end
+    class  SleepAction < RequestAction
+        def run
+            sleep @opt['wait']
+            super
+        end
+    end
+    class TimerAction < RequestAction
+        alias :run_super :run
+        def initialize opt, scenario
+            super
+            @timer = Rev::TimerWatcher::new(opt['wait'], true)
+            @timer.attach(Rev::Loop::default)
+            @timer.disable
+            @timer.on_timer(&method(:fire))
+        end
+        def fire
+            @timer.disable
+            run_super
+        end
+        def run
+            @timer.reset
+            @timer.enable unless @timer.enabled?
+        end
+    end
+    #リダイレクトをチェック / config に assert_redirectという名前でリダイレクト先を追加
+    class RedirectCheckAction < RequestAction
+        def initialize opt, scenario
+            super
+            if @opt.has_key? "assert_redirect_scan"
+                @opt["assert_redirect_scan"] = Util::convert_encoding(@opt["assert_redirect_scan"], @opt)
+            end
+        end
+        def on_redirect newurl
+            if curl = @opt["assert_redirect"]
+                if curl.is_a? Array
+                    if curl.any?{|u| newurl.include? u}
+                        log "ASSERT_REDIRECT:::true #{newurl}"
+                    else
+                        @errorcount+=1
+                        log "ASSERT_REDIRECT:::false #{newurl}"
+                        #@detail += "invalid redirect: " + newurl
+                    end
+                else
+                    if ! newurl.include? @opt["assert_redirect"]
+                        @errorcount+=1
+                        #@detail += "invalid redirect: " + newurl
+                        log "ASSERT_REDIRECT:::false #{newurl}"
+                    else
+                        log "ASSERT_REDIRECT:::true #{newurl}"
+                    end
+                end
+            else
+                @errorcount += 1
+            end
+        end
+        def on_complete response
+            super
+            if(@redirect >= 1 && @opt["assert_redirect_scan"])
+                return if response.nil?
+                scan = @opt["assert_redirect_scan"]
+                unless response.body.include? scan
+                    log "REDIRECT_SCAN:::false:::"+scan
+                    @errorcount += 1
+                else
+                    log "REDIRECT_SCAN:::true"
+                end
+            end
+        end
+    end
+end