This is an automatically generated mail from the syncmail system. Do not reply
directly to this email. Further discussion should take place on the hackers
list: [EMAIL PROTECTED]
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-Constants/t
Added Files:
97_Version.t
Log Message:
Fix updating of GUI.rc and add tests for verions to all XS modules
--- NEW FILE: 97_Version.t ---
#!perl -wT
# Win32::GUI::Constants test suite.
# $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $
# Testing that Constants.dll has the same version as Constants.pm
use strict;
use warnings;
BEGIN { $| = 1 } # Autoflush
use Test::More tests => 4;
use Win32::GUI();
use Win32::GUI::Constants();
my($maj_pm, $min_pm, $rc_pm);
my $version = $Win32::GUI::Constants::VERSION . '00';
if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) {
($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3);
}
my ($maj_rc, $min_rc, $rc_rc, $extra) =
Win32::GUI::GetDllVersion('Constants.dll');
ok($maj_pm == $maj_rc, "Major Version numbers the same");
ok($min_pm == $min_rc, "Minor Version numbers the same");
ok($rc_pm == $rc_rc, "RC numbers the same");
ok(!defined $extra, "No extra information");
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-win32-gui-cvscommit mailing list
Perl-win32-gui-cvscommit@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-cvscommit
http://perl-win32-gui.sourceforge.net/
