backup/ipxwrapper
1
0
Fork 0
mirror of https://github.com/solemnwarning/ipxwrapper synced 2024-12-30 16:45:37 +01:00
Code Issues Projects Releases Activity

Skip Ethernet encapsulation tests under Windows 98.

Browse Source
This commit is contained in:
Daniel Collins 2024-11-03 11:25:30 +00:00
parent f20261dfa5
commit 89eaefcc62
3 changed files with 52 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/10-socket.t
View File

@ -23,6 +23,7 @@ use FindBin;
use lib "$FindBin::Bin/lib/";
use IPXWrapper::DOSBoxServer;
use IPXWrapper::Tool::OSVersion;
use IPXWrapper::Util;
require "$FindBin::Bin/config.pm";
@ -117,6 +118,12 @@ describe "IPXWrapper" => sub
describe "using Ethernet encapsulation" => sub
{
if(!IPXWrapper::Tool::OSVersion->get($remote_ip_a)->platform_is_winnt())
{
# Skip Ethernet encapsulation tests under Windows 98
return;
}
before all => sub
{
reg_delete_key($remote_ip_a, "HKCU\\Software\\IPXWrapper");

22
tests/15-interfaces.t
View File

@ -24,6 +24,7 @@ use lib "$FindBin::Bin/lib/";
use IPXWrapper::DOSBoxServer;
use IPXWrapper::Tool::Bind;
use IPXWrapper::Tool::OSVersion;
use IPXWrapper::Util;
require "$FindBin::Bin/config.pm";
@ -175,6 +176,13 @@ describe "IPXWrapper" => sub
describe "using Ethernet encapsulation" => sub
{
if(!IPXWrapper::Tool::OSVersion->get($remote_ip_a)->platform_is_winnt())
{
# Skip these tests under Windows 98
it "(not implemented)";
return;
}
before all => sub
{
reg_delete_key($remote_ip_a, "HKCU\\Software\\IPXWrapper");
@ -206,6 +214,13 @@ describe "IPXWrapper" => sub
describe "using Novell Ethernet encapsulation" => sub
{
if(!IPXWrapper::Tool::OSVersion->get($remote_ip_a)->platform_is_winnt())
{
# Skip these tests under Windows 98
it "(not implemented)";
return;
}
before all => sub
{
reg_delete_key($remote_ip_a, "HKCU\\Software\\IPXWrapper");
@ -237,6 +252,13 @@ describe "IPXWrapper" => sub
describe "using LLC (802.2) Ethernet encapsulation" => sub
{
if(!IPXWrapper::Tool::OSVersion->get($remote_ip_a)->platform_is_winnt())
{
# Skip these tests under Windows 98
it "(not implemented)";
return;
}
before all => sub
{
reg_delete_key($remote_ip_a, "HKCU\\Software\\IPXWrapper");

24
tests/30-eth-ipx.t
View File

@ -1,5 +1,5 @@
# IPXWrapper test suite
# Copyright (C) 2014-2017 Daniel Collins <solemnwarning@solemnwarning.net>
# Copyright (C) 2014-2024 Daniel Collins <solemnwarning@solemnwarning.net>
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published by
@ -26,6 +26,7 @@ use IPXWrapper::Capture::IPX;
use IPXWrapper::Capture::IPXLLC;
use IPXWrapper::Capture::IPXNovell;
use IPXWrapper::Tool::IPXRecv;
use IPXWrapper::Tool::OSVersion;
use IPXWrapper::Util;
require "$FindBin::Bin/config.pm";
@ -623,6 +624,13 @@ shared_examples_for "ipx over ethernet" => sub
describe "IPXWrapper using Ethernet encapsulation" => sub
{
if(!IPXWrapper::Tool::OSVersion->get($remote_ip_a)->platform_is_winnt())
{
# Skip these tests under Windows 98.
it "(not implemented)";
return;
}
before all => sub
{
reg_delete_key($remote_ip_a, "HKCU\\Software\\IPXWrapper");
@ -641,6 +649,13 @@ describe "IPXWrapper using Ethernet encapsulation" => sub
describe "IPXWrapper using Novell Ethernet encapsulation" => sub
{
if(!IPXWrapper::Tool::OSVersion->get($remote_ip_a)->platform_is_winnt())
{
# Skip these tests under Windows 98.
it "(not implemented)";
return;
}
before all => sub
{
reg_delete_key($remote_ip_a, "HKCU\\Software\\IPXWrapper");
@ -659,6 +674,13 @@ describe "IPXWrapper using Novell Ethernet encapsulation" => sub
describe "IPXWrapper using LLC (802.2) Ethernet encapsulation" => sub
{
if(!IPXWrapper::Tool::OSVersion->get($remote_ip_a)->platform_is_winnt())
{
# Skip these tests under Windows 98.
it "(not implemented)";
return;
}
before all => sub
{
reg_delete_key($remote_ip_a, "HKCU\\Software\\IPXWrapper");