diff options
Diffstat (limited to 'tests/Coreutils.pm')
| -rw-r--r-- | tests/Coreutils.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/Coreutils.pm b/tests/Coreutils.pm index bfb4f130e..ec4120fdd 100644 --- a/tests/Coreutils.pm +++ b/tests/Coreutils.pm @@ -24,7 +24,7 @@ use File::Compare qw(compare); @ISA = qw(Exporter); ($VERSION = '$Revision: 1.5 $ ') =~ tr/[0-9].//cd; -@EXPORT = qw (run_tests triple_test); +@EXPORT = qw (run_tests triple_test getlimits); my $debug = $ENV{DEBUG}; @@ -204,6 +204,14 @@ sub _at_replace ($$) return $s; } +sub getlimits() +{ + my $NV; + open $NV, "getlimits |" or die "Error running getlimits\n"; + my %limits = map {split /=|\n/} <$NV>; + return \%limits; +} + # FIXME: cleanup on interrupt # FIXME: extract `do_1_test' function |