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", } ); $df->createField( "message", { type => "text", } );
# Add entries to the dataform # Add entries to the dataform
my @entries = ( my @entryProperties = (
$df->entryClass->newFromHash( {
$df, { name => "Andy",
name => "Andy", subject => "Problem!",
subject => "Problem!", message => "I need a Rita Heyworth",
message => "I need a Rita Heyworth", },
} {
), name => "Red",
$df->entryClass->newFromHash( subject => "Solution!",
$df, { message => "I need about tree fiddy",
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; $entry->save;
push @entries, $entry;
sleep 1;
} }
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------