135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make class names reflect new directory structure

Browse Source
This commit is contained in:
Eric A. Miller
2018-03-29 12:25:12 -04:00
parent 62267f4e8e
commit da6716b107
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
xt/lib/My/Test/Class.pm
View File

@@ -46,7 +46,7 @@ my $EMPTY = q{};
sub startup : Tests( startup => 1 ) { sub startup : Tests( startup => 1 ) {
my $test = shift; my $test = shift;
(my $class = ref $test) =~ s/::Test$//x; (my $class = ref $test) =~ s/^Test:://x;
return ok 1, "$class loaded" if $class eq __PACKAGE__; return ok 1, "$class loaded" if $class eq __PACKAGE__;
use_ok $class or die; use_ok $class or die;
$test->class($class); $test->class($class);

2
xt/lib/Test/SNMP/Info.pm
View File

@@ -27,7 +27,7 @@
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE. # POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Test; package Test::SNMP::Info;
use Test::Class::Most parent => 'My::Test::Class'; use Test::Class::Most parent => 'My::Test::Class';