quickre.pl

use strict;
use warnings;
use Test::More;
use Carp qw/carp/;
use feature 'say';

sub get_var {
    my ($return_this) = @_;
    ## no critic
    return undef if $return_this eq 'Blah';
    return $return_this;
}


my @strings = (
    "Startup finished in 17.409s (kernel) + 23.946s (initrd) + 39.733s (userspace) = 21.090s",
    "Startup finished in 17.409s (kernel) + 23.946s (initrd) + 39.733s (userspace) = 1 min 21.090s",
    "Startup finished in 1 min 17.409s (kernel) + 23.946s (initrd) + 39.733s (userspace) = 1 min 21.090s",
    "Startup finished in 17.409s (kernel) + 23.946s (initrd) + 39.733s (userspace) = 1 min 21.090s",
);

my $re = qr/((\d+? min)? \d+\.?\d+s)/;
for my $line (@strings){
   ok( $line =~ /$re/g, qq($line . matches $re ));
}


done_testing();