Tests for Post and Thread
This commit is contained in:
parent
e004eab9f5
commit
7c8979c823
2 changed files with 57 additions and 0 deletions
28
t/tests/Test/WebGUI/Asset/Post.pm
Normal file
28
t/tests/Test/WebGUI/Asset/Post.pm
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
package Test::WebGUI::Asset::Post;
|
||||
#-------------------------------------------------------------------
|
||||
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
||||
#-------------------------------------------------------------------
|
||||
# Please read the legal notices (docs/legal.txt) and the license
|
||||
# (docs/license.txt) that came with this distribution before using
|
||||
# this software.
|
||||
#-------------------------------------------------------------------
|
||||
# http://www.plainblack.com info@plainblack.com
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
||||
use base qw/Test::WebGUI::Asset/;
|
||||
|
||||
use Test::More;
|
||||
use Test::Deep;
|
||||
use Test::Exception;
|
||||
|
||||
|
||||
sub list_of_tables {
|
||||
return [qw/assetData Post/];
|
||||
}
|
||||
|
||||
sub parent_list {
|
||||
return [ map { "WebGUI::Asset::$_"} qw/Wobject::Collaboration Post::Thread/ ];
|
||||
}
|
||||
|
||||
1;
|
||||
29
t/tests/Test/WebGUI/Asset/Post/Thread.pm
Normal file
29
t/tests/Test/WebGUI/Asset/Post/Thread.pm
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
package Test::WebGUI::Asset::Post::Thread;
|
||||
#-------------------------------------------------------------------
|
||||
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
|
||||
#-------------------------------------------------------------------
|
||||
# Please read the legal notices (docs/legal.txt) and the license
|
||||
# (docs/license.txt) that came with this distribution before using
|
||||
# this software.
|
||||
#-------------------------------------------------------------------
|
||||
# http://www.plainblack.com info@plainblack.com
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
||||
use base qw/Test::WebGUI::Asset::Post/;
|
||||
|
||||
use Test::More;
|
||||
use Test::Deep;
|
||||
use Test::Exception;
|
||||
|
||||
|
||||
sub list_of_tables {
|
||||
return [qw/assetData Post Thread/];
|
||||
}
|
||||
|
||||
sub parent_list {
|
||||
return [ "WebGUI::Asset::Wobject::Collaboration" ];
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue