Testing Web Application 2011秋 - tokuhirom's blog
とにかく楽に、お気軽に。お気軽にテストを追加できて、お気軽にテストを実行できる。というのがなによりも重要です。 追加しようとおもったときに「どう追加したらいいかわからない」という状況になりがちなので、あらかじめいろいろな構成要素ごとにテストをひととおりかいてみるというのも重要だとおもいます。O/R Mapper のクラスのテストとか、model のテストとか、コントローラのテストとか、JSON API のテストとか。。 ExtUtils::MakeMaker でテストをうごかさないExtUtils::MakeMaker を素でつかうと blib/ とかつかってきてうざいので、Makefile.PL に以下のような hack をほどこしてあります。ウェブアプリケーションで blib/ とかにコピーする必要ないですよね。実運用でも blib/ でうごかさないし、インストールもしませんし。 #
はじめてのTest::More
Chapter1の後半戦は、Test::More。 Perl Testing: A Developer's Notebook (Developers Notebook) Test::MoreはTest::Simpleのスーパーセットで完全に置き換えて使ってOK、モジュールをただしく読み込めたかどうかなどのテスト関数も含めいろんな機能あるでよ、とのことです。 早速。 package AnalyzeSentence; use strict; use warnings; use base qw/Exporter/; our $WORD_SEPARATOR = qr/\s+/; our @EXPORT_OK = qw($WORD_SEPARATOR count_words words); sub words { my $sentence = shift; return split $WORD_SE
Perl Testing (and Automation) Basics: YAPC::Asia 2008 - May 15-16th in Tokyo, JAPAN
Perl Testing (and Automation) Basics スピーカー Daisuke Maki (lestrrat) 応募者 Shibuya.pm 日付: 2008/05/15 13:45 期間: 40分 言語:日本語 スライド: http://users.endeworks.jp/~daisuke/presentations/yapc/TestingAndAutomation.ppt 業務でなんだかテスト／デプロイ／開発でもやもやしている方向け。 Perl Testing (and Automation) Basics - * WHY? - Automation is your friend! * CPANize your modules * make test is your friend * Test::More Apache::Test * Testing (w
SYNOPSISの構文を自動でチェックする - Islands in the byte stream (legacy)
新しいモジュールの使い方を調べるときに真っ先に目を通すのがPODのSYNOPSISセクションである。特に，英語が母語ではないPerlerにとってはPODの中で最も重要なセクションといっても過言ではない。それだけに，自らモジュールを書くときは細心の注意を払う。 ところで，その内容の構文チェックは今まで手動でやっていたのだが，Test::Weakenのテストファイルを眺めていると面白いテストがあった。synpsis.tというのがそれで，PODのSYNPISISセクションの中身を抜き出して実行するというものだ。考えてみれば，構文チェックで十分なら特別なモジュールのサポートを得なくても簡単に書くことができる。 そこで，一般化してModule::Setup用のテンプレートにしてみた。 #!perl -w use strict; use Test::More tests => 1; use [% mo
Test::WWW::Mechanize::CGIApp
NAME Test::WWW::Mechanize::CGIApp - Test::WWW::Mechanize for CGI::Application SYNOPSIS # We're in a t/*.t test script... use Test::WWW::Mechanize::CGIApp; my $mech = Test::WWW::Mechanize::CGIApp->new; # test a class that uses CGI::Application calling semantics. # (in this case we'll new up an instance of the app and call # its ->run() method) # $mech->app("My::WebApp"); $mech->get_ok("?rm=my_run_m
もっと便利なok()
PerlTestingのChapter1最終戦です。 ok()って基本中の基本ですがやっぱり不便です。いろんなテストがあるのに条件を1個に縮めないといけないんですもの。でも、Test::Moreにはok()の代わりに使えるイケてる関数がいくつかあります。 まずはテストコード。 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 4; use_ok('Greeter') or exit; my $greeter = Greeter->new(name => 'Emily', age => 21); isa_ok($greeter, 'Greeter'); is($greeter->age(), 21, 'age() should return age for object'); like($greeter->gr
複雑な構造のデータをテストする
まだ、『PerlTesting』はChapter 2。 今までやってきたテストは、単純なスカラー値のテストと関数のテストのみですが、もっと複雑なデータをテストしたい場合があります。 Test::More::is_deeply :is_deeply:リファレンスを追いかけて複雑な構造のデータを比較して同じかどうかテストする たとえば、リスト＞ハッシュ＞スカラー、リストのテスト。 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; my $list1 = [ { name => 'Tom' family => [qw/father mother dog/], }, { name => 'Bob', family => [qw/father mother sister cat/], } ]; my $list2
IntroTestMore - A Perl Testing Tutorial
IntroTestMore - A Perl Testing Tutorial 目次 ■なぜテストするのか ■恐れないで！ ■ベーシックテスト ■Test::Simple とその API ■開発過程にテストを盛り込む ■Test::More の API について A Perl Testing Tutorial chromatic (http://wgz.org/chromatic/) (http://wgz.org/chromatic/perl/IntroTestMore.pdf) 英語がそのまま残ってる部分は意味がわからなかっとこなので、 適当に補完してね。 ■なぜテストするのか コードが仕様どおりの動きをすることを確認する。 o 実装忘れの防止 o アクシデントに対する動き o 全てのテストにパスすれば完成 境界条件のチェック o 不正な入力をどう扱うか o イジワルな操作にどう対処す
HTTP::WebTest - 静的及び動的なウェブコンテンツのテスト
名前 HTTP::WebTest - 静的及び動的なウェブコンテンツのテスト 概要 use HTTP::WebTest; my $webtest = new HTTP::WebTest; # run test from file # ファイルからテストを実行 $webtest->run_wtscript('script.wt'); # or (to pass test parameters as method arguments) # もしくはメソッドの引数にテストパラメータを指定 $webtest->run_tests($tests); 説明 導入 このモジュールは PERL/JSP/HTML/JavaScript等を含むリモートURL上の テストを実行し, 詳細なレポートを生成します. このモジュールは "そのまんま"使うことができます. またその機能をプラグインを用いて 拡張すること
Test::Tutorial - ごく基本的なテストを書くことについてのチュートリアル - perldoc.jp
名前¶ Test::Tutorial - ごく基本的なテストを書くことについてのチュートリアル 概要¶ あーーーーー!!!!テストは嫌! 何をおいてもテストは嫌! ぶっても、むち打っても、デトロイトに送ってもいいけど、 テストを書かせないで! *しくしく* おまけに、そんな忌まわしいものの書き方など知りません。 あなたはこんな人ですか？ テストを書くことは、ちょうど、ドキュメントを書き、指の爪を引き抜くことですか？ テストを開き、読み、 ######## いくつかの黒魔術を始めます。 テストはもうたくさんだと判断しますか？ いいでしょう。全ては行ってしまいました。あなたのために、黒魔術をすべて行いました ここにその仕掛けがあります… テストの基本¶ 最も基本的なテストのプログラム。 #!/usr/bin/perl -w print "1..1\n"; print 1 + 1 == 2 ?
Test::WWW::Mechanize で Web アプリケーションをテストファースト開発
Test::WWW::Mechanize で Web アプリケーションをテストファースト開発 テストファースト開発に慣れてしまうと、テストコード無しにプログラムを書くというのは不安でたまらなく感じてくる。 テストが欲しい。安らぎが欲しい。 今開発している WiKicker ベースの Web アプリケーションもだんだん機能が増えてきて、コードを触るのがコワくなってきた。 今回は Basic 認証等もあるので、WWW::Mechanize::CGI ではなくてきちんと deploy してから Test::WWW::Mechanize でテストすることにした。 Test::WWW::Mechanize、使ってみると WWW::Mechanize + Test::More よりテストを書くのも読むのも楽になった。 deploy が必要なリグレッションテストはさすがに t/ の下に入れておくのはどう
第2回 Perlによるテストの自動化 | gihyo.jp
管理者の重要な仕事のひとつに、テストがあります。新しいシステムのテスト、H/W、 OSやソフトウェアなどの移行にともなうテスト、過去に発生したミスの再発防止テストなどいろいろなテストありますが、目的はシステムが要件通りに稼働し続けることの保証です。今回は、テストの自動化を取り上げます。 テストの自動化 安定したシステムにテストは欠かせませんが、みなさんの環境ではどのようにテストをしているでしょうか。手順がExcelに並べられているだけだったりしませんか。ミスが起きたら、再度同じミスをしないためのテストをしていますか。ミスが起きない、もしくはミスがあってもできるだけ迅速に検知できることをテストで保証できているでしょうか。 以前ファイアーウォールの移行作業をしたのですが、製品のベンダが異なるためACLの記法も異なり、設計思想も異なっていため、簡単にはACLを移行することができませんでした。AC
Perlでのモジュールテストについて - libnitsuji.so
なんか（ダラダラと）長くなるんでさわりだけ先に書く。 $ prove -lr - Test::SimpleとかTest::Moreとかを使ってテストを書いて実行する。h2xsとかModule::Starterとかは使わない。make testも使わない。 例えばQueueというクラスがあるとする。 package Queue; use strict; use warnings; sub new { my ( $class, @items ) = @_; return bless ?@items, $class; } sub size { my $self = shift; return scalar @$self; } sub enqueue { my ( $self, $item ) = @_; push @$self, $item; } sub dequeue { my $self =
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://template-toolkit.org/svnweb/Template2/checkout/trunk/t/string.t
Perlを使って脆弱性を検証する
HTTP::WebTest::Plugin::ResponseTimeTest - 応答時間のテスト
Happy Testing Perl 記事一覧 | gihyo.jp
http://www.removabletype.net/programming/perl_modules_for_testing.html