add test for Server::Starter::Guard

Author: kazuho

t/09-guard.t

@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use Test::More;
+
+use_ok("Server::Starter::Guard");
+
+my $cnt = 0;
+
+my $guard = Server::Starter::Guard->new(sub {
+    $cnt++;
+});
+
+is $cnt, 0;
+undef $guard;
+is $cnt, 1;
+
+done_testing;