1#!/usr/bin/perl -w
2
3BEGIN {
4    if( $ENV{PERL_CORE} ) {
5        chdir 't' if -d 't';
6        chdir '../lib/parent';
7        @INC = '..';
8    }
9}
10
11use strict;
12use Test::More tests => 3;
13use lib 't/lib';
14
15use_ok('parent');
16
17# Tests that a bare (non-double-colon) class still loads
18# and does not get treated as a file:
19eval q{package Test1; require Dummy; use parent -norequire, 'Dummy::InlineChild'; };
20is $@, '', "Loading an unadorned class works";
21isnt $INC{"Dummy.pm"}, undef, 'We loaded Dummy.pm';
22