[Everydevel-opers] SF.net SVN: everydevel: [857] trunk/ebase

[<chr...@us...>]

Revision: 857
Author:   chromatic
Date:     2006-05-09 16:42:55 -0700 (Tue, 09 May 2006)
ViewCVS:  http://svn.sourceforge.net/everydevel/?rev=857&view=rev

Log Message:
-----------
 r16553@windwheel:  chromatic | 2006-05-09 16:42:26 -0700
 Ported themesetting tests to the new style.

Modified Paths:
--------------
    trunk/ebase/MANIFEST
    trunk/ebase/t/Node/themesetting.t

Added Paths:
-----------
    trunk/ebase/lib/Everything/Node/Test/themesetting.pm

Property Changed:
----------------
    trunk/ebase/

Property changes on: trunk/ebase
___________________________________________________________________
Name: svk:merge
   - a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16551
   + a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:16553

Modified: trunk/ebase/MANIFEST
===================================================================
--- trunk/ebase/MANIFEST	2006-05-09 23:37:11 UTC (rev 856)
+++ trunk/ebase/MANIFEST	2006-05-09 23:42:55 UTC (rev 857)
@@ -94,6 +94,7 @@
 lib/Everything/Node/Test/nodegroup.pm
 lib/Everything/Node/Test/nodetype.pm
 lib/Everything/Node/Test/setting.pm
+lib/Everything/Node/Test/themesetting.pm
 lib/Everything/Node/Test/user.pm
 lib/Everything/Nodeball.pm
 lib/Everything/NodeBase.pm

Added: trunk/ebase/lib/Everything/Node/Test/themesetting.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/themesetting.pm	                        (rev 0)
+++ trunk/ebase/lib/Everything/Node/Test/themesetting.pm	2006-05-09 23:42:55 UTC (rev 857)
@@ -0,0 +1,32 @@
+package Everything::Node::Test::themesetting;
+
+use strict;
+use warnings;
+
+use base 'Everything::Node::Test::setting';
+
+use SUPER;
+use Test::More;
+*Everything::Node::themesetting::SUPER = \&UNIVERSAL::SUPER;
+
+sub test_extends :Test( +1 )
+{
+	my $self   = shift;
+	my $module = $self->node_class();
+
+	ok( $module->isa( 'Everything::Node::setting' ),
+		'theme should extend setting' );
+	$self->SUPER();
+}
+
+sub test_dbtables :Test( 2 )
+{
+	my $self   = shift;
+	my $module = $self->node_class();
+
+	can_ok( $module, 'dbtables' );
+
+	my @tables = $module->dbtables();
+	is_deeply( \@tables, [qw( themesetting setting node )],
+		'dbtables() should return node tables' );
+}


Property changes on: trunk/ebase/lib/Everything/Node/Test/themesetting.pm
___________________________________________________________________
Name: svn:mime-type
   + text/plain; charset=UTF-8
Name: svn:eol-style
   + native

Modified: trunk/ebase/t/Node/themesetting.t
===================================================================
--- trunk/ebase/t/Node/themesetting.t	2006-05-09 23:37:11 UTC (rev 856)
+++ trunk/ebase/t/Node/themesetting.t	2006-05-09 23:42:55 UTC (rev 857)
@@ -1,26 +1,4 @@
-#!/usr/bin/perl
+#! perl
 
-use strict;
-use warnings;
-
-BEGIN
-{
-	chdir 't' if -d 't';
-	use lib 'lib';
-}
-
-use Test::More tests => 4;
-use SUPER;
-local *Everything::Node::setting::SUPER;
-*Everything::Node::setting::SUPER = \&UNIVERSAL::SUPER;
-
-my $module = 'Everything::Node::themesetting';
-use_ok( $module ) or exit;
-
-ok( $module->isa( 'Everything::Node::setting' ),
-	'theme should extend setting' );
-
-can_ok( $module, 'dbtables' );
-my @tables = $module->dbtables();
-is_deeply( \@tables, [qw( themesetting setting node )],
-	'dbtables() should return node tables' );
+use Everything::Node::Test::themesetting;
+Everything::Node::Test::themesetting->runtests();


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.