[Catalyst-commits] r13980 - in CatalystX-Restarter-GTK/trunk: . t

dd070 at dev.catalyst.perl.org dd070 at dev.catalyst.perl.org
Tue Mar 1 09:01:52 GMT 2011


Author: dd070
Date: 2011-03-01 09:01:51 +0000 (Tue, 01 Mar 2011)
New Revision: 13980

Added:
   CatalystX-Restarter-GTK/trunk/00-basic.t
Removed:
   CatalystX-Restarter-GTK/trunk/t/00-load.t
Log:
renamed test script

Copied: CatalystX-Restarter-GTK/trunk/00-basic.t (from rev 13979, CatalystX-Restarter-GTK/trunk/t/00-load.t)
===================================================================
--- CatalystX-Restarter-GTK/trunk/00-basic.t	                        (rev 0)
+++ CatalystX-Restarter-GTK/trunk/00-basic.t	2011-03-01 09:01:51 UTC (rev 13980)
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+
+use strict;
+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;
+

Deleted: CatalystX-Restarter-GTK/trunk/t/00-load.t
===================================================================
--- CatalystX-Restarter-GTK/trunk/t/00-load.t	2011-02-28 12:19:05 UTC (rev 13979)
+++ CatalystX-Restarter-GTK/trunk/t/00-load.t	2011-03-01 09:01:51 UTC (rev 13980)
@@ -1,40 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-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;
-




More information about the Catalyst-commits mailing list