The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More;
BEGIN {
	if ( $^O eq 'MSWin32' or $^O eq 'cygwin' ) {
		plan( tests => 2 );
	} else {
		plan( skip_all => 'Not testing on non-Windows' );
	}
}

ok( $] >= 5.006, 'Perl version is new enough' );

use_ok( 'Win32::TieRegistry' );