Рефтор perl sub для проверяемости

Question

Я унаследовал базу данных perl. Рассмотрим следующую подпрограмму;

sub getSysRTable 
{ 
    my $iface = shift; 
    return if not length($iface); 
    my %ip_routes; 
    my @routes = `/usr/bin/netstat -rn`; 
    foreach my $route(@routes) { 
     if ($route =~ /([\S.]+)\s+([\d.]+.[\d.]+.[\d.]+.[\d.]+)\s+(UGS|UGHS)\s+($iface)/) 
      { $ip_routes {$1} = $2 } 
    } 
    return %ip_routes; 
} 

Я хочу написать модульные тесты для этого кода. Тестирование, которое я имею в виду, будет использовать образец вывода от netstat -rn и проверять ожидаемое поведение. Sub как есть, вызывает команду, поэтому инъекция моих тестовых данных проблематична с этой реализацией.

Что такое идиоматический perlish подход к рефакторингу этого юга для проверки?

Answer 1

Во-первых, изменить свой код следующим образом:

sub getDataForSysRTable { 
    return `/usr/bin/netstat -rn`; 
} 

sub getSysRTable 
{ 
    my $iface = shift; 
    return if not length($iface); 
    my %ip_routes; 
    my @routes = getDataForSysRTable(); 
    foreach my $route(@routes) { 
     if ($route =~ /([\S.]+)\s+([\d.]+.[\d.]+.[\d.]+.[\d.]+)\s+(UGS|UGHS)\s+($iface)/) 
      { $ip_routes {$1} = $2 } 
    } 
    return %ip_routes; 
} 

Тогда для теста, вы можете сделать

local *getDataForSysRTable = sub { 
    ... return known data ... 
}; 

my $ip_routes = getSysRTable($iface);