Perl テストプランツールのサンプル

テストプランツールのサンプル

#!/usr/local/bin/perl -w
use strict;
use Data::Dumper;
use Test::More qw(no_plan);

use lib './lib';

BEGIN {
use_ok('Original::Person');# パールモジュール
};

my $p = Original::Person->new('Tom');

is ($p->tel,'0123-123-1234', 'tel number');
is ($p->age,'24', 'age');