The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use warnings;
use Test::More 'no_plan';

BEGIN { use_ok("Package::Generator"); }

# XXX: We probably can't be 100% sure this won't exist, but... come on, what
# are the chances?
my $bogus = "RJBS::PKG::GEN::OMG::WTF::8675309::Jennys::Number";

ok(
  ! Package::Generator->package_exists($bogus),
  "the bogus package didn't exist",
);

ok(
  Package::Generator->package_exists('Package::Generator'),
  "but Package::Generator does",
);