File Manager - BorneoXploit

Editing: 001-error.t

#!/usr/bin/perl
use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';

do {
    package Class1;
    use Class::Method::Modifiers;

eval { before foo => sub {}; };
    ::like($@,
      qr/The method 'foo' is not found in the inheritance hierarchy for class Class1/,
    );
};

do {
    package Class2;
    use Class::Method::Modifiers;

eval { after foo => sub {}; };
    ::like(
      $@,
      qr/The method 'foo' is not found in the inheritance hierarchy for class Class2/,
    );
};

do {
    package Class3;
    use Class::Method::Modifiers;

eval { around foo => sub {}; };
    ::like(
      $@,
      qr/The method 'foo' is not found in the inheritance hierarchy for class Class3/,
    );
};

do {
    package Class4;
    use Class::Method::Modifiers;

sub foo {}

eval { around 'foo', 'bar' => sub {}; };
    ::like(
      $@,
      qr/The method 'bar' is not found in the inheritance hierarchy for class Class4/,
    );
};

done_testing;

Cancel