From 0985d71f9e25b1a424b58fdab3eb7d335c984c8c Mon Sep 17 00:00:00 2001 From: Jennifer Pinkham Date: Sat, 8 Jun 2013 03:55:20 +0000 Subject: [PATCH] Added one more test, for Event::create(), that uses most every input parameter --- t/Event/40-create.t | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/t/Event/40-create.t b/t/Event/40-create.t index 0026591..f42664f 100644 --- a/t/Event/40-create.t +++ b/t/Event/40-create.t @@ -14,7 +14,7 @@ use WebService::DataDog; eval 'use DataDogConfig'; $@ ? plan( skip_all => 'Local connection information for DataDog required to run tests.' ) - : plan( tests => 15 ); + : plan( tests => 16 ); my $config = DataDogConfig->new(); @@ -187,7 +187,22 @@ lives_ok( text => "Text goes here", ); }, - 'Post valid event to stream.', + 'Post valid event to stream - [ title, text ].', +); + +lives_ok( + sub + { + $response = $event_obj->create( + title => "title goes here(" . time() . ")", + text => "Text goes here", + date_happened => '1370663582', + priority => 'low', + source_type_name => 'jenkins', + alert_type => 'info', + ); + }, + 'Post valid event to stream - [ title, text, date_happened, priority, source_rtype_name, alert_type ].', );