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

Adjust test to work more than 1 time.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-22 18:12:28 -07:00
parent c102454fdd
commit a3228ebcb5
1 changed files with 17 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

33
t/Asset/Wobject/DataForm/viewList.t
View file

@ -36,24 +36,25 @@ $df->createField( "name", { type => "text", } );
$df->createField( "message", { type => "text", } );
# Add entries to the dataform
my @entries = (
$df->entryClass->newFromHash(
$df, {
name => "Andy",
subject => "Problem!",
message => "I need a Rita Heyworth",
}
),
$df->entryClass->newFromHash(
$df, {
name => "Red",
subject => "Solution!",
message => "I need about tree fiddy",
}
),
my @entryProperties = (
{
name => "Andy",
subject => "Problem!",
message => "I need a Rita Heyworth",
},
{
name => "Red",
subject => "Solution!",
message => "I need about tree fiddy",
}
);
for my $entry (@entries) {
my @entries = ();
for my $properties (@entryProperties) {
my $entry = $df->entryClass->newFromHash( $df, $properties );
$entry->save;
push @entries, $entry;
sleep 1;
}
#----------------------------------------------------------------------------