[Catalyst-commits] r13976 - CatalystX-Restarter-GTK/trunk/t

[dd070 at dev.catalyst.perl.org]

Author: dd070
Date: 2011-02-26 07:49:56 +0000 (Sat, 26 Feb 2011)
New Revision: 13976

Modified:
   CatalystX-Restarter-GTK/trunk/t/00-load.t
Log:
added tests

Modified: CatalystX-Restarter-GTK/trunk/t/00-load.t
===================================================================
--- CatalystX-Restarter-GTK/trunk/t/00-load.t	2011-02-24 18:39:00 UTC (rev 13975)
+++ CatalystX-Restarter-GTK/trunk/t/00-load.t	2011-02-26 07:49:56 UTC (rev 13976)
@@ -4,5 +4,37 @@
 use warnings;
 use Test::More;
 use_ok 'CatalystX::Restarter::GTK';
+use_ok 'Catalyst', '5.80032';
+use_ok 'MooseX::Types::Moose';
+use_ok 'Try::Tiny';
+use_ok 'POSIX';
+use_ok 'IPC::Semaphore';
+use_ok 'IPC::SysV';
+use_ok 'Object::Destroyer';
+use_ok 'Carp';
+use_ok 'Socket';
+use_ok 'IO::Handle';
+use_ok 'AnyEvent::Socket';
+use_ok 'Catalyst::Restarter';
+use_ok 'Gtk2';
+use_ok 'Glib';
 
+ok($^O ne 'MSWin32', 'Linux required');
+
+use Catalyst::Restarter;
+
+can_ok('Catalyst::Restarter', '_handle_events');
+
+ok(Catalyst::Restarter->meta->has_attribute('_watcher'));
+
+use Socket               qw(AF_UNIX SOCK_STREAM);
+
+ok(socketpair(my $parent, my $child, AF_UNIX, SOCK_STREAM, 0));
+
+my $restarter = Catalyst::Restarter->new(start_sub => sub {}, argv => []);
+can_ok($restarter->_watcher, 'new_events');
+
+$restarter = undef;
+
 done_testing;
+