From: <chr...@us...> - 2006-05-15 22:07:17
|
Revision: 865 Author: chromatic Date: 2006-05-15 15:07:05 -0700 (Mon, 15 May 2006) ViewCVS: http://svn.sourceforge.net/everydevel/?rev=865&view=rev Log Message: ----------- r16719@windwheel: chromatic | 2006-05-15 15:07:00 -0700 Ported image tests to new style. Modified Paths: -------------- trunk/ebase/MANIFEST trunk/ebase/lib/Everything/Node/image.pm trunk/ebase/t/Node/image.t Added Paths: ----------- trunk/ebase/lib/Everything/Node/Test/image.pm Property Changed: ---------------- trunk/ebase/ Property changes on: trunk/ebase ___________________________________________________________________ Name: svk:merge - a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16717 + a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16719 Modified: trunk/ebase/MANIFEST =================================================================== --- trunk/ebase/MANIFEST 2006-05-15 22:02:43 UTC (rev 864) +++ trunk/ebase/MANIFEST 2006-05-15 22:07:05 UTC (rev 865) @@ -91,6 +91,7 @@ lib/Everything/Node/Test/document.pm lib/Everything/Node/Test/htmlcode.pm lib/Everything/Node/Test/htmlpage.pm +lib/Everything/Node/Test/image.pm lib/Everything/Node/Test/location.pm lib/Everything/Node/Test/mail.pm lib/Everything/Node/Test/node.pm Added: trunk/ebase/lib/Everything/Node/Test/image.pm =================================================================== --- trunk/ebase/lib/Everything/Node/Test/image.pm (rev 0) +++ trunk/ebase/lib/Everything/Node/Test/image.pm 2006-05-15 22:07:05 UTC (rev 865) @@ -0,0 +1,25 @@ +package Everything::Node::Test::image; + +use strict; +use warnings; + +use base 'Everything::Node::Test::node'; + +use Test::More; +use SUPER; + +*Everything::Node::image::SUPER = \&UNIVERSAL::SUPER; + +sub test_dbtables +{ + my $self = shift; + my $class = $self->node_class(); + + can_ok( $class, 'dbtables' ); + + my @tables = $class->dbtables(); + is_deeply( \@tables, [qw( image node )], + 'dbtables() should return node tables' ); +} + +1; Property changes on: trunk/ebase/lib/Everything/Node/Test/image.pm ___________________________________________________________________ Name: svn:mime-type + text/plain; charset=UTF-8 Name: svn:eol-style + native Modified: trunk/ebase/lib/Everything/Node/image.pm =================================================================== --- trunk/ebase/lib/Everything/Node/image.pm 2006-05-15 22:02:43 UTC (rev 864) +++ trunk/ebase/lib/Everything/Node/image.pm 2006-05-15 22:07:05 UTC (rev 865) @@ -22,7 +22,7 @@ sub dbtables { my $self = shift; - return 'image', $self->SUPER::dbtables(); + return 'image', $self->SUPER(); } 1; Modified: trunk/ebase/t/Node/image.t =================================================================== --- trunk/ebase/t/Node/image.t 2006-05-15 22:02:43 UTC (rev 864) +++ trunk/ebase/t/Node/image.t 2006-05-15 22:07:05 UTC (rev 865) @@ -1,22 +1,4 @@ -#!/usr/bin/perl +#! perl -use strict; -use warnings; - -BEGIN -{ - chdir 't' if -d 't'; - use lib 'lib'; -} - -use Test::More tests => 4; - -my $module = 'Everything::Node::image'; -use_ok( $module ) or exit; - -ok( $module->isa( 'Everything::Node::node' ), 'image should extend node' ); - -can_ok( $module, 'dbtables' ); -my @tables = $module->dbtables(); -is_deeply( \@tables, [qw( image node )], - 'dbtables() should return node tables' ); +use Everything::Node::Test::image; +Everything::Node::Test::image->runtests(); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |