From: <chr...@us...> - 2006-05-16 20:19:16
|
Revision: 872 Author: chromatic Date: 2006-05-16 13:19:07 -0700 (Tue, 16 May 2006) ViewCVS: http://svn.sourceforge.net/everydevel/?rev=872&view=rev Log Message: ----------- r16732@windwheel: chromatic | 2006-05-16 13:14:45 -0700 Ported theme tests to the new system. Modified Paths: -------------- trunk/ebase/MANIFEST trunk/ebase/lib/Everything/Node/Test/nodeball.pm trunk/ebase/t/Node/theme.t Added Paths: ----------- trunk/ebase/lib/Everything/Node/Test/theme.pm Property Changed: ---------------- trunk/ebase/ Property changes on: trunk/ebase ___________________________________________________________________ Name: svk:merge - a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16731 + a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16732 Modified: trunk/ebase/MANIFEST =================================================================== --- trunk/ebase/MANIFEST 2006-05-16 20:18:57 UTC (rev 871) +++ trunk/ebase/MANIFEST 2006-05-16 20:19:07 UTC (rev 872) @@ -106,6 +106,7 @@ lib/Everything/Node/Test/restricted_superdoc.pm lib/Everything/Node/Test/superdoc.pm lib/Everything/Node/Test/setting.pm +lib/Everything/Node/Test/theme.pm lib/Everything/Node/Test/themesetting.pm lib/Everything/Node/Test/user.pm lib/Everything/Node/Test/usergroup.pm Modified: trunk/ebase/lib/Everything/Node/Test/nodeball.pm =================================================================== --- trunk/ebase/lib/Everything/Node/Test/nodeball.pm 2006-05-16 20:18:57 UTC (rev 871) +++ trunk/ebase/lib/Everything/Node/Test/nodeball.pm 2006-05-16 20:19:07 UTC (rev 872) @@ -160,7 +160,6 @@ is( "$node $node", "@saveargs", '... passing node and tag' ); } - sub test_apply_xml_fix :Test( 4 ) { my $self = shift; Added: trunk/ebase/lib/Everything/Node/Test/theme.pm =================================================================== --- trunk/ebase/lib/Everything/Node/Test/theme.pm (rev 0) +++ trunk/ebase/lib/Everything/Node/Test/theme.pm 2006-05-16 20:19:07 UTC (rev 872) @@ -0,0 +1,44 @@ +package Everything::Node::Test::theme; + +use strict; +use warnings; + +use base 'Everything::Node::Test::nodeball'; +use Test::More; + +sub test_extends :Test( +1 ) +{ + my $self = shift; + my $class = $self->node_class(); + + ok( $class->isa( 'Everything::Node::nodeball' ), + 'theme should extend nodeball' ); + + $self->SUPER(); +} + +sub test_insert_access :Test( 1 ) +{ + local $TODO = 'Make nodegroup contain the setting node'; + ok( 0, 'nodegroup cannot call setting methods as functions' ); +} + +sub test_insert_restrictions :Test( 1 ) +{ + local $TODO = 'Make nodegroup contain the setting node'; + ok( 0, 'nodegroup cannot call setting methods as functions' ); +} + +sub test_insert_restrict_dupes :Test( 1 ) +{ + local $TODO = 'Make nodegroup contain the setting node'; + ok( 0, 'nodegroup cannot call setting methods as functions' ); +} + +sub test_apply_xml_fix_no_fixby_node :Test( 1 ) +{ + local $TODO = 'Make nodegroup contain the setting node'; + ok( 0, 'nodegroup cannot call setting methods as functions' ); +} + +1; Property changes on: trunk/ebase/lib/Everything/Node/Test/theme.pm ___________________________________________________________________ Name: svn:mime-type + text/plain; charset=UTF-8 Name: svn:eol-style + native Modified: trunk/ebase/t/Node/theme.t =================================================================== --- trunk/ebase/t/Node/theme.t 2006-05-16 20:18:57 UTC (rev 871) +++ trunk/ebase/t/Node/theme.t 2006-05-16 20:19:07 UTC (rev 872) @@ -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::theme'; -use_ok( $module ) or exit; - -ok( $module->isa( 'Everything::Node::nodeball' ), - 'theme should extend nodeball' ); - -can_ok( $module, 'dbtables' ); -my @tables = $module->dbtables(); -is_deeply( \@tables, [qw( setting node )], - 'dbtables() should return node tables' ); +use Everything::Node::Test::theme; +Everything::Node::Test::theme->runtests(); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |