cpan/Win32/t/GetFolderPath.t


1
2
3
4
5
6
7
8

use strict;
use Test;
use Win32;

plan tests => 1;

# "windir" exists back to Win9X; "SystemRoot" only exists on WinNT and later.
ok(Win32::GetFolderPath(Win32::CSIDL_WINDOWS), $ENV{WINDIR});