## Test a specific flag for the debug method.
##

use strict;
use warnings;
BEGIN {
  $ENV{ TEST_MODULE_TEST_FLAG_A } = 1;
}

use Test::More tests => 2;
use lib qw( blib/lib t/lib);
use Attribute::GlobalEnable::TestModule;

## should have stuff loaded at this point ##

sub test_a : Test {
  my $ret1 = Test(TEST_FLAG_A, "test_a") || '';

  my $ret2 = Test("test_a") || '';

  my $all_ret = join( " ", "R: test_a", @_, $ret1, $ret2);

  return $all_ret;
}

sub test_b : Bench {
  my $ret1 = Bench("test_b") || '';

  my $all_ret = join( " ", "R: test_b", @_, $ret1);
  return $all_ret;
}


## run tests ##
ok( test_a() eq 'R: test_a test 1: test_a ', 'test all on a');
ok( test_b() eq 'R: test_b ',  'test all off b');