oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix test. Inheritance wasn't working with the package defined inside

Browse source 
the test.
This commit is contained in:
Colin Kuskie 2009-07-22 00:20:44 +00:00
parent a84d352f21
commit 2daed0d1cc
2 changed files with 22 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

20
t/Crud/Subclass.t
View file

@ -1,22 +1,3 @@
package WebGUI::Crud::Subclass;
use strict;
use base 'WebGUI::Crud';
sub crud_definition {
my ($class, $session) = @_;
my $definition = $class->SUPER::crud_definition($session);
$definition->{tableName} = 'crudSubclass';
$definition->{tableKey} = 'crudSubclassId';
$definition->{sequenceKey} = '';
my $properties = $definition->{properties};
$properties->{field1} = {
fieldType => 'integer',
defaultValue => 5,
};
return $definition;
}
#package main;
# vim:syntax=perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
@ -34,6 +15,7 @@ use strict;
use lib "$FindBin::Bin/../lib";
use Test::More;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::SubClass;
#----------------------------------------------------------------------------
# Init

21
t/lib/WebGUI/SubClass.pm Normal file
View file

@ -0,0 +1,21 @@
package WebGUI::Crud::Subclass;
use strict;
use base 'WebGUI::Crud';
sub crud_definition {
my ($class, $session) = @_;
my $definition = $class->SUPER::crud_definition($session);
$definition->{tableName} = 'crudSubclass';
$definition->{tableKey} = 'crudSubclassId';
$definition->{sequenceKey} = '';
my $properties = $definition->{properties};
$properties->{field1} = {
fieldType => 'integer',
defaultValue => 5,
};
return $definition;
}
1;