CPAN::Groonga

OR = 1;
    Win32::Unicode::Shortcut->CoInitialize();
}


my $L = new Win32::Unicode::Shortcut();
isnt(undef, $L, 'new Win32::Unicode::Shortcut');

my $windows = $ENV{'SYSTEMROOT'} || $ENV{'WINDIR'} |

oad the shortcut and modify it

my $L2 = new Win32::Unicode::Shortcut("test1".$endtarget.".lnk");
isnt(undef, $L2, 'new Win32::Unicode::Shortcut');
cmp_ok(lc($L2->{'Path'}),             'eq', lc($L->{

.lnk");

# Reload the shortcut

my $L3 = new Win32::Unicode::Shortcut("test2".$endtarget.".lnk");
isnt(undef, $L3, 'new Win32::Unicode::Shortcut');
cmp_ok(lc($L3->{'Path'}),             'eq', lc($wind

OR = 1;
    Win32::Unicode::Shortcut->CoInitialize();
}


my $L = new Win32::Unicode::Shortcut();
isnt(undef, $L, 'new Win32::Unicode::Shortcut');

my $windows = $ENV{'SYSTEMROOT'} || $ENV{'WINDIR'} |

ose(); 

# Reload the shortcut and modify it

my $L2 = new Win32::Unicode::Shortcut("test1.lnk");
isnt(undef, $L2, 'new Win32::Unicode::Shortcut');
cmp_ok(lc($L2->{'Path'}),             'eq', lc($L->{

1, "Save test2.lnk");

# Reload the shortcut

my $L3 = new Win32::Unicode::Shortcut("test2.lnk");
isnt(undef, $L3, 'new Win32::Unicode::Shortcut');
cmp_ok(lc($L3->{'Path'}),             'eq', lc($wind

::Unicode::Shortcut::CROAK_ON_ERROR = 1;
}

isnt(Win32::Unicode::Shortcut->CoInitialize(), 0, "CoInitialize");
my $LINK = new Win32::Unicode::Shortcut;
isnt(undef, $LINK, 'new Win32::Unicode::Shortcut

 = ();
foreach (0..19) {
    push(@thr, threads->create('start_thread'));
}
foreach (0..19) {
    isnt(0, $thr[$_]->join, 'thread join');
}

# Insert your test code below, the Test::More module is use

Unicode::Shortcut::constant($_);
    if (defined($constant)) {
	# diag("$_ value is $constant");
	isnt($constant, undef, $_);
    } else {
	# diag("$_ is not defined (harmless)");
	is($constant, undef