perl-win32-gui-cvscommit

[Robert M. <rob...@us...>]

Update of /cvsroot/perl-win32-gui/Win32-GUI/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28625/t

Modified Files:
	05_NotifyIcon_01_Constructor.t 
Log Message:
Fix build/test on Perl 5.6.1

Index: 05_NotifyIcon_01_Constructor.t
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/05_NotifyIcon_01_Constructor.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 05_NotifyIcon_01_Constructor.t	11 Jan 2006 21:26:16 -0000	1.1
--- 05_NotifyIcon_01_Constructor.t	14 Apr 2006 01:52:29 -0000	1.2
***************
*** 10,18 ****
  BEGIN { $| = 1 } # Autoflush
  
! use Test::More tests => 15;
  
  use Win32::GUI();
  use Win32::GUI::BitmapInline();
  
  my $icon = geticon();
  
--- 10,21 ----
  BEGIN { $| = 1 } # Autoflush
  
! use Test::More tests => 16;
  
  use Win32::GUI();
  use Win32::GUI::BitmapInline();
  
+ # Test that $Win32::GUI::NotifyIcon::SHELLDLL_VERSION is set
+ ok(defined $Win32::GUI::NotifyIcon::SHELLDLL_VERSION, "SHELLDLL is set");
+ 
  my $icon = geticon();