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