diff options
Diffstat (limited to 'web/server/h2o/libh2o/misc/p5-Server-Starter/t/09-guard.t')
-rw-r--r-- | web/server/h2o/libh2o/misc/p5-Server-Starter/t/09-guard.t | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/09-guard.t b/web/server/h2o/libh2o/misc/p5-Server-Starter/t/09-guard.t deleted file mode 100644 index a51903a4e..000000000 --- a/web/server/h2o/libh2o/misc/p5-Server-Starter/t/09-guard.t +++ /dev/null @@ -1,31 +0,0 @@ -use strict; -use warnings; -use Test::More; - -use_ok("Server::Starter::Guard"); - -subtest "guard is called when it goes out of scope" => sub { - my $cnt = 0; - - my $guard = Server::Starter::Guard->new(sub { - $cnt++; - }); - - is $cnt, 0; - undef $guard; - is $cnt, 1; -}; - -subtest "guard can be dismissed" => sub { - my $cnt = 0; - - my $guard = Server::Starter::Guard->new(sub { - $cnt++; - }); - - $guard->dismiss; - undef $guard; - is $cnt, 0; -}; - -done_testing; |