From: Robert M. <rob...@us...> - 2006-05-16 18:57:32
|
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"; |