[pve-devel] [PATCH v2 pve-network 3/5] tests: mocking more functions to avoid system access
Max Carrara
m.carrara at proxmox.com
Mon Mar 25 14:21:04 CET 2024
On Thu Mar 7, 2024 at 4:13 PM CET, Stefan Lendl wrote:
> previously extracted functions are now mocked in the zone tests
>
> Signed-off-by: Stefan Lendl <s.lendl at proxmox.com>
> ---
> src/test/run_test_zones.pl | 36 +++++++++++++++++++++++++++++++++++-
> 1 file changed, 35 insertions(+), 1 deletion(-)
>
> diff --git a/src/test/run_test_zones.pl b/src/test/run_test_zones.pl
> index ce8edc2..2d9be88 100755
> --- a/src/test/run_test_zones.pl
> +++ b/src/test/run_test_zones.pl
> @@ -14,6 +14,10 @@ use PVE::Network::SDN::Zones;
> use PVE::Network::SDN::Controllers;
> use PVE::INotify;
>
> +use Data::Dumper qw(Dumper);
> +$Data::Dumper::Sortkeys = 1;
> +$Data::Dumper::Indent = 1;
> +
> sub read_sdn_config {
> my ($file) = @_;
>
> @@ -29,7 +33,6 @@ sub read_sdn_config {
> return $sdn_config;
> }
>
> -
Somehow, this deletion makes this patch fail to apply. As in, the
rejected hunk is literally the following:
---
diff a/src/test/run_test_zones.pl b/src/test/run_test_zones.pl (rejected hunks)
@@ -29,7 +33,6 @@ sub read_sdn_config {
return $sdn_config;
}
-
my @tests = grep { -d } glob './zones/*/*';
foreach my $test (@tests) {
---
... I don't know what happened here, but this can still just be applied
otherwise - in my case, I resolved this via the following:
* `git am --reject`
* `git add src/test/run_test_zones.pl`
* `git am --continue`
Then it just applies. When in doubt, one may also check
`src/test/run_test_zones.pl.rej` to see what was rejected - should be
just the hunk I pasted above.
IMHO this can also just be done when applying the series; while
*somewhat* inconvenient, I don't really see this as a blocker or
anything.
So, LGTM!
> my @tests = grep { -d } glob './zones/*/*';
>
> foreach my $test (@tests) {
> @@ -47,8 +50,20 @@ foreach my $test (@tests) {
> return 'localhost';
> },
> read_file => sub {
> + # HACK this assumes we are always calling PVE::INotify::read_file('interfaces');
> return $interfaces_config;
> },
> + read_etc_network_interfaces => sub {
> + return $interfaces_config;
> + },
> + );
> +
> + my $mocked_pve_sdn_controllers;
> + $mocked_pve_sdn_controllers = Test::MockModule->new('PVE::Network::SDN::Controllers');
> + $mocked_pve_sdn_controllers->mock(
> + read_etc_network_interfaces => sub {
> + return $interfaces_config;
> + }
> );
>
> my $pve_sdn_subnets;
> @@ -88,6 +103,25 @@ foreach my $test (@tests) {
> },
> );
>
> + my ($first_plugin) = %{$sdn_config->{controllers}->{ids}} if defined $sdn_config->{controllers};
> + if ($first_plugin) {
> + my $controller_plugin = PVE::Network::SDN::Controllers::Plugin->lookup(
> + $sdn_config->{controllers}->{ids}->{$first_plugin}->{type}
> + );
> + my $mocked_controller_plugin = Test::MockModule->new($controller_plugin);
> + $mocked_controller_plugin->mock(
> + write_controller_config => sub {
> + return;
> + },
> + reload_controller => sub {
> + return;
> + },
> + read_local_frr_config => sub {
> + return;
> + },
> + );
> + }
> +
> my $name = $test;
> my $expected = read_file("./$test/expected_sdn_interfaces");
>
More information about the pve-devel
mailing list