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

more stuff

Browse source
This commit is contained in:
daviddelikat 2009-10-04 03:12:15 -05:00
parent 209732287e
commit d0171f7199
3 changed files with 38 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/i18n/English/Asset_EMSSubmission.pm Normal file
View file

@ -0,0 +1,22 @@
package WebGUI::i18n::English::Asset_EMSSubmission; ##Be sure to change the package name to match the filename
use strict; ##Required for all good Perl::Critic compliant code
our $I18N = { ##hashref of hashes
'assetName' => {
message => q|EMS Event Submission|,
lastUpdated => 1131394072,
context => q|Then name of the Asset ( Event Management System - Event Submission ).|
},
# 'TODO' => {
# message => q|TODO|,
# lastUpdated => 1131394072,
# context => q|TODO|
# },
};
1;
#vim:ft=perl

7
lib/WebGUI/i18n/English/Asset_EMSSubmissionForm.pm
View file

@ -1,9 +1,14 @@
package WebGUI::i18n::English::_i18n; ##Be sure to change the package name to match the filename
package WebGUI::i18n::English::Asset_EMSSubmissionForm; ##Be sure to change the package name to match the filename
use strict; ##Required for all good Perl::Critic compliant code
our $I18N = { ##hashref of hashes
'assetName' => {
message => q|EMS Event Submission Form|,
lastUpdated => 1131394072,
context => q|Then name of the Asset ( Event Management System - Event Submission Form ).|
},
'next submission id label' => {
message => q|Next Submission Id|,
lastUpdated => 1131394072,

10
t/Asset/EMSSubmissionForm.t
View file

@ -135,6 +135,8 @@ ok( !$frmA->validateSubmission({
}), 'not a valid submission' );
# TODO: test more field validations
print "after tests\n";
# TODO use meta field in this form
my $frmB = $ems->addChild({
className => 'WebGUI::Asset::EMSSubmissionForm',
@ -145,6 +147,7 @@ my $frmB = $ems->addChild({
},
});
# TODO: test meta field validation
print "created one form\n";
loginUserA;
@ -153,10 +156,12 @@ my $sub1 = $frmA->addSubmission({
title => 'my favorite thing to talk about',
});
print "created one submission\n";
#this one should fail
my $sub2 = $frmB->addSubmission({
title => 'why i like to be important',
});
print "created another submission\n";
loginUserB;
@ -165,19 +170,23 @@ my $sub3 = $frmB->addSubmission({
title => 'five minutes of me',
});
print "created third submission\n";
loginUserC;
# should work
my $sub4 = $frmB->addSubmission({
title => 'why humility is underrated',
});
print "created fourth submission\n";
# should work
my $sub5 = $frmA->addSubmission({
title => 'what you should know about everybody',
});
print "created fifth submission\n";
$sub1->addComment({ 'this is a test comment' });
print "added a comment\n";
my $TODO = q{
modify submission(s)
@ -186,6 +195,7 @@ run submission approval activity
run submission cleanup activity
};
$versionTag->commit;
print "end of program\n";
#----------------------------------------------------------------------------
# Cleanup