# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Win32-FindFile.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More 'no_plan' => () ;
use lib 'lib';
use Data::Dumper;
use constant T=> 'Win32::FindFile';
use strict;
use warnings;
BEGIN{
my $T = T;
eval "use ExtUtils::testlib;" unless grep { m/::testlib/ } keys %INC;
print "not ok $@" if $@;
eval "use $T qw(FindFile);";
die "Can't load $T: $@." if $@;
my $d_glob = \%main::;
no strict 'refs';
my $s_glob = \%{ "$T\::" };
$d_glob->{$_} = $s_glob->{$_} for 'wchar', 'wfchar', 'uchar';
};
my @r = FindFile( '*' );
for (@r){
ok( ($_=~/^\.{1,2}\z/ xor $_->is_entry), "'$_'" );
}