1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 1;
7
8use Test::Trap qw( trap $trap :flow:stderr(systemsafe):stdout(systemsafe):warn );
9
10trap {
11   system($^X, '-e', <<'EOF');
12use lib 'lib', 't/lib';
13use Test::Aggregate;
14
15my $dump = 'dump.t';
16my $tests = Test::Aggregate->new( { dirs => 'aggtests', verbose => 0,} );
17$tests->run;
18EOF
19};
20
21my $stderr = $trap->stderr();
22
23unlike ($stderr, qr{^\#\s*ok\s+-\s+aggtests/}ms,
24    'With verbose => 0, no traces of ok are shown.'
25);
26#ok -f $dump, '... and we should have written out a dump file';
27#unlink $dump or warn "Cannot unlink ($dump): $!";
28