1#!/usr/bin/perl -Tw
2
3use Test::More tests => 10;
4use_ok "UNIVERSAL::require";
5
6use lib qw(t);
7
8my $Filename = quotemeta $0;
9
10is( Dummy->use, 23 );
11
12is( Dummy->use("foo", "bar"), 1 );
13is( foo(), 42 );
14is( bar(), 23 );
15
16ok( !Dummy->use(1) );
17is( $UNIVERSAL::require::ERROR, $@ );
18
19#line 23
20ok( !Dont::Exist->use );
21like( $@, qq[/^Can't locate Dont/Exist.pm in .* at $Filename line 23\./]  );
22is( $UNIVERSAL::require::ERROR, $@ );
23