The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl -w
use strict;
use lib 't';
use Test::More tests => 3;
require 'mock.pl';

use Test::Continuous;
use Test::Continuous::Notifier;

use Cwd 'chdir';

chdir('t/TestClassApp');

{
    local @ARGV = qw(t/runtests.t :: Foo);

    Test::Continuous::_run_once;

    my @notifications = read_notifications();

    like   $notifications[0], qr/ALL PASSED/,          'tests pass';
    unlike $notifications[1], qr/Bar\->addition/,      'Bar tests not run';
    like   $notifications[1], qr/Foo\->concatination/, 'Foo tests run';
}