Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-Class-Method-Modifiers/t

Name	Size	Perms	Modified	Actions
[ .. / .. ]
00-report-prereqs.dd	8.98 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
00-report-prereqs.t	5.57 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
000-load.t	310 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
001-error.t	1010 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
002-cache.t	2.02 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
003-basic.t	2.06 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
004-around.t	1.31 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
005-return.t	457 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
010-before-args.t	687 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
011-after-args.t	769 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
012-around-args.t	731 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
020-multiple-inheritance.t	3.54 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
030-multiple-before.t	629 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
031-multiple-after.t	622 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
032-multiple-around.t	859 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
034-multiple-everything.t	1.33 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
035-multiple-everything-twice.t	2.33 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
040-twice-orig.t	487 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
041-modify-parent.t	978 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
051-undef-list-ctxt.t	912 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
060-caller.t	1.15 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
070-modify-multiple-at-once.t	967 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
080-multiple-modifiers.t	1.56 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
081-sub-and-modifier.t	3.07 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
090-diamond.t	683 B	-rw-r--r--	2016-03-04 22:12:20	Edit Del
100-class-mop-method-modifiers.t	1.95 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
110-namespace-clean.t	1.61 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
120-fresh.t	2.43 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
130-clean-underscore.t	1.74 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del
140-lvalue.t	1.59 KB	-rw-r--r--	2016-03-04 22:12:20	Edit Del

Editing: 001-error.t (1010 B)

use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::Fatal;

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

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

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

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

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

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

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

    sub foo {}

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

done_testing;