From 22b9bc5e3ba3f1f0101c106c23de6230af2894e2 Mon Sep 17 00:00:00 2001 From: Roy Johnson Date: Thu, 23 Nov 2006 08:17:53 +0000 Subject: [PATCH] added two new tests to Storage.t --- t/Storage.t | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/t/Storage.t b/t/Storage.t index d1058e77e..c8d0bfd7f 100644 --- a/t/Storage.t +++ b/t/Storage.t @@ -47,7 +47,7 @@ my $extensionTests = [ }, ]; -plan tests => 27 + scalar @{ $extensionTests }; # increment this value for each test you create +plan tests => 28 + scalar @{ $extensionTests }; # increment this value for each test you create my $session = WebGUI::Test->session; @@ -165,10 +165,17 @@ foreach my $extTest (@{ $extensionTests }) { is( $storage1->getFileExtension($extTest->{filename}), $extTest->{extension}, $extTest->{comment} ); } +$storage1->addFileFromHashref("testfile-hash.file",{'blah'=>"blah",'foo'=>"foo"}); +ok (-e $storage1->getPath("testfile-hash.file"), 'addFileFromHashRef creates file'); + +$storage1->renameFile("testfile-hash.file", "testfile-hash-renamed.file"); +ok (-e $storage1->getPath("testfile-hash-renamed.file"),'renameFile created file with new name'); +ok (!(-e $storage1->getPath("testfile-hash.file")), "rename file original file is gone"); + TODO: { local $TODO = "Tests to make later"; - ok(0, 'Add a file to the storage location via addFileFromHashref'); - ok(0, 'Test renaming of files inside of a storage location'); + #ok(0, 'Add a file to the storage location via addFileFromHashref'); + #ok(0, 'Test renaming of files inside of a storage location'); } END {