t/configure/031-base.t

   1 #!perl
   2 # Copyright (C) 2001-2005, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib qw( lib );
   9 use Test::More tests =>  5;
  10
  11 =head1 NAME
  12
  13 t/configure/031-base.t - tests Parrot::Configure::Step
  14
  15 =head1 SYNOPSIS
  16
  17     prove t/configure/031-base.t
  18
  19 =head1 DESCRIPTION
  20
  21 Regressions tests for the L<Parrot::Configure::Step> abstract base
  22 class.
  23
  24 =cut
  25
  26 BEGIN { use Parrot::Configure::Step; }
  27
  28 package Test::Parrot::Configure::Step;
  29
  30 use base qw(Parrot::Configure::Step);
  31
  32 sub _init {
  33     my $self = shift;
  34     my %data;
  35     $data{description} = q{foo};
  36     $data{result}      = q{};
  37     return \%data;
  38 }
  39
  40 package main;
  41
  42 my $testpkg = 'Test::Parrot::Configure::Step';
  43
  44 can_ok( $testpkg, qw(new description result set_result) );
  45 isa_ok( $testpkg->new, $testpkg );
  46
  47 {
  48     my $teststep = $testpkg->new;
  49
  50     is( $teststep->result('baz'), q{}, "->set_result() returns the class" );
  51     isa_ok( $teststep->set_result('baz'), $testpkg );
  52     is( $teststep->result, 'baz', "->set_result() changed the result value" );
  53 }
  54
  55 # Local Variables:
  56 #   mode: cperl
  57 #   cperl-indent-level: 4
  58 #   fill-column: 100
  59 # End:
  60 # vim: expandtab shiftwidth=4: