タグ

Perlに関するmodal_soulのブックマーク (3)

  • Test::Moreのsubtestのテストはどう書くのが一番きれいなのか #perlましましブログ | ましましブログ

    Perlでユニットテストを書いているといつもどうやって書くか迷う。 自分のよくやるやり方は、とりあえず弊社内の風潮に合わせてTest::Moreが多いので、 Test::Moreを使うとして、そっからsubtestでテストケースを クラス中のメソッドごとにわけて、さらにsubtestで前提条件毎に分けて、 その上で書く入力毎にok, is, is_deeply, dies_ok, lives_ok等々で 比較していくっていう方式で書いている。RSpec風? subtest "foo_method" => sub { my $subject = Bar->new; subtest "A context" => sub { subtest "given xxx arguments" => sub { my $actual = $subject->foo_method; is $actual,

  • perl でテストを始めよう!! - Articles Advent Calendar 2011 Test

    はじめに こんにちはこんにちは!最近会社のモニターが二枚になって持て余している xaicron です。 さて、Test Track と称して始まったトラック。全部よめばあなたもテストを書かずには生きていけない、そんな身体に大変身していること間違いなしです。 とりあえず今日は初日なので、perl でテストを書くときに必ずと言っていいほど利用する Test::More を使ったテストの書き方を書こうと思ます。 また、「テスト」とざっくりといってもいろいろなものがありますが、その辺の細かい話はきっと ikasam_a さんが書いてくれるのでスルーします。 Test::More チートシート まず、More というだけあって、結構機能がいっぱいあるので、チートシートを先にあげておきます。perldoc Test::More のほぼコピペですが、きっと皆さんは perldoc Test::More

    perl でテストを始めよう!! - Articles Advent Calendar 2011 Test
  • Perlにおける定数宣言(constant or Readonly or Attribute::Constant) - Unknown::Programming

    正直言いますと、個人的には定数って殆ど使わないんですよね。 昔はちょこちょこ使ってたんですが、最近は定数となりうる物は基的にYAML等外部ファイルに持たせて変更可能にすることが多いのでまったく使ってません。 ですがそれでもPerlで定数を使いたい時にはどーすんの?っていう時のために軽くここにまとめておきます。 言わずもかなPerl5.8にはconstantという定数を定義できる標準モジュールがあります。 use strict; use constant PI => 3.14; # 表示 print PI; # 3.14 # 上書きしようとすると・・・ PI = 3; # Can't modify constant item in scalar assignment とこのように上書きしようとするとエラーを吐いて死にます。 しかも実行時ではなく、コンパイル時にエラーを吐きます。 実はこのc

    Perlにおける定数宣言(constant or Readonly or Attribute::Constant) - Unknown::Programming
  • 1