Perl Test Class

Test::Class (http://search.cpan.org/dist/Test-Class) is a PerlLanguage xUnit TestingFramework. Unlike PerlUnit Test::Class is built on top of Perl's standard PerlTap based testing framework.

An example test class:

  { package MoneyTest;
    use base 'Test::Class';
    use Test::More;

    my ( $chf_12, $chf_14, $usd_28 );

    sub make_fixtures : Test( setup ) {
        $chf_12 = Money->new( CHF => 12 );
        $chf_14 = Money->new( CHF => 14 );
        $usd_28 = Money->new( USD => 28 );
    }

    sub simple_add : Test {
      is_deeply( $chf_12+$chf_14, Money->new( CHF => 26 ) );
    }

    sub money_bag : Test {
      is_deeply( $chf_12+$usd_28+$chf_14, Money->new( CHF=>26, USD=>28 ) );
    }
  }

An example test suite:

  use MoneyTest;
  Test::Class->runtests;

which would send the following PerlTap output to STDOUT:

  1..2
  ok 1 - money bag
  ok 2 - simple add

(assuming all the tests pass :-)

CategoryPerl, CategoryTesting