oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added corner tests for empty string and undef.

Browse source 
Converted tests to handle skipping if the macro can't be loaded.
This commit is contained in:
Colin Kuskie 2006-07-30 07:39:49 +00:00
parent 818ab4a690
commit 78c33c54ff
5 changed files with 81 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
t/Macro/FetchMimeType.t
View file

@ -13,7 +13,6 @@ use strict;
use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Macro::FetchMimeType;
use WebGUI::Session;
use Test::More; # increment this value for each test you create
@ -41,15 +40,37 @@ my @testSets = (
output => 'application/octet-stream',
comment => q|octet-stream for unknown type|,
},
{
input => '',
output => 'application/octet-stream',
comment => q|Null path returns application/octet-stream|,
},
{
input => undef,
output => undef,
comment => q|Undef path returns undef|,
},
);
my $numTests = scalar @testSets;
$numTests += 1; #For the use_ok
plan tests => $numTests;
my $macro = 'WebGUI::Macro::FetchMimeType';
my $loaded = use_ok($macro);
SKIP: {
skip "Unable to load $macro", $numTests-1 unless $loaded;
foreach my $testSet (@testSets) {
my $file = join '/', WebGUI::Test->root, 'www/extras', $testSet->{input};
my $file = $testSet->{input}
? join '/', WebGUI::Test->root, 'www/extras', $testSet->{input}
: $testSet->{input};
my $output = WebGUI::Macro::FetchMimeType::process($session, $file);
is($output, $testSet->{output}, $testSet->{comment} );
}
}