#!/usr/bin/env perl
#
# empty.t
#
# Test behavior of empty specs
#
########################################################################
#

package Testcase::Spec::Define;
use strict;
use warnings;
use FindBin qw($Bin);
use Test::More;
use Test::Trap;

BEGIN { require "$Bin/test_helper.pl" };

{
  package A;
  use base qw(Test::Spec);
}

trap {
  stub_builder_in_packages("A", sub {
    A->runtests;
  });
};

warn $trap->die if $trap->die;
is( $trap->leaveby, 'return', 'expected empty test to return, not die' );
like( $trap->stderr, qr/no examples defined/, 'expected warning for empty test' );
like( $trap->stderr, qr/at .*empty\.t line \d+/, 'expected warning from context of caller (issue #5)');

done_testing();