From fc2250203d71cff6de5793de32119c62a617e0cb Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Sun, 20 Dec 2015 11:12:12 -0800 Subject: [PATCH] _getOrCreateRequestConfiguration: Additional test. This additional test makes sure that it still fails a previous condition when the requestTypeId is correct. --- Supporters/t/Supporters.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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.";