Update of /cvsroot/perl-win32-gui/Win32-GUI/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32576/t
Modified Files:
01_basic.t 02_window.t 03_button.t 04_cov.t
05_AcceleratorTable.t 05_Menu.t 05_Timer_01_OEM.t
05_Timer_02_NEM.t 05_Timer_03_Interval.t 05_Timer_04_Kill.t
05_Timer_05_DESTROY.t 06_Cursor.t 06_Icon.t
50_Font_GetMetrics.t 50_Richedit_GetCharFormat.t
Log Message:
More Win32::GUI::Constants support
Index: 05_Timer_04_Kill.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_Timer_04_Kill.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 05_Timer_04_Kill.t 13 Nov 2005 18:57:52 -0000 1.1
--- 05_Timer_04_Kill.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 12,16 ****
use Test::More tests => 19;
! use Win32::GUI;
my $ctrl = "Timer";
--- 12,16 ----
use Test::More tests => 19;
! use Win32::GUI();
my $ctrl = "Timer";
Index: 03_button.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/03_button.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 03_button.t 3 Aug 2005 21:46:00 -0000 1.2
--- 03_button.t 16 May 2006 18:57:26 -0000 1.3
***************
*** 12,16 ****
use Test::More tests => 19;
! use Win32::GUI;
can_ok("Win32::GUI::Window", qw(AddButton));
--- 12,16 ----
use Test::More tests => 19;
! use Win32::GUI();
can_ok("Win32::GUI::Window", qw(AddButton));
Index: 05_Timer_01_OEM.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_Timer_01_OEM.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 05_Timer_01_OEM.t 21 Nov 2005 22:33:34 -0000 1.2
--- 05_Timer_01_OEM.t 16 May 2006 18:57:26 -0000 1.3
***************
*** 12,16 ****
use Test::More tests => 14;
! use Win32::GUI;
my $ctrl = "Timer";
--- 12,16 ----
use Test::More tests => 14;
! use Win32::GUI();
my $ctrl = "Timer";
Index: 50_Font_GetMetrics.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/50_Font_GetMetrics.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 50_Font_GetMetrics.t 3 Aug 2005 21:46:00 -0000 1.1
--- 50_Font_GetMetrics.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 10,14 ****
use Test::More tests => 7;
! use Win32::GUI;
my %font_metrics;
--- 10,14 ----
use Test::More tests => 7;
! use Win32::GUI();
my %font_metrics;
Index: 02_window.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/02_window.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 02_window.t 3 Aug 2005 21:46:00 -0000 1.2
--- 02_window.t 16 May 2006 18:57:26 -0000 1.3
***************
*** 13,17 ****
use Test::More tests => 16;
! use Win32::GUI;
# check that the methods we want to use are available
--- 13,17 ----
use Test::More tests => 16;
! use Win32::GUI();
# check that the methods we want to use are available
Index: 06_Cursor.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/06_Cursor.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 06_Cursor.t 3 Aug 2005 21:46:00 -0000 1.1
--- 06_Cursor.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 12,16 ****
use Test::More tests => 1;
! use Win32::GUI;
my $filename = "hsplit.cur";
--- 12,16 ----
use Test::More tests => 1;
! use Win32::GUI();
my $filename = "hsplit.cur";
Index: 04_cov.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/04_cov.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 04_cov.t 16 Mar 2006 23:14:32 -0000 1.2
--- 04_cov.t 16 May 2006 18:57:26 -0000 1.3
***************
*** 12,16 ****
use Test::More qw(no_plan);
! use Win32::GUI;
my @ControlsAdd =
--- 12,16 ----
use Test::More qw(no_plan);
! use Win32::GUI();
my @ControlsAdd =
Index: 05_AcceleratorTable.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_AcceleratorTable.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 05_AcceleratorTable.t 3 Aug 2005 21:46:00 -0000 1.1
--- 05_AcceleratorTable.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 12,16 ****
use Test::More tests => 4;
! use Win32::GUI;
my $W = new Win32::GUI::Window(
--- 12,16 ----
use Test::More tests => 4;
! use Win32::GUI();
my $W = new Win32::GUI::Window(
Index: 06_Icon.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/06_Icon.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 06_Icon.t 3 Aug 2005 21:46:00 -0000 1.1
--- 06_Icon.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 12,16 ****
use Test::More tests => 1;
! use Win32::GUI;
my $filename = "guiperl.ico";
--- 12,16 ----
use Test::More tests => 1;
! use Win32::GUI();
my $filename = "guiperl.ico";
Index: 05_Timer_02_NEM.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_Timer_02_NEM.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 05_Timer_02_NEM.t 21 Nov 2005 22:33:34 -0000 1.2
--- 05_Timer_02_NEM.t 16 May 2006 18:57:26 -0000 1.3
***************
*** 12,16 ****
use Test::More tests => 16;
! use Win32::GUI;
my $ctrl = "Timer";
--- 12,16 ----
use Test::More tests => 16;
! use Win32::GUI();
my $ctrl = "Timer";
Index: 50_Richedit_GetCharFormat.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/50_Richedit_GetCharFormat.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 50_Richedit_GetCharFormat.t 3 Aug 2005 21:46:00 -0000 1.1
--- 50_Richedit_GetCharFormat.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 12,16 ****
use Test::More tests => 16;
! use Win32::GUI;
my %font;
--- 12,16 ----
use Test::More tests => 16;
! use Win32::GUI();
my %font;
Index: 05_Timer_03_Interval.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_Timer_03_Interval.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 05_Timer_03_Interval.t 21 Nov 2005 22:33:34 -0000 1.2
--- 05_Timer_03_Interval.t 16 May 2006 18:57:26 -0000 1.3
***************
*** 12,16 ****
use Test::More tests => 11;
! use Win32::GUI;
my $ctrl = "Timer";
--- 12,16 ----
use Test::More tests => 11;
! use Win32::GUI();
my $ctrl = "Timer";
Index: 05_Menu.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_Menu.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 05_Menu.t 3 Aug 2005 21:46:00 -0000 1.1
--- 05_Menu.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 12,16 ****
use Test::More tests => 4;
! use Win32::GUI;
my $ctrl = "Menu";
--- 12,16 ----
use Test::More tests => 4;
! use Win32::GUI();
my $ctrl = "Menu";
Index: 01_basic.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/01_basic.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** 01_basic.t 16 Mar 2006 21:11:13 -0000 1.5
--- 01_basic.t 16 May 2006 18:57:26 -0000 1.6
***************
*** 38,42 ****
# Check that Win32::GUI loads, and bail out of all
# tests if it doesn't
! use_ok('Win32::GUI') or print STDOUT "Bail out! Can't load Win32::GUI";
ok(defined $Win32::GUI::VERSION, "Win32::GUI version check");
--- 38,46 ----
# Check that Win32::GUI loads, and bail out of all
# tests if it doesn't
! eval "use Win32::GUI()";
! if($@) {
! print STDOUT "Bail out! Can't load Win32::GUI";
! }
! pass("Win32::GUI loaded OK");
ok(defined $Win32::GUI::VERSION, "Win32::GUI version check");
Index: 05_Timer_05_DESTROY.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_Timer_05_DESTROY.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 05_Timer_05_DESTROY.t 13 Nov 2005 18:57:52 -0000 1.1
--- 05_Timer_05_DESTROY.t 16 May 2006 18:57:26 -0000 1.2
***************
*** 12,16 ****
use Test::More tests => 11;
! use Win32::GUI;
my $ctrl = "Timer";
--- 12,16 ----
use Test::More tests => 11;
! use Win32::GUI();
my $ctrl = "Timer";
