Fix a storage clean-up.

This commit is contained in:
Colin Kuskie 2010-06-11 09:19:00 -07:00
parent cc7f83a623
commit 33640e6e05

View file

@ -290,7 +290,7 @@ is($gcAsPath->absolute($exportPath)->stringify, $litmus->absolute($exportPath)->
# now let's get tricky and test different file extensions
my $storage = WebGUI::Storage->create($session);
WebGUI::Test->addToCleanup($storage->getId);
WebGUI::Test->addToCleanup('WebGUI::Storage' => $storage->getId);
my $filename = 'somePerlFile_pl.txt';
$storage->addFileFromScalar($filename, $filename);
$session->user({userId=>3});