Author: jhoblitt
Date: Tue Dec 27 20:05:11 2005
New Revision: 10718
Added:
trunk/t/configure/configure.t (contents, props changed)
Modified:
trunk/MANIFEST
Log:
initial Parrot::Configure tests
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Tue Dec 27 20:05:11 2005
@@ -1829,6 +1829,7 @@ t/compilers/tge/harness
t/compilers/tge/parser.t []
t/configure/base.t []
t/configure/config_steps.t []
+t/configure/configure.t []
t/configure/data.t []
t/configure/step.t []
t/distro/manifest_skip.t []
Added: trunk/t/configure/configure.t
==============================================================================
--- (empty file)
+++ trunk/t/configure/configure.t Tue Dec 27 20:05:11 2005
@@ -0,0 +1,62 @@
+#!perl
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
+# $Id$
+
+use strict;
+use warnings;
+
+use lib qw( . lib ../lib ../../lib );
+use Test::More tests => 5;
+
+=head1 NAME
+
+t/configure/configure.t - tests Parrot::Configure
+
+=head1 SYNOPSIS
+
+ prove t/configure/configure.t
+
+=head1 DESCRIPTION
+
+Regressions tests for the L<Parrote::Configure> class.
+
+=cut
+
+BEGIN { use_ok('Parrot::Configure'); }
+
+can_ok('Parrot::Configure', qw(
+ new
+ data
+ options
+ steps
+ add_steps
+ runsteps
+));
+
+# ->new()
+
+{
+ my $pc = Parrot::Configure->new;
+
+ isa_ok($pc, 'Parrot::Configure');
+}
+
+# ->data()
+
+{
+ my $pc = Parrot::Configure->new;
+
+ isa_ok($pc->data, 'Parrot::Configure::Data');
+}
+
+# ->options()
+
+{
+ my $pc = Parrot::Configure->new;
+
+ isa_ok($pc->options, 'Parrot::Configure::Data');
+}
+
+# ->steps()
+# ->add_steps()
+# ->runsteps()
