[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-DropFiles/t 97_Version.t, NONE, 1.1

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

Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DropFiles/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-DropFiles/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::DropFiles test suite.
# $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $

# Testing that DropFiles.dll has the same version as DropFiles.pm

use strict;
use warnings;

BEGIN { $| = 1 } # Autoflush

use Test::More tests => 4;

use Win32::GUI();
use Win32::GUI::DropFiles();

my($maj_pm, $min_pm, $rc_pm);

my $version = $Win32::GUI::DropFiles::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('DropFiles.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");