Home
last modified time | relevance | path

Searched refs:Win32 (Results 1 – 25 of 306) sorted by relevance

12345678910>>...13

/openbsd/gnu/usr.bin/perl/cpan/Win32/t/
H A DNames.t8 use Win32;
11 $tests += 2 if Win32::IsWinNT();
15 # test Win32::DomainName()
16 if (Win32::IsWinNT()) {
20 is( $@, '', "Win32::DomainName()" );
25 # test Win32::GetArchName()
31 # test Win32::GetChipArch()
36 # test Win32::GetChipName()
41 # test Win32::GetOSName()
54 # test Win32::LoginName()
[all …]
H A DGetFullPathName.t3 use Win32;
7 my $cwd = Win32::GetCwd;
12 ok(scalar Win32::GetFullPathName('.'), $cwd);
13 ok((Win32::GetFullPathName('.'))[0], "$dir\\");
14 ok((Win32::GetFullPathName('.'))[1], $file);
16 ok((Win32::GetFullPathName('./'))[0], "$cwd\\");
17 ok((Win32::GetFullPathName('.\\'))[0], "$cwd\\");
18 ok((Win32::GetFullPathName('./'))[1], "");
20 ok(scalar Win32::GetFullPathName($cwd), $cwd);
22 ok((Win32::GetFullPathName($cwd))[1], $file);
[all …]
H A DUnicode.t6 use Win32;
9 unless (defined &Win32::BuildNumber && Win32::BuildNumber() >= 820 or $] >= 5.008009) {
13 if ((((Win32::FsType())[1] & 4) == 0) || (Win32::FsType() =~ /^FAT/)) {
30 my $home = Win32::GetCwd();
49 Win32::CreateDirectory($dir);
50 ok(-d Win32::GetANSIPathName($dir));
53 Win32::CreateFile($file);
74 ok(Win32::SetCwd($dir));
76 my $w32dir = Win32::GetCwd();
83 ok(Win32::GetCwd(), $home);
[all …]
H A DCodePage.t3 use Win32;
7 my $ansicp = Win32::GetACP();
10 my $inputcp = Win32::GetConsoleCP();
13 my $outputcp = Win32::GetConsoleOutputCP();
16 my $oemcp = Win32::GetOEMCP();
19 ok(Win32::SetConsoleCP($ansicp));
20 ok(Win32::GetConsoleCP() == $ansicp);
22 ok(Win32::SetConsoleOutputCP($ansicp));
23 ok(Win32::GetConsoleOutputCP() == $ansicp);
26 Win32::SetConsoleCP($inputcp);
[all …]
H A DPrivileges.t5 use Win32;
11 ok(ref(Win32::GetProcessPrivileges()) eq 'HASH');
12 ok(ref(Win32::GetProcessPrivileges(Win32::GetCurrentProcessId())) eq 'HASH');
16 ok(!Win32::GetProcessPrivileges(3423237));
22 my $privs = Win32::GetProcessPrivileges();
33 Win32::IsDeveloperModeEnabled();
36 Win32::IsSymlinkCreationAllowed();
46 if (Win32::IsSymlinkCreationAllowed()) {
H A DCreateFile.t3 use Win32;
14 ok(Win32::CreateDirectory($path));
17 ok(!Win32::CreateDirectory($path));
18 ok(!Win32::CreateFile($path));
23 ok(Win32::CreateFile($path));
27 ok(!Win32::CreateDirectory($path));
28 ok(!Win32::CreateFile($path));
H A DGetCurrentThreadId.t4 use Win32;
16 Win32::GetCurrentProcessId());
19 ok($pid, Win32::GetCurrentProcessId());
29 ok(-$$, Win32::GetCurrentThreadId());
32 ok($pid, Win32::GetCurrentProcessId());
33 ok($$ != Win32::GetCurrentProcessId());
37 ok(Win32::GetCurrentThreadId() > 0);
H A DGetShortPathName.t3 use Win32;
6 Win32::CreateFile("8dot3test_canary_GetShortPathName $$");
7 my $canary = Win32::GetShortPathName("8dot3test_canary_GetShortPathName $$");
21 Win32::CreateFile($path);
24 my $short = Win32::GetShortPathName($path);
30 ok(!defined Win32::GetShortPathName($path));
H A DGetFileVersion.t3 use Win32;
5 unless (defined &Win32::BuildNumber) {
12 my @version = Win32::GetFileVersion($^X);
18 ok($version[3], int(Win32::BuildNumber()));
H A DGetOSVersion.t3 use Win32;
7 my $scalar = Win32::GetOSVersion();
8 my @array = Win32::GetOSVersion();
H A DGetFolderPath.t3 use Win32;
8 ok(Win32::GetFolderPath(Win32::CSIDL_WINDOWS), $ENV{WINDIR});
H A DGetOSName.t3 use Win32;
179 $suffix = " (32-bit)" if $arch == Win32::PROCESSOR_ARCHITECTURE_INTEL;
180 $suffix = " (64-bit)" if $arch == Win32::PROCESSOR_ARCHITECTURE_AMD64;
187 my($os, $desc) = Win32::_GetOSName("", $major||0, $minor||0, $build,
189 my $display = Win32::GetOSDisplayName($os, $desc);
199 ($os, $desc) = Win32::_GetOSName($sp, $major||0, $minor||0, 0,
201 $display = Win32::GetOSDisplayName($os, $desc);
209 check($_, Win32::PROCESSOR_ARCHITECTURE_INTEL) for @intel_tests, @dual_tests, @win10_tests;
210 check($_, Win32::PROCESSOR_ARCHITECTURE_AMD64) for @amd64_tests, @dual_tests;
211 check($_, Win32::PROCESSOR_ARCHITECTURE_IA64) for @ia64_tests;
H A DGuidGen.t3 use Win32;
7 my $guid1 = Win32::GuidGen();
8 my $guid2 = Win32::GuidGen();
/openbsd/gnu/usr.bin/cvs/
H A Dcvsnt.dsp7 CFG=cvsnt - Win32 Release
20 !MESSAGE "cvsnt - Win32 Release" (based on "Win32 (x86) Console Application")
21 !MESSAGE "cvsnt - Win32 Debug" (based on "Win32 (x86) Console Application")
30 !IF "$(CFG)" == "cvsnt - Win32 Release"
84 # Name "cvsnt - Win32 Release"
85 # Name "cvsnt - Win32 Debug"
93 !IF "$(CFG)" == "cvsnt - Win32 Release"
108 !IF "$(CFG)" == "cvsnt - Win32 Release"
123 !IF "$(CFG)" == "cvsnt - Win32 Release"
138 !IF "$(CFG)" == "cvsnt - Win32 Release"
[all …]
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/
H A DLocale.pm31 require Win32;
33 *GetConsoleCP = sub { &Win32::GetConsoleCP } if defined &Win32::GetConsoleCP;
36 require Win32::API;
37 Win32::API->Import('kernel32', 'int GetConsoleCP()');
50 require Win32;
53 Win32::GetConsoleCP();
56 *GetInputCP = sub { &Win32::GetConsoleCP } if defined &Win32::GetConsoleCP;
57 … *GetOutputCP = sub { &Win32::GetConsoleOutputCP } if defined &Win32::GetConsoleOutputCP;
62 require Win32::Console;
64 if defined &Win32::Console::InputCP;
[all …]
/openbsd/gnu/usr.bin/cvs/windows-NT/SCC/
H A DSCC.mak7 CFG=SCC - Win32 Debug
11 !IF "$(CFG)" != "SCC - Win32 Release" && "$(CFG)" != "SCC - Win32 Debug"
20 !MESSAGE "SCC - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library")
21 !MESSAGE "SCC - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library")
38 !IF "$(CFG)" == "SCC - Win32 Release"
97 !ELSEIF "$(CFG)" == "SCC - Win32 Debug"
184 # Name "SCC - Win32 Release"
185 # Name "SCC - Win32 Debug"
187 !IF "$(CFG)" == "SCC - Win32 Release"
189 !ELSEIF "$(CFG)" == "SCC - Win32 Debug"
[all …]
H A DSCC.dsp5 # TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
7 CFG=SCC - Win32 Release
16 !MESSAGE NMAKE /f "SCC.mak" CFG="SCC - Win32 Release"
20 !MESSAGE "SCC - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library")
21 !MESSAGE "SCC - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library")
31 !IF "$(CFG)" == "SCC - Win32 Release"
56 !ELSEIF "$(CFG)" == "SCC - Win32 Debug"
85 # Name "SCC - Win32 Release"
86 # Name "SCC - Win32 Debug"
/openbsd/gnu/usr.bin/cvs/diff/
H A Dlibdiff.dsp5 # TARGTYPE "Win32 (x86) Static Library" 0x0104
7 CFG=libdiff - Win32 Release
16 !MESSAGE NMAKE /f "libdiff.mak" CFG="libdiff - Win32 Release"
20 !MESSAGE "libdiff - Win32 Release" (based on "Win32 (x86) Static Library")
21 !MESSAGE "libdiff - Win32 Debug" (based on "Win32 (x86) Static Library")
29 !IF "$(CFG)" == "libdiff - Win32 Release"
50 !ELSEIF "$(CFG)" == "libdiff - Win32 Debug"
75 # Name "libdiff - Win32 Release"
76 # Name "libdiff - Win32 Debug"
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/
H A DMM.pm49 my $have_win32 = eval { require Win32 };
50 return $have_win32 && defined &Win32::IsWin95 ? Win32::IsWin95()
59 _is_win95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
68 delete $Is{Win32};
/openbsd/gnu/usr.bin/perl/dist/PathTools/t/
H A Dtmpdir.t6 use File::Spec::Win32;
8 require_ok($_) foreach qw(File::Spec File::Spec::Win32);
26 File::Spec::Win32->tmpdir;
27 is(scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV");
30 File::Spec::Win32->tmpdir;
31 is(scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV");
34 for ('File::Spec', "File::Spec::Win32") {
/openbsd/gnu/usr.bin/perl/cpan/File-Path/t/
H A DPath_win32.t14 my ($ignore, $major, $minor, $build, $id) = Win32::GetOSVersion();
30 is(mkpath($UNC_path), 2, 'mkpath on Win32 UNC path returns made 2 dir - base and uncdir');
32 ok(-d $UNC_path, 'mkpath on Win32 UNC path made dir');
49 qr/Option\(s\) implausible on Win32 passed to mkpath\(\) or make_path\(\)/,
50 'make_path with final hashref warned due to options implausible on Win32'
53 …local $TODO = "Notwithstanding the Win32-implausible 'user', mkpath will actually create subdirect…
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/
H A DNoXS.pm21 require Win32;
23 foreach my $slot (keys %Win32::) {
26 delete $Win32::{$slot};
/openbsd/gnu/usr.bin/perl/ext/Win32CORE/t/
H A Dwin32core.t18 ok(!defined &Win32::ExpandEnvironmentStrings,
23 ok(eval { Win32::GetLastError(); 1 }, 'GetLastError() works on the first call');
36 ok(defined &Win32::ExpandEnvironmentStrings,
/openbsd/gnu/usr.bin/perl/dist/Locale-Maketext/t/
H A D01_about_verbose.t18 (defined(&Win32::BuildNumber) and defined &Win32::BuildNumber())
19 ? ('(Win32::BuildNumber ', &Win32::BuildNumber(), ')') : (),
/openbsd/gnu/usr.bin/perl/cpan/Win32/
H A DWin32.pm1 package Win32; package
323 }->{Win32::GetChipName()};
329 }->{Win32::GetChipArch()};
343 = Win32::GetOSVersion();
345 my $productinfo = Win32::GetProductInfo(6, 0, 0, 0);
383 return Win32::GetSystemMetrics($index) unless ref $metrics;
749 bootstrap Win32;

12345678910>>...13