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

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

Revision: 877
Author:   chromatic
Date:     2006-05-16 13:45:15 -0700 (Tue, 16 May 2006)
ViewCVS:  http://svn.sourceforge.net/everydevel/?rev=877&view=rev

Log Message:
-----------
 r16742@windwheel:  chromatic | 2006-05-16 13:44:48 -0700
 Check inheritance in several test classes that didn't before.

Modified Paths:
--------------
    trunk/ebase/lib/Everything/Node/Test/htmlsnippet.pm
    trunk/ebase/lib/Everything/Node/Test/mail.pm
    trunk/ebase/lib/Everything/Node/Test/permission.pm
    trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm
    trunk/ebase/lib/Everything/Node/Test/superdoc.pm
    trunk/ebase/lib/Everything/Node/Test/usergroup.pm
    trunk/ebase/lib/Everything/Node/Test/workspace.pm

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

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

Modified: trunk/ebase/lib/Everything/Node/Test/htmlsnippet.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/htmlsnippet.pm	2006-05-16 20:45:03 UTC (rev 876)
+++ trunk/ebase/lib/Everything/Node/Test/htmlsnippet.pm	2006-05-16 20:45:15 UTC (rev 877)
@@ -4,5 +4,15 @@
 use warnings;
 
 use base 'Everything::Node::Test::htmlcode';
+use Test::More;
 
+sub test_extends :Test( +1 )
+{
+	my $self  = shift;
+	my $class = $self->node_class();
+	ok( $class->isa( 'Everything::Node::htmlcode' ),
+		'htmlsnippet should extend htmlcode' );
+	$self->SUPER();
+}
+
 1;

Modified: trunk/ebase/lib/Everything/Node/Test/mail.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/mail.pm	2006-05-16 20:45:03 UTC (rev 876)
+++ trunk/ebase/lib/Everything/Node/Test/mail.pm	2006-05-16 20:45:15 UTC (rev 877)
@@ -14,10 +14,23 @@
 {
 	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' );
 }
 
+sub test_extends :Test( +1 )
+{
+	my $self  = shift;
+	my $class = $self->node_class();
+
+	ok( $class->isa( 'Everything::Node::document' ),
+		'mail should extend document' );
+
+	$self->SUPER();
+}
+
 1;

Modified: trunk/ebase/lib/Everything/Node/Test/permission.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/permission.pm	2006-05-16 20:45:03 UTC (rev 876)
+++ trunk/ebase/lib/Everything/Node/Test/permission.pm	2006-05-16 20:45:15 UTC (rev 877)
@@ -5,4 +5,17 @@
 
 use base 'Everything::Node::Test::htmlcode';
 
+use Test::More;
+
+sub test_extends :Test( +1 )
+{
+	my $self  = shift;
+	my $class = $self->node_class();
+
+	ok( $class->isa( 'Everything::Node::htmlcode' ),
+		'permission should extend htmlcode' );
+
+	$self->SUPER();
+}
+
 1;

Modified: trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm	2006-05-16 20:45:03 UTC (rev 876)
+++ trunk/ebase/lib/Everything/Node/Test/restricted_superdoc.pm	2006-05-16 20:45:15 UTC (rev 877)
@@ -5,4 +5,17 @@
 
 use base 'Everything::Node::Test::superdoc';
 
+use Test::More;
+
+sub test_extends :Test( +1 )
+{
+	my $self  = shift;
+	my $class = $self->node_class();
+
+	ok( $class->isa( 'Everything::Node::superdoc' ),
+		'restricted_superdoc should extend superdoc' );
+
+	$self->SUPER();
+}
+
 1;

Modified: trunk/ebase/lib/Everything/Node/Test/superdoc.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/superdoc.pm	2006-05-16 20:45:03 UTC (rev 876)
+++ trunk/ebase/lib/Everything/Node/Test/superdoc.pm	2006-05-16 20:45:15 UTC (rev 877)
@@ -20,4 +20,15 @@
 		'dbtables() should return node tables' );
 }
 
+sub test_extends :Test( +1 )
+{
+	my $self  = shift;
+	my $class = $self->node_class();
+
+	ok( $class->isa( 'Everything::Node::document' ),
+		'superdoc should extend document' );
+
+	$self->SUPER();
+}
+
 1;

Modified: trunk/ebase/lib/Everything/Node/Test/usergroup.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/usergroup.pm	2006-05-16 20:45:03 UTC (rev 876)
+++ trunk/ebase/lib/Everything/Node/Test/usergroup.pm	2006-05-16 20:45:15 UTC (rev 877)
@@ -6,6 +6,17 @@
 use base 'Everything::Node::Test::nodegroup';
 use Test::More;
 
+sub test_extends :Test( +1 )
+{
+	my $self  = shift;
+	my $class = $self->node_class();
+
+	ok( $class->isa( 'Everything::Node::nodegroup' ),
+		'usergroup should extend nodegroup' );
+
+	$self->SUPER();
+}
+
 sub test_conflicts_with :Test( 1 )
 {
 	my $self = shift;

Modified: trunk/ebase/lib/Everything/Node/Test/workspace.pm
===================================================================
--- trunk/ebase/lib/Everything/Node/Test/workspace.pm	2006-05-16 20:45:03 UTC (rev 876)
+++ trunk/ebase/lib/Everything/Node/Test/workspace.pm	2006-05-16 20:45:15 UTC (rev 877)
@@ -9,6 +9,17 @@
 use SUPER;
 *Everything::Node::workspace::SUPER = \&UNIVERSAL::SUPER;
 
+sub test_extends :Test( +1 )
+{
+	my $self  = shift;
+	my $class = $self->node_class();
+
+	ok( $class->isa( 'Everything::Node::setting' ),
+		'workspace should extend setting' );
+
+	$self->SUPER();
+}
+
 sub test_nuke :Test( 7 )
 {
 	my $self = shift;


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