#perl -w
use strict;
use Test::More;
BEGIN {
if ($^O !~ /Win32/i) {
plan skip_all => "Win32::Wlan only works on Win32";
} else {
plan 'tests' => 1;
};
};
use Win32::Wlan::API qw(WlanOpenHandle WlanEnumInterfaces WlanQueryCurrentConnection);
if ($Win32::Wlan::API::wlan_available) {
my $handle = WlanOpenHandle();
my @interfaces = WlanEnumInterfaces($handle);
if (@interfaces) {
my $ih = $interfaces[0]->{guuid};
diag "Interface name '$interfaces[0]->{name}'";
my %info = WlanQueryCurrentConnection($handle,$ih);
diag "Connected to $info{ profile_name }\n";
};
} else {
diag "No Wlan detected (or switched off)\n";
};
ok 1, "Synopsis does not crash";