diff --git a/lib/WebGUI/Asset/Wobject/Survey/Test.pm b/lib/WebGUI/Asset/Wobject/Survey/Test.pm index 0c04086fb..34b87320d 100644 --- a/lib/WebGUI/Asset/Wobject/Survey/Test.pm +++ b/lib/WebGUI/Asset/Wobject/Survey/Test.pm @@ -670,7 +670,8 @@ END_WHY return fail($testCount, $name, "Tag not found: $tagKey"); } my $currentTagValue = $currentTags->{$tagKey}; - if ($currentTagValue != $tagValue) { + + if (!eq_deeply($currentTagValue, $tagValue)) { $self->session->log->debug("Incorrect tag value: $currentTagValue != $tagValue"); return fail($testCount, $name, <tags; while (my ($tagKey, $tagValue) = each %$tagged) { my $currentTagValue = $currentTags->{$tagKey}; - if ($currentTagValue != $tagValue) { + if (!eq_deeply($currentTagValue, $tagValue)) { $self->session->log->debug("Incorrect tag value: $currentTagValue != $tagValue"); return fail($testCount, $name, <session; #---------------------------------------------------------------------------- # Tests -plan tests => 85; +plan tests => 88; my ( $s, $t1 ); @@ -424,6 +424,23 @@ try_it( $t1, $spec, { tap => < <