超テスト入門 〜 サブルーチン復習とrequire, use - Qiita
この記事は Perl入学式 Advent Calendar 2014 の 5日目です。 こんにちは。サポーターさせていただいてます まっすー（@trapple ）です。 今日は昨日までと少し流れを変えて、普段のPerl入学式と同じような内容で行きたいと思います。 今年のPerl入学式の進行具合ですと、第4回サブルーチン/正規表現が終わったり終わらなかったりな進行具合だと思います。 今回はそのサブルーチンをちょっと発展させた内容になります。 サブルーチンまだ習ってないよ！ or 忘れちゃったよ！って人はまずは講義資料に目を通してみてください。 復習問題 それでは簡単な復習問題からスタートします。 mon, tue, wedといった3文字英語表記の曜日を引数として受け取り、月曜日, 火曜日, 水曜日といった日本語3文字表記の曜日を返すサブルーチンtranslate()を作ってください。 標準入
Test Anything Protocol - Wikipedia
This article is about An automated testing protocol. For the network tunnel driver, see TUN/TAP. This article needs additional citations for verification. Please help improve this article by adding citations to reliable sources. Unsourced material may be challenged and removed. Find sources: "Test Anything Protocol" – news · newspapers · books · scholar · JSTOR (October 2017) (Learn how and when t
Perlでオブジェクト指向 - 簡単なのでやってみませう。
(Too many spams ... embedded comments are not allowed now, sorry.) 2005-11-25 (Fri) 14:27:42 bless がわからん。 2005-11-22 (Tue) 12:55:20 d? : ここを見る人は、Perlのクラス作り方がわからない人でしょう？ 2005-11-22 (Tue) 12:54:50 d? : テストファースト良いと思うのですが、このページの最初に書くのは間違いだとおもいますね。 2005-09-20 (Tue) 14:00:54 オブジェクト指向の概念はお腹いっぱいですが、実際に運用出来るかと言うと・・プログラムの閉じ方がさっぱりわかりません。ちょこっと作ってテストみたいなのが、さっぱりです 2005-08-17 (Wed) 11:21:32 「クラスはどうやって書くの？」の中に「まず
404 Blog Not Found:テキストエディタさえあればできるTDD
2006年10月25日15:25 カテゴリLightweight Languages テキストエディタさえあればできるTDD なんかえらい誤解されているのだけど、私も舌足らずだったかもしれない。 Perl Testing Ian Langworth / Chromatic 『WEB+DB PRESS Vol.35』:実演! テスト駆動開発 - 角谷HTML化計画 (2006-10-24)TDDはハッカーのための技術ではない。ハッカーにTDDは要らない。ただただハックすればよい。偉大なプログラマは偉大なプログラミングをすればよい。だが、ハッカーならぬ凡百たる私のような"普通の"プログラマはそうはいかない。TDDは我々が日々の仕事に自信を持ち、誇りを持って定時に帰るための思想だ。 私が言いたかったのは、Test Driven Development (TDD)に関しては、JavaよりPerlを
テスト駆動で 0 から 255 の数字にマッチする正規表現へ変形してみる - Tociyuki::Diary
ぶくま経由で、RFC 3986 URI の日本語訳にたどり着き、読んでいました。スムーズな日本語ですんなりと読めて、良い訳だと思いました。私は誤訳を見つけられませんでした。 それはともかく、読んでいる最中に、RFC3986 だけではないのですが、IPv4 アドレスの数字にマッチする構文が、正規表現向けでないのに改めて気になりました。RFC の記述をそのまま正規表現にすると、バックトラックをおこす書き方になっています。 バックトラックがおきないようにするには、先頭から1文字ずつ見ていくだけで残りの選択肢のどれに進めばいいか決定できるようにすればよろしい。ということで、これをテスト駆動で正規表現に向いた記述に変更してみました。 ⇒ http://www.studyinghttp.net/cgi-bin/rfc.cgi?3986#Sec3.2.2 IPv4address = dec-octet
warn/die/exceptionのテスト
しばらく読んでいなかった『PerlTesting』再開。 2章の最後に出てくるwan/die/exceptionのテスト。 Test::Warn warnで出力されるメッセージをテスト。文字列系テストなのでTest::Moreのisとかlikeと同じようなものがTest::Warnにはあります。 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 8; use Test::Warn; sub add_positives { my ($l, $r) = @_; warn "first argument ($l) was negative" if $l < 0; warn "second argument ($r) was negative" if $r < 0; return $l + $r; } warning
テストをTODO扱いにする
Test::MoreでテストをTODO扱いにすることが出来ます。どういうことかというと、 test自体は普通に行う。 失敗してもそれはTODO扱いとして、トータルの結果では成功したことにする。 という感じ。 いくつかの機能が未実装の（というかほとんどなにもしてない）シャーペンモジュール（正しくはmechanical pencil、でも長いから嫌）があるとします。 package Pencil; use strict; use warnings; sub new { my $class = shift; return bless {}, $class; } sub leads { # TODO } sub supply_leads { # TODO } 1; #!/usr/bin/perl use strict; use warnings; use Test::More tests => 3
テストをスキップする
数日間が空いたけど、PerlTesting再開。 条件に合わせてテストをスキップしたい場合があったりします。たとえば、 依存モジュールがインストールされてなかったらスキップ とあるOSだったらスキップ ネットワークにつながってなかったらスキップ などなど。そういう時はskip関数を使います。 テストするモジュール。 package Phrase; use strict; use warnings; sub new { my ($class, $text) = @_; bless \$text, $class; } sub text { my $self = shift; return $$self; } sub as_dutch { my $self = shift; require WWW::Babelfish; return WWW::Babelfish->new->translate
もっと便利な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
はじめての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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
