diff --git a/Supporters/t/Supporters.t b/Supporters/t/Supporters.t index fc097d4..5e3163c 100644 --- a/Supporters/t/Supporters.t +++ b/Supporters/t/Supporters.t @@ -5,7 +5,7 @@ use strict; use warnings; -use Test::More tests => 124; +use Test::More tests => 125; use Test::Exception; use Scalar::Util qw(looks_like_number reftype); @@ -458,6 +458,10 @@ dies_ok { $tempSP->_getOrCreateRequestConfiguration({ requestTypeId => "NoString dies_ok { $tempSP->_getOrCreateRequestConfiguration({ requestTypeId => 0 }); } "_getOrCreateRequestConfiguration: dies for non-existant requestTypeId"; +dies_ok { $tempSP->_getOrCreateRequestConfiguration({ requestTypeId => $rr, + requestConfigurationId => "NoStringsPlease" }); } + "_getOrCreateRequestConfiguration: dies for string requestConfigurationId with valid requestTypeId"; + %hh = ( requestConfiguration => 'test-request-config' ); dies_ok { $tempSP->_getOrCreateRequestConfiguration(\%hh); } "_getOrCreateRequestConfiguration: fails with just requestConfiguration.";