Test the one event I have written so far

dams · Mar 28, 2010 · 52b0b12 · 52b0b12
1 parent db732ee
commit 52b0b12
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/t/event_scriptrun.t b/t/event_scriptrun.t
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+use Sys::Hostname qw/ hostname /;
+
+BEGIN { $0 = 't/event_scriptrun.t' }
+
+use Log::Message::Structured::Event::ScriptRun;
+
+sleep 2;
+
+my $m = Log::Message::Structured::Event::ScriptRun->new;
+
+is $m->script_name, 't/event_scriptrun.t';
+ok $m->time >= 2;
+is $m.'', 'Script t/event_scriptrun.t run on ' . hostname() . ' for ' . $m->time . 's';
+
+done_testing;