package TestsFor::Basic;
use Test::Class::Moose;

sub test_me : Tags( first second ) {
    my $test  = shift;
    my $class = ref $test;
    ok 1, "test_me() ran ($class)";
    ok 2, "this is another test ($class)";
    my $method = $test->test_report->current_method;
    ok $method->has_tag('first'),
      'has_tag() should tell us if we have a given tag';
    ok !$method->has_tag('no_such_tag'),
      'has_tag() should tell us if we do not have a given tag';
}

sub test_me_not_overridden : Tags(first) {
    ok 1, 'this test has a "first" tag but is not overridden or modified';
}

sub test_this_baby : Tags(second) {
    my $test  = shift;
    my $class = ref $test;
    is 2, 2, "whee! ($class)";
}

sub test_a_method_with_no_tags {
    ok 1, 'this test method has no tags';
}

sub test_augment : Tags(first second) {
    pass
      'this test has a "first" and "second" tag but it they will be overridden';
}

sub test_clear_tags : Tags(first) {
    pass
      'this test has the "first" tag, but it\'s going to get cleared in the subtest';
}

1;