Allow PseudoRequest to handle 0 and '' correctly. Kudos to knowmad for pointing this behavior out.

perlDreamer · perlDreamer · commit c17d9aa394e0 · 2011-09-29T14:39:52.000-07:00
diff --git a/t/Asset/EMSSubmissionForm.t b/t/Asset/EMSSubmissionForm.t
@@ -432,10 +432,10 @@ my $expected = {
                                },
           'description' => undef,
           '_isValid' => 1,
-          'deleteCreatedItems' => undef,
+          'deleteCreatedItems' => 0,
           'canSubmitGroupId' => '2',
           'assetId' => 'new',
-          'url' => undef,
+          'url' => '',
           'daysBeforeCleanup' => '7',
           'title' => 'Untitled',
         } ;
diff --git a/t/lib/WebGUI/PseudoRequest.pm b/t/lib/WebGUI/PseudoRequest.pm
@@ -87,7 +87,7 @@ sub body {
         return keys %{ $self->{body} } if wantarray;
         return { %{ $self->{body} } };
     }
-	if ($self->{body}->{$value}) {
+	if (defined $self->{body}->{$value}) {
         if (wantarray && ref $self->{body}->{$value} eq "ARRAY") {
             return @{$self->{body}->{$value}};
         }

Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ sub body {`
`87`	`87`	`return keys %{ $self->{body} } if wantarray;`
`88`	`88`	`return { %{ $self->{body} } };`
`89`	`89`	`}`
`90`		`- if ($self->{body}->{$value}) {`
	`90`	`+ if (defined $self->{body}->{$value}) {`
`91`	`91`	`if (wantarray && ref $self->{body}->{$value} eq "ARRAY") {`
`92`	`92`	`return @{$self->{body}->{$value}};`
`93`	`93`	`}`