Menu
▾
▴
[Everydevel-opers] SF.net SVN: everydevel: [860] trunk/ebase
|
From: <chr...@us...> - 2006-05-12 23:06:11
|
Revision: 860 Author: chromatic Date: 2006-05-12 16:05:56 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/everydevel/?rev=860&view=rev Log Message: ----------- r16664@windwheel: chromatic | 2006-05-12 16:05:46 -0700 Ported tests for document, mail, superdoc, and restricted_superdoc to new style. Modified Paths: -------------- trunk/ebase/MANIFEST trunk/ebase/lib/Everything/Node/mail.pm trunk/ebase/t/Node/document.t trunk/ebase/t/Node/mail.t trunk/ebase/t/Node/restricted_superdoc.t trunk/ebase/t/Node/superdoc.t Added Paths: ----------- trunk/ebase/lib/Everything/Node/Test/document.pm trunk/ebase/lib/Everything/Node/Test/mail.pm trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm trunk/ebase/lib/Everything/Node/Test/superdoc.pm Property Changed: ---------------- trunk/ebase/ Property changes on: trunk/ebase ___________________________________________________________________ Name: svk:merge - a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16662 + a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16664 Modified: trunk/ebase/MANIFEST =================================================================== --- trunk/ebase/MANIFEST 2006-05-12 22:40:28 UTC (rev 859) +++ trunk/ebase/MANIFEST 2006-05-12 23:05:56 UTC (rev 860) @@ -88,13 +88,17 @@ lib/Everything/Node/usergroup.pm lib/Everything/Node/workspace.pm lib/Everything/Node/Test/dbtable.pm +lib/Everything/Node/Test/document.pm lib/Everything/Node/Test/htmlcode.pm lib/Everything/Node/Test/location.pm +lib/Everything/Node/Test/mail.pm lib/Everything/Node/Test/node.pm lib/Everything/Node/Test/nodelet.pm lib/Everything/Node/Test/nodeball.pm lib/Everything/Node/Test/nodegroup.pm lib/Everything/Node/Test/nodetype.pm +lib/Everything/Node/Test/restricted_superdoc.pm +lib/Everything/Node/Test/superdoc.pm lib/Everything/Node/Test/setting.pm lib/Everything/Node/Test/themesetting.pm lib/Everything/Node/Test/user.pm Added: trunk/ebase/lib/Everything/Node/Test/document.pm =================================================================== --- trunk/ebase/lib/Everything/Node/Test/document.pm (rev 0) +++ trunk/ebase/lib/Everything/Node/Test/document.pm 2006-05-12 23:05:56 UTC (rev 860) @@ -0,0 +1,23 @@ +package Everything::Node::Test::document; + +use strict; +use warnings; + +use base 'Everything::Node::Test::node'; + +use SUPER; +use Test::More; + +*Everything::Node::document::SUPER = \&UNIVERSAL::SUPER; + +sub test_dbtables :Test( 2 ) +{ + my $self = shift; + my $class = $self->node_class(); + can_ok( $class, 'dbtables' ); + my @tables = $class->dbtables(); + is_deeply( \@tables, [qw( document node )], + 'dbtables() should return node tables' ); +} + +1; Property changes on: trunk/ebase/lib/Everything/Node/Test/document.pm ___________________________________________________________________ Name: svn:mime-type + text/plain; charset=UTF-8 Name: svn:eol-style + native Added: trunk/ebase/lib/Everything/Node/Test/mail.pm =================================================================== --- trunk/ebase/lib/Everything/Node/Test/mail.pm (rev 0) +++ trunk/ebase/lib/Everything/Node/Test/mail.pm 2006-05-12 23:05:56 UTC (rev 860) @@ -0,0 +1,23 @@ +package Everything::Node::Test::mail; + +use strict; +use warnings; + +use base 'Everything::Node::Test::document'; + +use SUPER; +use Test::More; + +*Everything::Node::document::SUPER = \&UNIVERSAL::SUPER; + +sub test_dbtables :Test( 2 ) +{ + my $self = shift; + my $class = $self->node_class(); + can_ok( $class, 'dbtables' ); + my @tables = $class->dbtables(); + is_deeply( \@tables, [qw( mail document node )], + 'dbtables() should return node tables' ); +} + +1; Property changes on: trunk/ebase/lib/Everything/Node/Test/mail.pm ___________________________________________________________________ Name: svn:mime-type + text/plain; charset=UTF-8 Name: svn:eol-style + native Added: trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm =================================================================== --- trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm (rev 0) +++ trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm 2006-05-12 23:05:56 UTC (rev 860) @@ -0,0 +1,8 @@ +package Everything::Node::Test::restricted_superdoc; + +use strict; +use warnings; + +use base 'Everything::Node::Test::superdoc'; + +1; Property changes on: trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm ___________________________________________________________________ Name: svn:mime-type + text/plain; charset=UTF-8 Name: svn:eol-style + native Added: trunk/ebase/lib/Everything/Node/Test/superdoc.pm =================================================================== --- trunk/ebase/lib/Everything/Node/Test/superdoc.pm (rev 0) +++ trunk/ebase/lib/Everything/Node/Test/superdoc.pm 2006-05-12 23:05:56 UTC (rev 860) @@ -0,0 +1,23 @@ +package Everything::Node::Test::superdoc; + +use strict; +use warnings; + +use base 'Everything::Node::Test::document'; + +use SUPER; +use Test::More; + +*Everything::Node::document::SUPER = \&UNIVERSAL::SUPER; + +sub test_dbtables :Test( 2 ) +{ + my $self = shift; + my $class = $self->node_class(); + can_ok( $class, 'dbtables' ); + my @tables = $class->dbtables(); + is_deeply( \@tables, [qw( document node )], + 'dbtables() should return node tables' ); +} + +1; Property changes on: trunk/ebase/lib/Everything/Node/Test/superdoc.pm ___________________________________________________________________ Name: svn:mime-type + text/plain; charset=UTF-8 Name: svn:eol-style + native Modified: trunk/ebase/lib/Everything/Node/mail.pm =================================================================== --- trunk/ebase/lib/Everything/Node/mail.pm 2006-05-12 22:40:28 UTC (rev 859) +++ trunk/ebase/lib/Everything/Node/mail.pm 2006-05-12 23:05:56 UTC (rev 860) @@ -22,6 +22,6 @@ sub dbtables { my $self = shift; - return 'mail', $self->SUPER::dbtables(); + return 'mail', $self->SUPER(); } 1; Modified: trunk/ebase/t/Node/document.t =================================================================== --- trunk/ebase/t/Node/document.t 2006-05-12 22:40:28 UTC (rev 859) +++ trunk/ebase/t/Node/document.t 2006-05-12 23:05:56 UTC (rev 860) @@ -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::document'; -use_ok( $module ) or exit; - -ok( $module->isa( 'Everything::Node::node' ), 'document should extend node' ); - -can_ok( $module, 'dbtables' ); -my @tables = $module->dbtables(); -is_deeply( \@tables, [qw( document node )], - 'dbtables() should return node tables' ); +use Everything::Node::Test::document; +Everything::Node::Test::document->runtests(); Modified: trunk/ebase/t/Node/mail.t =================================================================== --- trunk/ebase/t/Node/mail.t 2006-05-12 22:40:28 UTC (rev 859) +++ trunk/ebase/t/Node/mail.t 2006-05-12 23:05:56 UTC (rev 860) @@ -1,23 +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::mail'; -use_ok( $module ) or exit; - -ok( $module->isa( 'Everything::Node::document' ), - 'mail should extend document' ); - -can_ok( $module, 'dbtables' ); -my @tables = $module->dbtables(); -is_deeply( \@tables, [qw( mail document node )], - 'dbtables() should return node tables' ); +use Everything::Node::Test::mail; +Everything::Node::Test::mail->runtests(); Modified: trunk/ebase/t/Node/restricted_superdoc.t =================================================================== --- trunk/ebase/t/Node/restricted_superdoc.t 2006-05-12 22:40:28 UTC (rev 859) +++ trunk/ebase/t/Node/restricted_superdoc.t 2006-05-12 23:05:56 UTC (rev 860) @@ -1,23 +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::restricted_superdoc'; -use_ok( $module ) or exit; - -ok( $module->isa( 'Everything::Node::superdoc' ), - 'restricted_superdoc should extend superdoc' ); - -can_ok( $module, 'dbtables' ); -my @tables = $module->dbtables(); -is_deeply( \@tables, [qw( document node )], - 'dbtables() should return node tables' ); +use Everything::Node::Test::restricted_superdoc; +Everything::Node::Test::restricted_superdoc->runtests(); Modified: trunk/ebase/t/Node/superdoc.t =================================================================== --- trunk/ebase/t/Node/superdoc.t 2006-05-12 22:40:28 UTC (rev 859) +++ trunk/ebase/t/Node/superdoc.t 2006-05-12 23:05:56 UTC (rev 860) @@ -1,23 +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::superdoc'; -use_ok( $module ) or exit; - -ok( $module->isa( 'Everything::Node::document' ), - 'theme should extend document' ); - -can_ok( $module, 'dbtables' ); -my @tables = $module->dbtables(); -is_deeply( \@tables, [qw( document node )], - 'dbtables() should return node tables' ); +use Everything::Node::Test::superdoc; +Everything::Node::Test::superdoc->runtests(); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
