The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

# Load testing for PPI::XS

# Tests to make sure that PPI::XS is autoloaded when PPI itself is loaded.

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 3;
use PPI;

# Double check PPI itself was loaded
ok( $PPI::VERSION, 'PPI was autoloaded by PPI::XS' );
ok( $PPI::Element::VERSION, 'The PDOM has been loaded' );

# Did PPI::XS get loaded?
ok( $PPI::XS::VERSION, 'PPI::XS was autoloaded ok' );