一次元配列同士の比較のいろいろなやり方 - harupiyoの日記
問題 @a = (1,2,3); @b = (1,2,3); のような配列があったとして、これらの中身が同じ(@a = @b) であることを確認したいと思います。 細かい条件として、値は正の数字のみ(負はない、)で並び順は気にしない、かつ同じ番号はないという事にします。 かんたんに考えると、次の二つの条件を満たせればいいはずです。 二つの要素の数が同じであること 先頭から比較して、末尾までの各項目の内容が等しいこと 素直にコーディングすると... sub is_same($$){ my($a,$b) = @_; # (1)二つの要素の数が同じであること return 0 if @$a != @$b; # (2)先頭から比較して、末尾までの内容が等しいこと for (0..$#$a){ return 0 if $a->[$_] != $b->[$_]; } return 1; } というサブ
Test::Perl::Critic
NAME Test::Perl::Critic - Use Perl::Critic in test programs SYNOPSIS Test one file: use Test::Perl::Critic; use Test::More tests => 1; critic_ok($file); Or test all files in one or more directories: use Test::Perl::Critic; all_critic_ok($dir_1, $dir_2, $dir_N ); Or test all files in a distribution: use Test::Perl::Critic; all_critic_ok(); Recommended usage for CPAN distributions: use strict; use w
Test-Behaviour-Spec-0.01 を CPAN へ登録 - Tociyuki::Diary
Perl のテストで Behaviour Driven Development (BDD) して遊ぶためのモジュールを CPAN に登録しました。ご利用ください。 ⇒ http://search.cpan.org/~tociyuki/Test-Behaviour-Spec-0.02/ 0.01 の POD の使用例コードにセミコロンが一ヶ所抜けていたので、修正しました。コード本体は 0.01 と同じです。 ⇒ http://search.cpan.org/~tociyuki/Test-Behaviour-Spec-0.01/ Test::Behaviour::Spec は、ふるまいを記述するための述語 describe、it、spec をサブルーチンとして使えるようにするだけで、いっさい Test::More 等への変更をおこないません。そのため、従来のどのようなテストにも、ふるまい記述を
Test::Base - データドリブンのテストフレームワーク - perldoc.jp
名前¶ Test::Base - データドリブンのテストフレームワーク 概要¶ A new test module: 新しいテストモジュール: # lib/MyProject/Test.pm package MyProject::Test; use Test::Base -Base; use MyProject; package MyProject::Test::Filter; use Test::Base::Filter -base; sub my_filter { return MyProject->do_something(shift); } A sample test: テストの例: # t/sample.t use MyProject::Test; plan tests => 1 * blocks; run_is input => 'expected'; sub local_fi
第2回 Test::Baseの紹介 | gihyo.jp
モバイルファクトリーの伏原です。 私は今回Test::Baseというモジュールを紹介させてもらいます。 Test::Baseとは Test::Baseは、Kwikiなどの作者として知られるIngy döt Net氏が作成した“Data Driven Testing Framework（データ駆動型テストフレームワーク）”です。 データ駆動型テストとは何なのか、実際のテストを見て頂くのが一番早いと思うので、早速実際にTest::Baseを使ったテストを書いてみることにします。 今回使うサンプルプログラム NabeAtzz問題を解くプログラムを作ります。NabeAtzz問題にはいくつかのバリエーションがありますが、今回は以下の条件を満たすもの、と言うことにします。 1からnまでの整数に対して 3の倍数の時は“fool”と出力する 5の倍数の時は“dog”と出力する いずれかの桁に3
第1回 Perlにおけるテストの概要／TAPとは？ | gihyo.jp
モバイルファクトリーの松野です。 今回から数回にわたって、Perl におけるテスト手法についてリレー形式で詳細に解説していきたいとおもいます。 今回は初回ですので、ざっくりと概論になります。 Perlの世界におけるテストの重要性 Perlの世界においてはテスト（test）は大変重要視されています。 その特徴がよく表れているのがCPAN Testersではないでしょうか。 CPAN Testers Perlといえば何はなくともCPANなわけですが、CPANでモジュールを探していると、図1のように、「CPAN Testers」という項目があることに気付きます。 図1 CPAN Testers 世界中のPerl Mongersが、自分のマシンでテストを動かして、その結果をCPANに送っているのです。これにより、様々なOS／CPU／versionのPerlでテストがされています。貴方も気軽にCP
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Happy Testing Perl 記事一覧 | gihyo.jp
Test::Base