epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Trap and check warning message from macLib.plt test.

Browse Source
This commit is contained in:
Andrew Johnson
2012-07-09 12:37:27 -05:00
parent 325fc8001c
commit 48c805ab3d
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/tools/test/macLib.plt
View File

@@ -3,7 +3,7 @@
use FindBin qw($Bin);
use lib "$Bin/../../../../lib/perl";
use Test::More tests => 34;
use Test::More tests => 35;
use EPICS::macLib;
@@ -12,7 +12,15 @@ use Data::Dumper;
my $m = EPICS::macLib->new;
isa_ok $m, 'EPICS::macLib';
is $m->expandString(''), '', 'Empty string';
is $m->expandString('$(undef)'), undef, 'Warning $(undef)';
{
local *STDERR;
my $output;
open STDERR, '>', \$output;
is $m->expandString('$(undef)'), undef, 'Warning $(undef)';
chomp $output;
is $output, q/macLib: macro 'undef' is undefined (expanding string '$(undef)')/, 'macLib error message';
}
$m->suppressWarning(1);
is $m->expandString('$(undef)'), '$(undef)', 'Suppressed $(undef)';