Add T::C tests for Redirect, RichEdit,Shortcut,Sku, Template and Wobject.

This commit is contained in:
Colin Kuskie 2010-03-09 13:43:58 -08:00
parent 87c00d41c1
commit bc71165a16
6 changed files with 188 additions and 0 deletions

View file

@ -0,0 +1,34 @@
package Test::Asset::Redirect;
#-------------------------------------------------------------------
# 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 FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::Redirect/;
}
sub uiLevel {
return 9;
}
sub list_of_tables {
return [qw/assetData redirect/];
}
1;

View file

@ -0,0 +1,34 @@
package Test::Asset::RichEdit;
#-------------------------------------------------------------------
# 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 FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::RichEdit/;
}
sub uiLevel {
return 5;
}
sub list_of_tables {
return [qw/assetData RichEdit/];
}
1;

View file

@ -0,0 +1,30 @@
package Test::Asset::Shortcut;
#-------------------------------------------------------------------
# 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 FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::Shortcut/;
}
sub list_of_tables {
return [qw/assetData Shortcut/];
}
1;

30
t/tests/Test/Asset/Sku.pm Normal file
View file

@ -0,0 +1,30 @@
package Test::Asset::Sku;
#-------------------------------------------------------------------
# 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 FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::Sku/;
}
sub list_of_tables {
return [qw/assetData sku/];
}
1;

View file

@ -0,0 +1,30 @@
package Test::Asset::Template;
#-------------------------------------------------------------------
# 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 FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::Template/;
}
sub list_of_tables {
return [qw/assetData template/];
}
1;

View file

@ -0,0 +1,30 @@
package Test::Asset::Wobject;
#-------------------------------------------------------------------
# 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 FindBin;
use lib "$FindBin::Bin/lib";
use base qw/Test::AssetBase/;
use WebGUI::Test;
use Test::More;
use Test::Deep;
use Test::Exception;
sub class {
return qw/WebGUI::Asset::Wobject/;
}
sub list_of_tables {
return [qw/assetData wobject/];
}
1;