#!/usr/bin/perl -w
use strict;
use Test::More;
use Test::Deep;
use Test::NoWarnings;
use Module::ExtractUse;
my @tests=
(
['use utf8;','utf8'],
['use Foo::Bar123;','Foo::Bar123'],
['use Foo::Bar3;','Foo::Bar3'],
['use Bar3;','Bar3'],
['use bar3;','bar3'],
);
plan tests => (scalar @tests)+1;
foreach my $t (@tests) {
my ($code,$expected)=@$t;
my $p=Module::ExtractUse->new;
my $used=$p->extract_use(\$code)->string;
is($used,$expected,"is $expected");
}