/openbsd/gnu/usr.bin/perl/cpan/Win32/t/ |
H A D | Names.t | 8 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 D | GetFullPathName.t | 3 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 D | Unicode.t | 6 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 D | CodePage.t | 3 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 D | Privileges.t | 5 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 D | CreateFile.t | 3 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 D | GetCurrentThreadId.t | 4 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 D | GetShortPathName.t | 3 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 D | GetFileVersion.t | 3 use Win32; 5 unless (defined &Win32::BuildNumber) { 12 my @version = Win32::GetFileVersion($^X); 18 ok($version[3], int(Win32::BuildNumber()));
|
H A D | GetOSVersion.t | 3 use Win32; 7 my $scalar = Win32::GetOSVersion(); 8 my @array = Win32::GetOSVersion();
|
H A D | GetFolderPath.t | 3 use Win32; 8 ok(Win32::GetFolderPath(Win32::CSIDL_WINDOWS), $ENV{WINDIR});
|
H A D | GetOSName.t | 3 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 D | GuidGen.t | 3 use Win32; 7 my $guid1 = Win32::GuidGen(); 8 my $guid2 = Win32::GuidGen();
|
/openbsd/gnu/usr.bin/cvs/ |
H A D | cvsnt.dsp | 7 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 D | Locale.pm | 31 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 D | SCC.mak | 7 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 D | SCC.dsp | 5 # 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 D | libdiff.dsp | 5 # 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 D | MM.pm | 49 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 D | tmpdir.t | 6 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 D | Path_win32.t | 14 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 D | NoXS.pm | 21 require Win32; 23 foreach my $slot (keys %Win32::) { 26 delete $Win32::{$slot};
|
/openbsd/gnu/usr.bin/perl/ext/Win32CORE/t/ |
H A D | win32core.t | 18 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 D | 01_about_verbose.t | 18 (defined(&Win32::BuildNumber) and defined &Win32::BuildNumber()) 19 ? ('(Win32::BuildNumber ', &Win32::BuildNumber(), ')') : (),
|
/openbsd/gnu/usr.bin/perl/cpan/Win32/ |
H A D | Win32.pm | 1 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;
|