Started fixing Survey responseId handling

This commit is contained in:
Patrick Donelan 2009-05-23 09:53:28 +00:00
parent f622854a3d
commit 5e7c594440
2 changed files with 34 additions and 55 deletions

View file

@ -207,6 +207,8 @@ sub run {
}
}
$survey->persistResponseJSON;
my $tap = "1..$testCount\n";
$tap .= join "\n", @tap;
return { tap => "$tap" };